Custom Query (1030 matches)

Subject line says it all. It works in 32-bit objc and 64-bit CCL so I'm guessing it's a bug in the interfaces.

I put the following code in a file:

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defconstant c1 (gensym))
  (defun foo () c1)
)

I then compile the file, quit CCL, start it up again, and load the compiled version of the file. When I do that, the value returned by calling (foo) is not the same as the value of C1:

Welcome to Clozure Common Lisp Version 1.4-dev-r12255M-trunk (DarwinX8664)! ? (load #P"/Users/ron/Desktop/test.dx64fsl") ;Loading #P"/Users/ron/Desktop/test.dx64fsl"... C1 FOO #P"/Users/ron/Desktop/test.dx64fsl" ? c1 #:G13 ? (foo) #:G19 ?

This appears to be a bug in compile-file. When I trace the gensym, it's called twice when the file is compiled, but only once if the file is loaded as source.

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