Custom Query (1030 matches)

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

The #/pageForPoint:nearest: method of pdfView is not available in 32-bit CCL (but it is in 64-bit CCL). I am mindful of the resolution of ticket #535 (32-bit CCL ships with Tiger interfaces, not Leopard) but the Apple docs say that #/pageForPoint:nearest: was introduced in 10.4 so it seems like it ought to be there.