Custom Query (1030 matches)

Using 1.4-dev-r13064M-trunk (LinuxX8632) :

CL-USER> (make-heap-ivector array-total-size-limit '(unsigned-byte 8))
#()
#<A Foreign Pointer #xB0E2A014>
16777216
CL-USER> (type-of *)
(SIMPLE-ARRAY (UNSIGNED-BYTE 8) (0))

Welcome to Clozure Common Lisp Version 1.4-dev-r13065M  (LinuxX8664)!
? (LAMBDA (A B)
    (DECLARE (OPTIMIZE (SAFETY 2) (SPEED 1)))
    (+ (LOAD-TIME-VALUE -14930786 T) 1826522792 B))
> Error: 14612182336 : value doesn't match constraint :S32CONST in template for CCL::ADD-CONSTANT .
> While executing: CCL::MATCH-VREG, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.

(defun nil ()) expands to

(ccl::%defun (ccl::nfunction nil (lambda nil (block nil))) 'nil)

And call to

(ccl::dbg (ccl::nfunction nil (lambda ())))

from %defun brings CCL to the kernel debugger.