[Openmcl-devel] One-time problem

Wed Apr 3 04:40:33 PDT 2013

I don't know, but I think that it's generally wise to develop an almost
superstitious fear of doing any GUI things in any thread but the event
thread (and creating an NSOpenPanel - even if you don't display it - may
count as "doing a GUI thing.")

If this only happens very infrequently, it may be hard to know whether
that's indeed the problem, but if you change your code and it ever happens
again, we'd at least know what the problem isn't.

On Tue, 2 Apr 2013, Paul Krueger wrote:

> I ran into a one-time problem that I don't quite know what to make of. When loading some code that I have used without problems for some time I got an Objective-C runtime exception. The relevant issue starts at level 6 in the backtrace shown below. The Lisp form that was being executed at that point was a pretty generic:
> 	(make-instance ns:ns-open-panel)
>
> After popping out of the error I was able to type that same form into the listener without problem. I got out and back into lisp and loaded everything without incident. The problem is apparently not reproducible. I'm sending this in the off chance that the backtrace will be useful to somebody else.
>
> Welcome to Clozure Common Lisp Version 1.9-dev-r15567M-trunk  (DarwinX8664)!
> ? (require :loan-doc)
>> Error: Objective-C runtime exception:
>>        *** -[__NSArrayM removeObjectAtIndex:]: index 16 beyond bounds [0 .. 15]
>> While executing: #<Anonymous Function #x300000F9EEEF>, in process Listener(4).
>> Type cmd-. to abort, cmd-\ for a list of available restarts.
>> Type :? for other options.
> 1 > :b
> (25DD71A8) : 0 (FUNCALL #'#<Anonymous Function #x300000F9EEEF> #<NS-OPEN-PANEL <NSOpenPanel: 0x23700a30> (#x23700A30)> #S(CCL::OBJC-SELECTOR :NAME "initWithContentRect:styleMask:backing:defer:" :%SEL #<A Foreign Pointer #x7FFF949EB44F>) #<NS-RECT 500 X 200 @ 200,200 [gcable] (#x1F1A30) #x30200158601D> 15 2 T) 597
> (25DD71E8) : 1 (FUNCALL #'#<(:OBJC-DISPATCH NEXTSTEP-FUNCTIONS:|initWithContentRect:styleMask:backing:defer:|)> ???) 541
> (25DD7220) : 2 (SEND-INIT-MESSAGE-FOR-CLASS #<OBJC:OBJC-CLASS NS:NS-OPEN-PANEL (#x7FFF7B298EA8)> (:DEFER T :BACKING 2 :STYLE-MASK ...)) 1261
> (25DD7278) : 3 (%%CNM-WITH-ARGS-COMBINED-METHOD-DCODE #(#<STANDARD-GENERIC-FUNCTION ALLOCATE-INSTANCE #x30200002DB8F> (#<#> #<#>) (#<STANDARD-GENERIC-FUNCTION ALLOCATE-INSTANCE #x30200002DB8F> #) #<Compiled-function CCL::%%CNM-WITH-ARGS-CHECK-INITARGS #x3000001F6B3F> (#<#> #<#>)) (#<OBJC:OBJC-CLASS NS:NS-OPEN-PANEL (#x7FFF7B298EA8)> :DEFER T :BACKING 2 ...) (#(#<STANDARD-GENERIC-FUNCTION ALLOCATE-INSTANCE #x30200002DB8F> # # # #) (#<#>) . 79408752)) 917
> (25DD72D0) : 4 (%CALL-NEXT-METHOD-WITH-ARGS (#(#<STANDARD-GENERIC-FUNCTION ALLOCATE-INSTANCE #x30200002DB8F> # # # #) (#<#>) . 79408752) #<OBJC:OBJC-CLASS NS:NS-OPEN-PANEL (#x7FFF7B298EA8)> :DEFER T :BACKING 2 :STYLE-MASK 15 :WITH-CONTENT-RECT #<NS-RECT 500 X 200 @ 200,200 [gcable] (#x1F1A30) #x30200158601D>) 365
> (25DD7318) : 5 (%%CNM-WITH-ARGS-COMBINED-METHOD-DCODE #(#<STANDARD-GENERIC-FUNCTION ALLOCATE-INSTANCE #x30200002DB8F> (#<#> #<#>) (#<STANDARD-GENERIC-FUNCTION ALLOCATE-INSTANCE #x30200002DB8F> #) #<Compiled-function CCL::%%CNM-WITH-ARGS-CHECK-INITARGS #x3000001F6B3F> (#<#> #<#>)) 79408752 NIL) 1029
> (25DD7390) : 6 (FUNCALL #'#<#<STANDARD-METHOD MAKE-INSTANCE (OBJC:OBJC-CLASS-OBJECT)>> #<OBJC:OBJC-CLASS NS:NS-OPEN-PANEL (#x7FFF7B298EA8)>) 165
> (25DD73C0) : 7 (FUNCALL #'#<(INTERFACE-UTILITIES::INITIALIZE-DOC-CONTROLLER (LISP-DOC-CONTROLLER))> #<LISP-DOC-CONTROLLER <LispDocController: 0x1f5e70> (#x1F5E70)> :DOC-CLASS #<OBJC:OBJC-CLASS LOAN-DOC (#x20ECEA00)> :DELEGATE-CLASS NIL :DOC-TYPE "Loan" :FILE-EXT "loan" :APP-BUNDLE NIL) 509
> (25DD7458) : 8 (%%CHECK-KEYWORDS #(1 #(:APP-BUNDLE :FILE-EXT :DOC-TYPE :DELEGATE-CLASS :DOC-CLASS) #<COMPILED-LEXICAL-CLOSURE #<#> #x30200136FBDF>) 79408790) 221
> (25DD7510) : 9 (MAKE-DOC-CONTROLLER #<OBJC:OBJC-CLASS LOAN-DOC (#x20ECEA00)> NIL "Loan" "loan" NIL) 533
> (25DD7578) : 10 (CALL-CHECK-REGS MAKE-DOC-CONTROLLER #<OBJC:OBJC-CLASS LOAN-DOC (#x20ECEA00)> NIL "Loan" "loan") 221
> (25DD75B0) : 11 (CHEAP-EVAL-IN-ENVIRONMENT (SET '*LOAN-DOC-CONTROLLER* (MAKE-DOC-CONTROLLER # NIL "Loan" "loan")) #<CCL::LEXICAL-ENVIRONMENT #x3020015877ED>) 3453
> (25DD7600) : 12 (FUNCALL #'#<(:INTERNAL CCL::PROGN-IN-ENV CCL::CHEAP-EVAL-IN-ENVIRONMENT)> ((EVAL-WHEN # #) (CCL::%DEFVAR-INIT *LOAN-DOC-CONTROLLER* # NIL) '*LOAN-DOC-CONTROLLER*) #<CCL::LEXICAL-ENVIRONMENT #x302000E945DD> #<CCL::LEXICAL-ENVIRONMENT #x30200156E71D>) 285
> (25DD7650) : 13 (FUNCALL #'#<(:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM)>) 757
> (25DD76D8) : 14 (CALL-WITH-COMPILATION-UNIT #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x25EF9E5F> :OVERRIDE NIL) 197
> (25DD7720) : 15 (LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/Applications/ccl/contrib/cocoa-ide/krueger/InterfaceProjects/Loan Document/loan-doc.lisp"/9 UTF-8) #x302000E956CD> NIL) 357
> (25DD7760) : 16 (%LOAD #P"/Applications/ccl/contrib/cocoa-ide/krueger/InterfaceProjects/Loan Document/loan-doc.lisp" NIL NIL :ERROR :DEFAULT NIL) 5181
> (25DD78B8) : 17 (LOAD #P"/Applications/ccl/contrib/cocoa-ide/krueger/InterfaceProjects/Loan Document/loan-doc" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT :PRESERVE-OPTIMIZATION-SETTINGS NIL) 1021
> (25DD7960) : 18 (MODULE-PROVIDE-SEARCH-PATH :LOAN-DOC) 197
> (25DD7998) : 19 (SOME-XX-ONE 0 NIL #<COMPILED-LEXICAL-CLOSURE (:INTERNAL REQUIRE) #x302000E8F62F> (ASDF::MODULE-PROVIDE-ASDF CCL::MODULE-PROVIDE-SEARCH-PATH)) 581
> (25DD79F0) : 20 (REQUIRE :LOAN-DOC NIL) 773
> (25DD7A50) : 21 (CALL-CHECK-REGS REQUIRE :LOAN-DOC) 221
> (25DD7A88) : 22 (TOPLEVEL-EVAL (REQUIRE :LOAN-DOC) NIL) 693
> (25DD7B20) : 23 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x302000E1ACBD> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x302000E1AB5D> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x30000050FF9F>) 2269
> (25DD7D78) : 24 (RUN-READ-LOOP :BREAK-LEVEL 0) 157
> (25DD7DA0) : 25 (TOPLEVEL-LOOP) 101
> (25DD7DC8) : 26 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 645
> (25DD7E60) : 27 (RUN-PROCESS-INITIAL-FORM #<COCOA-LISTENER-PROCESS Listener(4) [Active] #x302000E83F5D> (#<COMPILED-LEXICAL-CLOSURE # #x302000E83A1F>)) 669
> (25DD7EF0) : 28 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS)))> #<COCOA-LISTENER-PROCESS Listener(4) [Active] #x302000E83F5D> (#<COMPILED-LEXICAL-CLOSURE # #x302000E83A1F>)) 573
> (25DD7F98) : 29 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 277
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel
>
>