Very weird hang

[rongarret]

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

[rme]

This seems to work in the current trunk. I can't remember or find what fixed it (if anything). Please re-open the ticket if it's still an issue.

[gb]

It's possible that this only occurred when *LOAD-PRINT* was true; if so, it may have been the same bug as in ticket:558, which was closed earlier today.