[Openmcl-devel] New snapshots available

[Gary Byers]

That looks like a bug; something's trying to look up NIL in a binary
tree full of ObjC classes.

Ah, I get it: we're processing new interfaces, and trying to see
what new "init" messages need to have helper functions compiled for them.
Unfortunately, we're doing this before we've learned about the new
classes provided by the framework.

I'll try to check in a fix soon and will reply to this message when I
do.

What we want to do in general to introduce an add-on framework is:

a) use the headers and update method signatures

b) find and open the shared library associated with the framework

c) process the classes introduced in (b)

d) cache information about init messages.

I think that (d) is probably happening as part of (a)

On Thu, 15 Feb 2007, Phil wrote:

> I'm having problems loading frameworks with the latest snapshot after 
> rebuilding my CDB files.  Is this a bug in the snapshot or has the process to 
> load frameworks/interfaces changed?
>
>> Error: value NIL is not of the expected type MACPTR.
>> While executing: %PTR-EQL, in process listener(1).
>> Type :GO to continue, :POP to abort, :R for a list of available restarts.
>> If continued: Skip loading init file.
>> Type :? for other options.
>
> 1 > :b
> (F01359B0) : 0 (%PTR-EQL NIL #<OBJC:OBJC-CLASS NS:NS-KEYED-UNARCHIVER 
> (#xA295FE58)>) 40
> (F01359B0) : 1 (BINARY-TREE-GET #<SPLAY-TREE count = 350, root = #<TREE-NODE 
> #<OBJC:OBJC-CLASS NS:NS-KEYED-UNARCHIVER (#xA295FE58)> -> 163 #x8A86E7E> 
> #x8903C9E> NIL) 124
> (F01359C0) : 2 (SPLAY-TREE-GET #<SPLAY-TREE count = 350, root = #<TREE-NODE 
> #<OBJC:OBJC-CLASS NS:NS-KEYED-UNARCHIVER (#xA295FE58)> -> 163 #x8A86E7E> 
> #x8903C9E> NIL [...]) 68
> (F01359E0) : 4 (FUNCALL #'#<CCL::OBJC-CLASS-ID> NIL) 220
> (F0135A00) : 5 (CANONICALIZE-REGISTERED-CLASS NIL) 32
> (F0135A10) : 6 (REGISTER-OBJC-INIT-MESSAGE #S(CCL::OBJC-MESSAGE-INFO 
> :MESSAGE-NAME "initWithName:webFrameView:webView:" :METHODS (#<# -[# #] 
> #x91245BE>) ...)) 624
> (F0135A20) : 7 (REGISTER-OBJC-INIT-MESSAGES) 180
> (F0135A40) : 9 (UPDATE-OBJC-METHOD-INFO) 48
> (F0135A50) : 10 (REQUIRE-COCOA-FRAMEWORK "WebKit" [...]) 112
> (F0135A70) : 12 (CALL-CHECK-REGS 'REQUIRE-COCOA-FRAMEWORK [...]) 72
> (F0135A80) : 13 (FUNCALL #'#<CCL::PROGN-IN-ENV> '(# # # # # ...) 
> #<CCL::LEXICAL-ENVIRONMENT #x910C376> #<CCL::LEXICAL-ENVIRONMENT #x9110366>) 
> 168
> (F0135AA0) : 15 (CHEAP-EVAL-IN-ENVIRONMENT '(EVAL-WHEN # # # # ...) 
> #<CCL::LEXICAL-ENVIRONMENT #x910C376>) 1520
> (F0135AB0) : 16 (LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM 
> ("/Users/Shared/local/src/Languages/Lisp/Lisp-Dev/pb-util-cocoa.lisp"/12 
> ISO-8859-1) #x910C62E> #<CCL::LEXICAL-ENVIRONMENT #x9110366>) 224
> (F0135AC0) : 17 (%LOAD 
> #P"/Users/Shared/local/src/Languages/Lisp/Lisp-Dev/pb-util-cocoa.lisp" 
> #<CCL::DESTRUCTURE-STATE #x7387F6> 'EVAL-WHEN :ERROR :DEFAULT) 1520
> (F0135AF0) : 19 (LOAD 
> "/Users/Shared/local/src/Languages/Lisp/Lisp-Dev/pb-util-cocoa.lisp" [...]) 
> 656
> (F0135B10) : 20 (FUNCALL #'#<Anonymous Function #x90AE386>) 92
> (F0135B20) : 21 (LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM 
> ("/Users/Shared/local/src/Languages/Lisp/Lisp-Dev/pb-init.lisp"/11 
> ISO-8859-1) #x8511E3E> #<RESTART CCL::SKIP-LOAD #x7388FE>) 224
> (F0135B30) : 22 (%LOAD 
> #P"/Users/Shared/local/src/Languages/Lisp/Lisp-Dev/pb-init.lisp" NIL 
> #<RESTART CCL::RETRY-LOAD #x7388D6> :ERROR :DEFAULT) 1520
> (F0135B60) : 24 (LOAD 
> "/Users/Shared/local/src/Languages/Lisp/Lisp-Dev/pb-init.lisp" [...]) 656
> (F0135B90) : 26 (CALL-CHECK-REGS 'LOAD [...]) 72
> (F0135BA0) : 27 (LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM 
> ("/Users/phil/openmcl-init.lisp"/10 ISO-8859-1) #x8512666> #<RESTART 
> CCL::SKIP-LOAD #x738A36>) 224
> (F0135BB0) : 28 (%LOAD #P"/Users/phil/openmcl-init.lisp" NIL #<RESTART 
> CCL::RETRY-LOAD #x738A0E> NIL :DEFAULT) 1520
> (F0135BE0) : 30 (LOAD "home:openmcl-init" [...]) 656
> (F0135C00) : 31 (STARTUP-CCL [...]) 428
> (F0135C30) : 32 (FUNCALL #'#<Anonymous Function #x816FD46>) 56
> (F0135C50) : 34 (FUNCALL #'#<Anonymous Function #x820CD76>) 356
> (F0135C70) : 35 (RUN-PROCESS-INITIAL-FORM #<PROCESS listener(1) [Active] 
> #x850D45E> '(#)) 400
> (F0135CB0) : 37 (FUNCALL #'#<Anonymous Function #x81772DE> #<PROCESS 
> listener(1) [Active] #x850D45E> '(#)) 152
> (F0135CD0) : 38 (FUNCALL #'#<Anonymous Function #x81612B6>) 172
>
> Thanks,
> Phil
>
>