Custom Query (1030 matches)

I'm too lazy to submit another bug report, but (on x8664):

? (defun foo ()
  (let* ((x most-negative-fixnum)
         (y 1))
    (- x y)))
FOO
? (foo)
1152921504606846975
? 

Hmm. I expected something more ... negative.

(This is broken on 1.2 as well. I haven't checked ppc64, but I'd be suspicious.)

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

When having *default-pathname-defaults* set to "", and doing (load "foo.lisp"), *load-pathname* is set to truename of that file, but according to the ​spec it should be set to (pathname (merge-pathnames filespec)).

*compile-file-pathname* gets the right value.