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.

See ​http://clozure.com/pipermail/openmcl-devel/2009-May/009392.html for assorted backtraces.

With the trunk version of CCL on Windows Vista, (make-socket :type :datagram :remote-host "10.0.0.2" :remote-port 6038) fails in setsockopt because the "linger" option is not supported. I am attaching a patch that works for me.