Custom Query (1030 matches)

I just spent half an hour writing a detailed bug report. When I clicked "preview", the website told me I didn't have write permissions because I wasn't logged in. I had logged in earlier, but my login somehow timed out because of dubious "security" settings. Now the form is reset and my bug report is lost.

I'm pissed.

Can you fix your interface so that it (1) won't log me out so fast, and (2) won't drop my painfully written bug report.

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

e.g. when I do the following loop, it only read two lines. (Lispworks and CLisp read 3 lines)

(loop for i from 1 to 3 do (read-line))
1 2
2 3
NIL
}}
and the following code only reports error in Clozure (in CLisp and Lispworks it is fine):
{{{
? (defun take-input(n)
(let ((s ()))
  (dotimes (i n)
    (push 
     (with-input-from-string (s (read-line)) (loop for x = (read s nil :end) until (eq x :end) collect x)) s))
s))
? (take-input 1)
1 2
> Error: Reader error on #<STRING-INPUT-STREAM  #x302006AA204D>, near position 1, within ")":
>        Unmatched ')' .
}}}