Ignore:
Timestamp:
03/17/05 15:05:09 (16 years ago)
Author:
piso
Message:

SINGLE-FLOAT support.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/coerce.lisp

    r8641 r8784  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: coerce.lisp,v 1.6 2005-02-26 17:38:11 piso Exp $
     4;;; $Id: coerce.lisp,v 1.7 2005-03-17 14:59:03 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4747               (t
    4848                (coerce-error object result-type))))
    49         ((memq result-type '(float single-float double-float short-float long-float))
    50          (coerce-to-float object))
     49        ((memq result-type '(float single-float short-float))
     50         (coerce-to-single-float object))
     51        ((memq result-type '(double-float long-float))
     52         (coerce-to-double-float object))
    5153        ((eq result-type 'complex)
    5254         (cond ((floatp object)
Note: See TracChangeset for help on using the changeset viewer.