Commit 321ced44 321ced44416bc5141b5306bc18f440eb179c4327 by Raymond Toy

Oops. In FLOAT, if it's already a float, don't change it if the

second arg is not given.
1 parent efbf11a6
......@@ -289,7 +289,11 @@
(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))
(cl:realpart x))
......