Changeset 321ced44416bc5141b5306bc18f440eb179c4327

Show
Ignore:
Timestamp:
03/23/12 10:06:28 (2 years ago)
Author:
Raymond Toy <rtoy@…>
Children:
19dd5231c42c6eec40a7876bd9ffb2661fb05012
Parents:
efbf11a6f5cd7e15f51cdb52fefd1584ab58c3d9
git-committer:
Raymond Toy <rtoy@…> (03/23/12 10:06:28)
Message:

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

Files:
1 modified

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))