Custom Query (1030 matches)

In the console, the ccl image starts with a greeting:

Welcome to Clozure Common Lisp Version 1.3-dev-r12149M-trunk (DarwinX8664)!

The nearest equivalent string in the IDE appears to be in the about box:

Clozure Common Lisp version 1.3 (12149M-trunk)

This does not appear to contain the architecture (PPC, x86, 32 or 64 bits), making it harder to remember to include this information when submitting bug reports.

Place the following code in a file:

(eval-when (:compile-toplevel :load-toplevel :execute)

(defclass abcdefghijklm (ns:ns-view) () (:metaclass ns:+ns-object))
(defmacro abcdefghijklm () ())
(ccl::define-objc-method ((:void :mouse-down (:id event)) abcdefghijklm) event)
(ccl::define-objc-method ((:void :mouse-up (:id event)) abcdefghijklm) event)

)

Compile the file, quit lisp, restart, and load the fasl file. The result is a hang in both 32 and 64-bit CCL.

The hang is extremely sensitive to the contents of the file. Removing any one of the last three lines makes it go away, as does shortening any of the "abcdefghijklm" strings by one character. (The example was found by painstakingly whittling down a much larger file that first exhibited the problem.)

? h
#<HASH-TABLE :TEST EQUAL size 3/60 #x3020010965ED>
? (with-hash-table-iterator (f h) (lambda () (multiple-value-list (f))))
#<COMPILED-LEXICAL-CLOSURE #x30200126EE0F>
? (funcall *)
> Error: value #<HASH-TABLE :TEST EQ size 3/60 #x302000C9D12D> is not of the expected type SIMPLE-VECTOR.