Commit 321ced44416bc5141b5306bc18f440eb179c4327

Authored by Raymond Toy
1 parent efbf11a6

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

second arg is not given.
Showing 1 changed file with 5 additions and 1 deletions
... ... @@ -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))
(qfloat x 0.0))))
(defmethod qrealpart ((x number))
(cl:realpart x))
... ...