Custom Query (1030 matches)

Keep code in a database, and be able to stuff it into editor windows.

(I'm not totally sure what to make of this.)

? (defun foo () (push 'a (list 'x 'x)))
;Compiler warnings :
;   In FOO: Undefined function SETF::|COMMON-LISP::LIST|
FOO
? (foo)
> Error: Undefined function (SETF LIST) called with arguments (-335123572 X X) .
> While executing: CCL::TOPLEVEL-EVAL, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Retry applying (SETF LIST) to (-335123572 X X).
> Type :? for other options.

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.