Commit 321ced44 by Raymond Toy

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

second arg is not given.
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))
(qfloat x 0.0))))
(defmethod qrealpart ((x number))
(cl:realpart x))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment