Custom Query (1030 matches)

(defconstant $1hour 3600) 
(defun foo (i) 
  (loop with start-delay = $1hour 
        with duration = $1hour 
        collect (loop for i from 0 below 5 
                      as departure = (+ 3416133997 start-delay (* i duration)) 
                      collect departure)))

Results in:

 Error: 27329071976 : value doesn't match constraint :S32CONST in template for CCL::ADD-CONSTANT . 

(in both trunk and working-0711)

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.)

COMPILER-FILE arranges for the reader and compiler to conspire to record source location information for functions, but LOAD doesn't, so functions loaded from source don't get source info. They should.