<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>I am pretty sure this is not relevant to your specific problem but as far as I can tell none of the easygui examples worked for me in 1.3r1 because of the ns-string issue (Lisp string no longer being converted automatically in NSString. Trivial problem to fix but strange to find that the example folder had not been updated as part of the release.</div><div><br></div><div>We did update the Lisp User Interface (LUI) to work with 1.3. I will post at some time</div><div><br></div><div>alex</div><div><br></div><br><div><div>On Mar 19, 2009, at 3:39 AM, Arthur W Cater wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="font-family: Monaco; font-size: 14px; ">Hi,<br><br>I've developed some code on my ppc powerbook using cclv1.2 that I'm testing on darwinx8664 before uploading it.<br>I have a problem trying to #/performClose: a window, where the window is an instance of Cocoa-Window<br>which I have defined as a subclass of ns:ns-window, and ccl:+null-ptr+ is used as 'sender'.</span><div><span class="Apple-style-span" style="font-family: Monaco; font-size: 14px; ">Perform-Close is one of my new functions.<br><br>This works on 32-bit ppc with CCL1.2 r11813M, not with CCL1.3 r11820M on x8664, where I get<br><br><br>? (easygui::perform-close easygui::*w)<br>> Error: #<PARSE-UNKNOWN-TYPE unknown type (@METACLASS CocoaWindow)><br>> While executing: #<Anonymous Function #x3000413D05DF>, in process Listener(11).<br>> Type :POP to abort, :R for a list of available restarts.<br>> Type :? for other options.<br>1 > :b<br>(23160A50) : 0 (FUNCALL #'#<Anonymous Function #x3000413D05DF> #<COCOA-WINDOW [NIL] #x300041EC4E3D> #S(CCL::OBJC-SELECTOR :NAME "performClose:" :%SEL #<A Foreign Pointer #x7FFF815A9DB0>) #<A Null Foreign Pointer>) 429<br>(23160A78) : 1 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<COCOA-WINDOW [NIL] #x300041E7FEFD> #<A Null Foreign Pointer>) 501<br>(23160AB8) : 2 (FUNCALL #'#<#<STANDARD-METHOD EASYGUI:PERFORM-CLOSE (EASYGUI:WINDOW)>> #<EASYGUI::VIEW-HIERARCHY-DEMO-WINDOW #x300041E808DD>) 397<br>(23160AD8) : 3 (CALL-CHECK-REGS EASYGUI:PERFORM-CLOSE #<EASYGUI::VIEW-HIERARCHY-DEMO-WINDOW #x300041E808DD>) 229<br>(23160B10) : 4 (TOPLEVEL-EVAL (EASYGUI:PERFORM-CLOSE EASYGUI::*W) NIL) 733<br>(23160BB0) : 5 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x300041A34C2D> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x300041A34ACD> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global) #x3000404E6BFF>) 2069<br><snip><br>1 > :raw 1<br>(23160A78) : 1 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<COCOA-WINDOW [NIL] #x300041DA80FD> #<A Null Foreign Pointer>) 501<br> 0 CCL::SELECTOR: #S(CCL::OBJC-SELECTOR :NAME "performClose:" :%SEL #<A Foreign Pointer #x7FFF815A9DB0>) (:INHERITED)<br> 1 FUNCTION: #<Anonymous Function #x3000413D05DF> (:INHERITED)<br> 2 CCL::RECEIVER: #<COCOA-WINDOW [NIL] #x300041DA80FD> ("required")<br> 3 CCL::ARGS: (#<A Null Foreign Pointer>) ("rest")<br> 4 : #<Anonymous Function #x3000413D05DF><br><br></span><div><span class="Apple-style-span" style="font-family: Monaco; font-size: 14px; ">I then installed CCLv1.3 r11824 on my 32-bit ppc, and it doesn't work there either.</span></div><div><span class="Apple-style-span" style="font-family: Monaco; font-size: 14px; ">The backtrace is virtually the same except it has an extra line at the beginning:</span></div><div><span class="Apple-style-span" style="font-family: Monaco; font-size: 14px; "><div> (F0300B80) : 0 (CHECK-NS-EXCEPTION #<A Foreign Pointer [stack-allocated] (:* #) #x3E3A690>) 336</div><div><br></div><br>Two kinds of explanation come to my mind:<br>1 - perhaps something that has happened in other bits of my code has corrupted memory;<br> after all I don't see any reason for any parsing to be taking place<br>2 - perhaps something is different in the objc bridge other than it no longer converting lisp strings<br> to nsstrings: that's the only thing I notice in the v1.3 release notes.<br><br>Any insight would be much appreciated.<br><br>Arthur<br></span></div></div> _______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>http://clozure.com/mailman/listinfo/openmcl-devel<br></blockquote></div><br><div apple-content-edited="true"> <span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">Prof. Alexander Repenning</font></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px">University of Colorado</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Computer Science Department</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Boulder, CO 80309-430</p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">vCard: <a href="http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf">http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf</a></font></p><br class="Apple-interchange-newline"></span></span></span></div></span> </div><br></body></html>