Changeset 321ced


Ignore:
Timestamp:
03/23/12 17:06:28 (3 years ago)
Author:
Raymond Toy <rtoy@…>
Branches:
master
Children:
19dd52
Parents:
efbf11
Message:

Oops. In FLOAT, if it's already a float, don't change it if the
second arg is not given.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • qd-methods.lisp

    refbf11 r321ced  
    290290(declaim (inline float))
    291291(defun float (x &optional num-type)
    292   (qfloat x (or num-type 0.0)))
     292  (if num-type
     293      (qfloat x num-type)
     294      (if (or (cl:floatp x) (typep x 'qd-real))
     295          x
     296          (qfloat x 0.0))))
    293297
    294298(defmethod qrealpart ((x number))
Note: See TracChangeset for help on using the changeset viewer.