I'm the guilty party for setting,&nbsp;persistently and unintentionally so,&nbsp;&nbsp;those optimization settings<div>from within easygui views.lisp. Apologies to all concerned. I thought the compiler treated these</div><div>declarations as affecting the subsequent contents of the source file in which they appeared</div><div>&nbsp;(modulo later&nbsp;declarations in the same overriding them), rather than causing&nbsp;the form to be</div><div>given effect when loading the fasl; must I put it within (eval-when (:compile-toplevel) ...)?</div><div><br></div><div>I think that file gets loaded as part of (require 'cocoa-application), not as part of the</div><div>startup of the ide-containing image.</div><div><br></div><div>Arthur<br><br>----- Original Message -----<br>From: Gary Byers &lt;gb@clozure.com&gt;<br>Date: Tuesday, June 9, 2009 2:31 pm<br>Subject: Re: [Openmcl-devel] ns:ns-tracking-area not present in 32bit CCL<br>To: Ron Garret &lt;ron@awun.net&gt;<br>Cc: openmcl-devel Devel &lt;openmcl-devel@clozure.com&gt;<br><br>&gt; The code that sets the optimization settings (persistently and <br>&gt; probablynot intentionally so) is in <br>&gt; ccl/examples/cocoa/easygui/views.lisp.&nbsp; For<br>&gt; reasons that I don't pretend to understand, that file is loaded <br>&gt; everytimethat the standalone IDE starts up, but isn't loaded or <br>&gt; referenced when<br>&gt; one just does (require "COCOA").<br>&gt; <br>&gt; That's my best guess; if it's not correct and it was more important<br>&gt; that I can imagine it to be to determine what other difference in<br>&gt; environment led to to different behavior, then I suppose that - armed<br>&gt; with knowledge of what all of those differences are - one could come<br>&gt; up with a more accurate explanation.<br>&gt; <br>&gt; I don't know.&nbsp; To be honest, I don't really care; it seems <br>&gt; like the<br>&gt; time spent puzzling over this could be better spent trying to <br>&gt; fix the bug.<br>&gt; <br>&gt; On Tue, 9 Jun 2009, Ron Garret wrote:<br>&gt; <br>&gt; &gt; Why is Rainer seeing this bug now and not me?&nbsp; At this <br>&gt; point we're running <br>&gt; &gt; the same code on the same CCL version on the same OS X version.<br>&gt; &gt;<br>&gt; &gt; rg<br>&gt; &gt;<br>&gt; &gt; On Jun 9, 2009, at 4:32 AM, Gary Byers wrote:<br>&gt; &gt;<br>&gt; &gt;&gt; The bug's somewhat tersesly described in:<br>&gt; &gt;&gt; <br>&gt; &gt;&gt; &lt;http://trac.clozure.com/openmcl/ticket/516&gt;<br>&gt; &gt;&gt; <br>&gt; &gt;&gt; It's still open, though the code in the trunk version of the IDE<br>&gt; &gt;&gt; that was exposing/triggering the problem has been changed.<br>&gt; &gt;&gt; <br>&gt; &gt;&gt; That code can cause the IDE to start up with<br>&gt; &gt;&gt; <br>&gt; &gt;&gt; ;;;; see CLtL2; DECLARATION-INFORMATION didn't make it into <br>&gt; ANSI CL<br>&gt; &gt;&gt; ? (ccl:declaration-information 'optimize nil)<br>&gt; &gt;&gt; ((SPEED 0) (SAFETY 3) (COMPILATION-SPEED 0) (SPACE 0) (DEBUG 3))<br>&gt; &gt;&gt; <br>&gt; &gt;&gt; This combination of OPTIMIZE settings causes some rarely-executed<br>&gt; &gt;&gt; code to be executed, and the real bug is in that code.<br>&gt; &gt;&gt; (Of course, this should just have the effect of making the <br>&gt; code as<br>&gt; &gt;&gt; slow, bloated, and stupid as possible, but it incidentally exposes<br>&gt; &gt;&gt; a bug.)<br>&gt; &gt;&gt; <br>&gt; &gt;&gt; Untile the real bug is if fixed, you can work around the <br>&gt; problem by doing:<br>&gt; &gt;&gt; <br>&gt; &gt;&gt; ? (declaim (optimize (speed 1) (space 1) (safety 1) (debug 1) <br>&gt; &gt;&gt; (compilation-speed 1)))<br>&gt; &gt;&gt; <br>&gt; &gt;&gt; on startup.<br>&gt; &gt;&gt; <br>&gt; &gt;&gt; <br>&gt; &gt;&gt; <br>&gt; &gt;&gt; <br>&gt; &gt;&gt; On Tue, 9 Jun 2009, Rainer Joswig wrote:<br>&gt; &gt;&gt; <br>&gt; &gt;&gt;&gt; Same error in&nbsp; Clozure Common Lisp Version 1.3-<br>&gt; r12235M&nbsp; (DarwinX8664).<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; Mac OS X 10.5.7 on 64bit Intel...<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; *** Error in event process: unknown arg spec :REGISTERS<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; (442BE8) : 0 (FUNCALL #'#&lt;(:INTERNAL |-[StandardView <br>&gt; drawRect:]|)&gt;&gt;&gt;&gt; #&lt;SIMPLE-ERROR #x3000421B439D&gt;) 85<br>&gt; &gt;&gt;&gt; (#:G2965)<br>&gt; &gt;&gt;&gt;&nbsp; #:G2965: #&lt;SIMPLE-ERROR #x3000421B439D&gt;<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; #:COMPILER-VAR: (NIL)<br>&gt; &gt;&gt;&gt; #:G2962: #&lt;A Foreign Pointer #x7FFF5FBFD360&gt;<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; (442C10) : 1 (SIGNAL #&lt;SIMPLE-ERROR #x3000421B439D&gt;) 981<br>&gt; &gt;&gt;&gt; (CONDITION &amp;REST CCL::ARGS)<br>&gt; &gt;&gt;&gt;&nbsp; CONDITION: #&lt;SIMPLE-ERROR #x3000421B439D&gt;<br>&gt; &gt;&gt;&gt;&nbsp; CCL::ARGS: NIL<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; CCL::%HANDLERS%: ((ERROR) (ERROR))<br>&gt; &gt;&gt;&gt; CCL::TAG: #&lt;SIMPLE-ERROR #x3000421B439D&gt;<br>&gt; &gt;&gt;&gt; CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS*<br>&gt; &gt;&gt;&gt; CCL::FN: #&lt;COMPILED-LEXICAL-CLOSURE (:INTERNAL |-[StandardView<br>&gt; &gt;&gt;&gt; drawRect:]|) #x493DBF&gt;<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; (442C68) : 2 (%ERROR #&lt;SIMPLE-ERROR #x3000421B439D&gt; <br>&gt; (:REGISTERS)&gt;&gt;&gt; 558482) 117<br>&gt; &gt;&gt;&gt; (CONDITION CCL::ARGS CCL::ERROR-POINTER)<br>&gt; &gt;&gt;&gt;&nbsp; CONDITION: #&lt;SIMPLE-ERROR #x3000421B439D&gt;<br>&gt; &gt;&gt;&gt;&nbsp; CCL::ARGS: (:REGISTERS)<br>&gt; &gt;&gt;&gt;&nbsp; CCL::ERROR-POINTER: 558482<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; ...<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; Regards,<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; Rainer Joswig<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; Am 09.06.2009 um 07:02 schrieb Ron Garret:<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt; Try updating.&nbsp; The 1.3 branch is currently at verison <br>&gt; r12153M.&nbsp; It<br>&gt; &gt;&gt;&gt;&gt; works for me on that version.<br>&gt; &gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt; rg<br>&gt; &gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt; On Jun 8, 2009, at 9:35 PM, Rainer Joswig wrote:<br>&gt; &gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; using Clozure Common Lisp Version 1.3-r12088M&nbsp; <br>&gt; (DarwinX8664)&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; On executing the add-subview example form in draggable.lisp<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; I get:<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; *** Error in event process: unknown arg spec :REGISTERS<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442BE8) : 0 (FUNCALL #'#&lt;(:INTERNAL |-[StandardView <br>&gt; drawRect:]|)&gt;&gt;&gt;&gt;&gt;&gt; #&lt;SIMPLE-ERROR #x3000420F8DBD&gt;) 85<br>&gt; &gt;&gt;&gt;&gt;&gt; (#:G5085)<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G5085: #&lt;SIMPLE-ERROR #x3000420F8DBD&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; #:COMPILER-VAR: (NIL)<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G5082: #&lt;A Foreign Pointer #x7FFF5FBFD360&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442C10) : 1 (SIGNAL #&lt;SIMPLE-ERROR #x3000420F8DBD&gt;) 981<br>&gt; &gt;&gt;&gt;&gt;&gt; (CONDITION &amp;REST CCL::ARGS)<br>&gt; &gt;&gt;&gt;&gt;&gt; CONDITION: #&lt;SIMPLE-ERROR #x3000420F8DBD&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::ARGS: NIL<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::%HANDLERS%: ((ERROR) (ERROR))<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::TAG: #&lt;SIMPLE-ERROR #x3000420F8DBD&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS*<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::FN: #&lt;COMPILED-LEXICAL-CLOSURE (:INTERNAL |-<br>&gt; [StandardView&gt;&gt;&gt;&gt;&gt; drawRect:]|) #x493DBF&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442C68) : 2 (%ERROR #&lt;SIMPLE-ERROR #x3000420F8DBD&gt; <br>&gt; (:REGISTERS)&gt;&gt;&gt;&gt;&gt; 558482) 117<br>&gt; &gt;&gt;&gt;&gt;&gt; (CONDITION CCL::ARGS CCL::ERROR-POINTER)<br>&gt; &gt;&gt;&gt;&gt;&gt; CONDITION: #&lt;SIMPLE-ERROR #x3000420F8DBD&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::ARGS: (:REGISTERS)<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::ERROR-POINTER: 558482<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442C90) : 3 (%FF-CALL 140735390423728 :REGISTERS #&lt;NS-OBJECT<br>&gt; &gt;&gt;&gt;&gt;&gt; &lt;NSCFType: 0x170192c0&gt; (#x170192C0)&gt; :ADDRESS #&lt;NS-<br>&gt; CONSTANT-STRING<br>&gt; &gt;&gt;&gt;&gt;&gt; "Lisp Rules!" (#x137CD2F0)&gt; :ADDRESS #&lt;A Foreign Pointer<br>&gt; &gt;&gt;&gt;&gt;&gt; #x7FFF82F59600&gt; :ADDRESS #&lt;NS-MUTABLE-DICTIONARY {<br>&gt; &gt;&gt;&gt;&gt;&gt; NSFont = "TimesNewRomanPS-ItalicMT 48.00 pt. P [] (0x13799150)<br>&gt; &gt;&gt;&gt;&gt;&gt; fobj=0x170178c0, spc=12.00";<br>&gt; &gt;&gt;&gt;&gt;&gt; } (#x17019E50)&gt; :VOID) 701<br>&gt; &gt;&gt;&gt;&gt;&gt; (CCL::ENTRY &amp;REST CCL::SPECS-AND-VALS)<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::ENTRY: 140735390423728<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::SPECS-AND-VALS: (:REGISTERS #&lt;NS-OBJECT &lt;NSCFType:<br>&gt; &gt;&gt;&gt;&gt;&gt; 0x170192c0&gt; (#x170192C0)&gt; :ADDRESS #&lt;NS-CONSTANT-STRING "Lisp<br>&gt; &gt;&gt;&gt;&gt;&gt; Rules!" (#x137CD2F0)&gt; :ADDRESS ...)<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::LEN: 9<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::TOTAL-WORDS: 0<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::RESULT-SPEC: :VOID<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::NARGS: 4<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::N-FP-ARGS: 0<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::I: 0<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::SPECS: (:REGISTERS #&lt;NS-OBJECT &lt;NSCFType: 0x170192c0&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; (#x170192C0)&gt; :ADDRESS #&lt;NS-CONSTANT-STRING "Lisp<br>&gt; &gt;&gt;&gt;&gt;&gt; Rules!" (#x137CD2F0)&gt; :ADDRESS ...)<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::SPEC: :REGISTERS<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442CF8) : 4 (FUNCALL #'#&lt;Anonymous Function <br>&gt; #x300041D9AB4F&gt; #&lt;NS-<br>&gt; &gt;&gt;&gt;&gt;&gt; CONSTANT-STRING "Lisp Rules!" (#x137CD2F0)&gt; #S(CCL::OBJC-<br>&gt; &gt;&gt;&gt;&gt;&gt; SELECTOR :NAME "sizeWithAttributes:" :%SEL #&lt;A Foreign <br>&gt; Pointer&gt;&gt;&gt;&gt;&gt; #x7FFF82F59600&gt;) #&lt;NS-MUTABLE-DICTIONARY {<br>&gt; &gt;&gt;&gt;&gt;&gt; NSFont = "TimesNewRomanPS-ItalicMT 48.00 pt. P [] (0x13799150)<br>&gt; &gt;&gt;&gt;&gt;&gt; fobj=0x170178c0, spc=12.00";<br>&gt; &gt;&gt;&gt;&gt;&gt; } (#x17019E50)&gt;) 805<br>&gt; &gt;&gt;&gt;&gt;&gt; (#:G3751 #:G3752 CCL::ARG0)<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G3751: #&lt;NS-CONSTANT-STRING "Lisp Rules!" (#x137CD2F0)&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G3752: #S(CCL::OBJC-SELECTOR :NAME "sizeWithAttributes:" :%SEL<br>&gt; &gt;&gt;&gt;&gt;&gt; #&lt;A Foreign Pointer #x7FFF82F59600&gt;)<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::ARG0: #&lt;NS-MUTABLE-DICTIONARY {<br>&gt; &gt;&gt;&gt;&gt;&gt; NSFont = "TimesNewRomanPS-ItalicMT 48.00 pt. P [] (0x13799150)<br>&gt; &gt;&gt;&gt;&gt;&gt; fobj=0x170178c0, spc=12.00";<br>&gt; &gt;&gt;&gt;&gt;&gt; } (#x17019E50)&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; #:G3753: #&lt;NS-SIZE 0 X 0 #x3000420F8EDD&gt; [gcable] <br>&gt; (#x17029190)&gt;&gt;&gt;&gt;&gt; #:G3756: #&lt;A Foreign Pointer #x17029190&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G3755: #&lt;NS-OBJECT &lt;NSCFType: 0x170192c0&gt; (#x170192C0)&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442D38) : 5 (FUNCALL #'#&lt;(:INTERNAL CCL::SEND-<br>&gt; UNAMBIGUOUS-MESSAGE<br>&gt; &gt;&gt;&gt;&gt;&gt; (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION <br>&gt; T)))&gt; #&lt;NS-<br>&gt; &gt;&gt;&gt;&gt;&gt; CONSTANT-STRING "Lisp Rules!" (#x137CD2F0)&gt; #&lt;NS-<br>&gt; MUTABLE-DICTIONARY {<br>&gt; &gt;&gt;&gt;&gt;&gt; NSFont = "TimesNewRomanPS-ItalicMT 48.00 pt. P [] (0x13799150)<br>&gt; &gt;&gt;&gt;&gt;&gt; fobj=0x170178c0, spc=12.00";<br>&gt; &gt;&gt;&gt;&gt;&gt; } (#x17019E50)&gt;) 501<br>&gt; &gt;&gt;&gt;&gt;&gt; (CCL::RECEIVER &amp;REST CCL::ARGS)<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::RECEIVER: #&lt;NS-CONSTANT-STRING "Lisp Rules!" <br>&gt; (#x137CD2F0)&gt;&gt;&gt;&gt;&gt;&gt; CCL::ARGS: (#&lt;NS-MUTABLE-DICTIONARY {<br>&gt; &gt;&gt;&gt;&gt;&gt; NSFont = "TimesNewRomanPS-ItalicMT 48.00 pt. P [] (0x13799150)<br>&gt; &gt;&gt;&gt;&gt;&gt; fobj=0x170178c0, spc=12.00";<br>&gt; &gt;&gt;&gt;&gt;&gt; } (#x17019E50)&gt;)<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::SELECTOR: #S(CCL::OBJC-SELECTOR :NAME <br>&gt; "sizeWithAttributes:" :<br>&gt; &gt;&gt;&gt;&gt;&gt; %SEL #&lt;A Foreign Pointer #x7FFF82F59600&gt;)<br>&gt; &gt;&gt;&gt;&gt;&gt; FUNCTION: #&lt;Anonymous Function #x300041D9AB4F&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442D78) : 6 (FUNCALL #'#&lt;#&lt;STANDARD-METHOD VIEW-<br>&gt; DRAW-CONTENTS<br>&gt; &gt;&gt;&gt;&gt;&gt; (TEXT-VIEW)&gt;&gt; #&lt;TESTVIEW #x30004201D12D&gt; #&lt;NS-RECT <br>&gt; 100 X 100 @ 0,0<br>&gt; &gt;&gt;&gt;&gt;&gt; (#x7FFF5FBFD370) #x3000420F928D&gt;) 229<br>&gt; &gt;&gt;&gt;&gt;&gt; (V &amp;OPTIONAL RECT)<br>&gt; &gt;&gt;&gt;&gt;&gt; V: #&lt;TESTVIEW #x30004201D12D&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; RECT: #&lt;NS-RECT 100 X 100 @ 0,0 (#x7FFF5FBFD370) <br>&gt; #x3000420F928D&gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442DA0) : 7 (FUNCALL #'#&lt;|-[StandardView drawRect:]|&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; 17591849974380) 981<br>&gt; &gt;&gt;&gt;&gt;&gt; (#:G5081)<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G5081: 17591849974380<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; #:G5088: #&lt;A Foreign Pointer #x7FFF5FBFD360&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G5082: #&lt;A Foreign Pointer #x7FFF5FBFD360&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; #:COMPILER-VAR: (NIL)<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G5087: #&lt;COMPILED-LEXICAL-CLOSURE (:INTERNAL |-<br>&gt; [StandardView&gt;&gt;&gt;&gt;&gt; drawRect:]|) #x493DBF&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G5089: (CONDITION #&lt;COMPILED-LEXICAL-CLOSURE # #x493DBF&gt;)<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::%HANDLERS%: ((CONDITION #) (ERROR))<br>&gt; &gt;&gt;&gt;&gt;&gt; SELF: #&lt;STANDARD-VIEW &lt;StandardView: 0x170221c0&gt; <br>&gt; (#x170221C0)&gt;&gt;&gt;&gt;&gt;&gt; _CMD: #&lt;A Foreign Pointer #x7FFF83013F38&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; RECT: #&lt;NS-RECT 100 X 100 @ 0,0 (#x7FFF5FBFD370) <br>&gt; #x3000420F928D&gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442E48) : 8 (%PASCAL-FUNCTIONS% 277 17591849974380) 397<br>&gt; &gt;&gt;&gt;&gt;&gt; (CCL::INDEX CCL::ARGS-PTR-FIXNUM)<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::INDEX: 277<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::ARGS-PTR-FIXNUM: 17591849974380<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::LISP-FUNCTION: #&lt;Compiled-function |-[StandardView <br>&gt; drawRect:]|&gt;&gt;&gt;&gt;&gt; (Non-Global)&nbsp; #x300041F007BF&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; WITHOUT-INTERRUPTS: NIL<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::*CALLBACK-TRACE-P*: NIL<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442F08) : 10 (FUNCALL #'#&lt;Anonymous Function #x30004122027F&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; #&lt;LISP-APPLICATION &lt;LispApplication: 0x1c3580&gt; (#x1C3580)&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #&lt;A Foreign Pointer<br>&gt; &gt;&gt;&gt;&gt;&gt; #x7FFF82FFFD68&gt;)) 205<br>&gt; &gt;&gt;&gt;&gt;&gt; (#:G3072 #:G3073)<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G3072: #&lt;LISP-APPLICATION &lt;LispApplication: <br>&gt; 0x1c3580&gt; (#x1C3580)&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G3073: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #&lt;A Foreign<br>&gt; &gt;&gt;&gt;&gt;&gt; Pointer #x7FFF82FFFD68&gt;)<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442F28) : 11 (FUNCALL #'#&lt;(:INTERNAL CCL::SEND-<br>&gt; UNAMBIGUOUS-MESSAGE<br>&gt; &gt;&gt;&gt;&gt;&gt; (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION <br>&gt; T)))&gt; #&lt;LISP-<br>&gt; &gt;&gt;&gt;&gt;&gt; APPLICATION &lt;LispApplication: 0x1c3580&gt; (#x1C3580)&gt;) 501<br>&gt; &gt;&gt;&gt;&gt;&gt; (CCL::RECEIVER &amp;REST CCL::ARGS)<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::RECEIVER: #&lt;LISP-APPLICATION &lt;LispApplication: <br>&gt; 0x1c3580&gt;&gt;&gt;&gt;&gt;&gt; (#x1C3580)&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::ARGS: NIL<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::SELECTOR: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL <br>&gt; #&lt;A Foreign<br>&gt; &gt;&gt;&gt;&gt;&gt; Pointer #x7FFF82FFFD68&gt;)<br>&gt; &gt;&gt;&gt;&gt;&gt; FUNCTION: #&lt;Anonymous Function #x30004122027F&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; (442F68) : 12 (EVENT-LOOP NIL) 413<br>&gt; &gt;&gt;&gt;&gt;&gt; (&amp;OPTIONAL GUI::END-TEST)<br>&gt; &gt;&gt;&gt;&gt;&gt; GUI::END-TEST: NIL<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; GUI::APP: #&lt;LISP-APPLICATION &lt;LispApplication: <br>&gt; 0x1c3580&gt; (#x1C3580)&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt; *BREAK-ON-ERRORS*: NIL<br>&gt; &gt;&gt;&gt;&gt;&gt; #:G163537: (ERROR)<br>&gt; &gt;&gt;&gt;&gt;&gt; CCL::%HANDLERS%: ((ERROR))<br>&gt; &gt;&gt;&gt;&gt;&gt; GUI::*EVENT-PROCESS-REPORTED-CONDITIONS*: (#&lt;SIMPLE-ERROR<br>&gt; &gt;&gt;&gt;&gt;&gt; #x3000420F8DBD&gt;)<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; Am 09.06.2009 um 02:44 schrieb Ron Garret:<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; [This may be a repeat, but the original never showed up <br>&gt; in my<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; inbox.&nbsp; Also, there's an update at the end.]<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; On Jun 8, 2009, at 11:32 AM, Arthur W Cater wrote:<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; Use #/addTrackingRect:owner:userData:assumeInside: with<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; - the view<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; - its #/bounds<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; - a ns-object as target<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; - ccl::+null-ptr+<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; - #$NO<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; Then<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; (objc:define-objc-method ((:void :mouse-entered (:id event))<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; &lt;theTargetClassYouUsed&gt;) ...)<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt;&gt; likewise :mouse-exited and :mouse-move<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; Thanks!&nbsp; Updated version enclosed. This has been <br>&gt; tested in 32-bit<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; CCL, and should now work on Tiger as well.<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; This version also fixes a bug whereby testviews did not get<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; properly re-initialized to add a tracker when the class got<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; redefined.&nbsp; I was using an initialize-instance <br>&gt; :after method when<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; I should have been using shared initialize -- I <br>&gt; think.&nbsp; There is<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; still a subtle bug which I can't figure out.&nbsp; When <br>&gt; you add a<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; highlighted mixin to an existing testview instance, you <br>&gt; have to<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; click on it once before it starts to highlight <br>&gt; itself.&nbsp; I have no<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; idea why this is happening.&nbsp; I may not be using <br>&gt; shared-initialize<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; properly.&nbsp; Maybe a CLOS wizard can help with some <br>&gt; advice on the<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; proper way to do this.<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; UPDATE: it turns out that the reason for this is that calling<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; shared-initialize is done lazily.&nbsp; So until there is an<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; interaction with the updated object it doesn't get re-<br>&gt; initialized,&gt;&gt;&gt;&gt;&gt;&gt; so add-tracker doesn't get called, so the <br>&gt; event that would<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; normally cause the interaction never gets received.&nbsp; <br>&gt; Makes an<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; interesting little puzzle.<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; rg<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; &lt;draggable.lisp&gt;<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; _______________________________________________<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; Openmcl-devel mailing list<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; Openmcl-devel@clozure.com<br>&gt; &gt;&gt;&gt;&gt;&gt;&gt; http://clozure.com/mailman/listinfo/openmcl-devel<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; Rainer Joswig, Hamburg, Germany<br>&gt; &gt;&gt;&gt;&gt;&gt; http://lispm.dyndns.org/<br>&gt; &gt;&gt;&gt;&gt;&gt; mailto:joswig@lisp.de<br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; Rainer Joswig, Hamburg, Germany<br>&gt; &gt;&gt;&gt; http://lispm.dyndns.org/<br>&gt; &gt;&gt;&gt; mailto:joswig@lisp.de<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; _______________________________________________<br>&gt; &gt;&gt;&gt; Openmcl-devel mailing list<br>&gt; &gt;&gt;&gt; Openmcl-devel@clozure.com<br>&gt; &gt;&gt;&gt; http://clozure.com/mailman/listinfo/openmcl-devel<br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt;&gt; <br>&gt; &gt;&gt; _______________________________________________<br>&gt; &gt;&gt; Openmcl-devel mailing list<br>&gt; &gt;&gt; Openmcl-devel@clozure.com<br>&gt; &gt;&gt; http://clozure.com/mailman/listinfo/openmcl-devel<br>&gt; &gt;<br>&gt; _______________________________________________<br>&gt; Openmcl-devel mailing list<br>&gt; Openmcl-devel@clozure.com<br>&gt; http://clozure.com/mailman/listinfo/openmcl-devel</div>