Changeset 321ced44416bc5141b5306bc18f440eb179c4327

Timestamp:

03/23/12 10:06:28 (14 months 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:

• qd-methods.lisp (modified) (1 diff)

qd-methods.lisp

@@ -290 +290 @@
 (declaim (inline float))
 (defun float (x &optional num-type)
-  (qfloat x (or num-type 0.0)))
+  (if num-type
+      (qfloat x num-type)
+      (if (or (cl:floatp x) (typep x 'qd-real))
+          x
+          (qfloat x 0.0))))
 
 (defmethod qrealpart ((x number))