Custom Query (1030 matches)

The "Version:" pop-up menu in Trac is missing a "1.3" option.

According to the spec, the following should be true for any floating-point number f:

 (multiple-value-bind (signif expon sign)
                      (decode-float f)
   (* (scale-float signif expon) sign))
==  f

​http://www.lispworks.com/documentation/HyperSpec/Body/f_dec_fl.htm

If f is negative, we appear to leave an extra minus sign in the results:

CCL> (decode-float -1.0d0)
-0.5D0
1
-1.0D0

and thus:

CCL> (let ((f -1.0d0))
       (multiple-value-bind (signif expon sign)
	   (decode-float f)
	 (* (scale-float signif expon) sign)))

1.0D0

Probably we should ensure that the significand is non-negative in all cases.

I seem to recall that a similar bug was fixed previously.

Welcome to Clozure Common Lisp Version 1.3-dev-r11958M  (LinuxX8632)!
? ((lambda (a b) (if (< 1 3175737918) a b)) 1 2)
2

This is running on an AMD64 machine, in case that makes a difference. The 64-bit port doesn't suffer from the bug.