#541 closed defect (worksforme)
Very weird hang
Reported by: | rongarret | Owned by: | gb |
---|---|---|---|
Priority: | normal | Milestone: | |
Component: | Compiler | Version: | trunk |
Keywords: | Cc: |
Description
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.)
Change History (2)
comment:1 Changed 10 years ago by rme
- Resolution set to worksforme
- Status changed from new to closed
comment:2 Changed 10 years ago by 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.
Note: See
TracTickets for help on using
tickets.
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.