Custom Query (1030 matches)

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.

Open a listener. Type in a composed character, for example, é (via C-q option-e e), and hit return. I'd expect an unbound variable error, but for some reason, the character doesn't seem to be read. The return just moves the cursor down to the next line.