Custom Query (1030 matches)

From #ccl on irc, user ecyrb:

(defmacro mk-arr (type init &optional len)
  "Make array with elements of TYPE, initializing."
  (if len `(make-array ,len :element-type ,type :initial-element ,init)
      `(make-array (length ,init) :element-type ,type
        :initial-contents ,init)))

(eval '(the (simple-array simple-string (2))
            (mk-arr 'simple-string '("Jan" "Feb"))))

;Compiler warnings : 
;   In an anonymous lambda form: Undefined function MK-ARR 
> Error: Special operator or global macro-function MK-ARR can't be FUNCALLed or APPLYed 
> While executing: #<Anonymous Function #x30004112FDDF>, in process listener(1). 

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.

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