Custom Query (1030 matches)

? (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.

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.