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)

Found this working with r10913 Linuxx8664:

value #<recursive-lock [ptr @ #x6D51C0] #x3000448438ED> is not of the expected type
ccl:read-write-lock.

​A full backtrace.

This only happens with at least 46 eql-specialized methods; ​the test code and results of running. That trial shows it also on r10956.

Only eql-specialized methods with the same preceding specializers count; commenting out the loop that adds methods specialized on another class has no effect on the test results; it's still 46.

Setting ccl::*lock-free-hash-table-default* to NIL before calling the generic function fixes the problem (found while browsing r10867).

? (compile nil '(lambda (c)
                  (declare (optimize (safety 1)))
                  (declare (type (integer 30074 1948824693) c))
                  (ash c (min 82 -28192897))))
> Error: 28192897 : value doesn't match constraint :U8CONST in template for NATURAL-SHIFT-RIGHT .
> While executing: MATCH-VREG, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.