Custom Query (1030 matches)

As of this writing, there's some support for this in the trunk.

On Debian/armhf:

julian@ash:~% uname -a
Linux ash 2.6.31.14.27-efikamx #1 Sun Mar 18 20:13:21 EDT 2012 armv7l GNU/Linux
julian@ash:~% ccl
Welcome to Clozure Common Lisp Version 1.8-r15286M  (LinuxARM32)!
? (log 42 2)
> Error: FLOATING-POINT-INVALID-OPERATION detected
>        performing COERCE on (NIL)
> While executing: CCL::/-2, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.

NSWindow and a number of other Objective-C classes are mapped to symbols in the NS package in ccl::*lisp-classname-table*:

cl-user> (apropos "NS-WINDOW")
ns:+ns-window,  Value: #<objc:objc-metaclass ns:+ns-window (#x1D7D7A8)>
 ns:ns-window,  Value: #<objc:objc-class ns:ns-window (#x1D7D7D0)>
ns:+ns-window-controller,  Value: #<objc:objc-metaclass ns:+ns-window-controller (#x1D7D988)>
 ns:ns-window-controller,  Value: #<objc:objc-class ns:ns-window-controller (#x1D7D9B0)>
; No value
cl-user> (gethash "NSWindow" ccl::*lisp-classname-table*)
ns:ns-window
t

but not NSColorPanel:

cl-user> (apropos "NS-COLOR-PANEL")
 ns:ns-color-panel,  Value: #<objc:objc-class ns:ns-color-panel (#x1D73280)>
ns:+ns-color-panel,  Value: #<objc:objc-metaclass ns:+ns-color-panel (#x1D73258)>
; No value
cl-user> (gethash "NSColorPanel" ccl::*lisp-classname-table*)
"NS-COLOR-PANEL"
t

even after instantiating a NSColorPanel:

cl-user> (#/sharedColorPanel ns:ns-color-panel)
#<ns-color-panel <NSColorPanel: 0x31ae720> (#x31AE720)>
cl-user> (gethash "NSColorPanel" ccl::*lisp-classname-table*)
"NS-COLOR-PANEL"
t