Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv2738/src/code
Stylistic change in COERCE-TO-COMPLEX-TYPE:
... (subtypep (type-of ...) 'double-float)???
Change it to (typep ... 'double-float).
... adjust some comments for reality.
RCS file: /cvsroot/sbcl/sbcl/src/code/irrat.lisp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- irrat.lisp 14 Aug 2003 17:16:12 -0000 1.21
+++ irrat.lisp 3 Sep 2003 09:52:04 -0000 1.22
@@ -701,9 +701,11 @@
(defun coerce-to-complex-type (x y z)
(declare (double-float x y)
- (if (subtypep (type-of (realpart z)) 'double-float)
+ (if (typep (realpart z) 'double-float)
(complex x y)
- ;; Convert anything that's not a DOUBLE-FLOAT to a SINGLE-FLOAT.
+ ;; Convert anything that's not already a DOUBLE-FLOAT (because
+ ;; the initial argument was a (COMPLEX DOUBLE-FLOAT) and we
+ ;; haven't done anything to lose precision) to a SINGLE-FLOAT.
(complex (float x 1f0)
(float y 1f0))))
Sign up for the SourceForge newsletter: