Opened 10 years ago

Closed 10 years ago

Last modified 10 years ago

#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

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.

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.