[cl-objc-devel] Unknown CFFI type: OBJC-CFFI:OBJC-SEL.

Using the newest cl-objc-leopard (with the patch from Jean-Philippe) with sbcl 1.0.12 x86 under 10.5.2, executing:

(asdf:oos 'asdf:load-op :cl-objc)

begins to load through cffi:

CL-USER> (asdf:oos 'asdf:load-op :cl-objc) ; loading system definition from /Users/raffaelc/.sbcl/systems/cl- objc.asd ; into #<PACKAGE "ASDF0"> ; registering #<SYSTEM CL-OBJC {11C46F39}> as CL-OBJC ; registering #<SYSTEM CL-OBJC.EXAMPLES.HELLO-WORLD {11D5DC21}> as ; CL-OBJC.EXAMPLES.HELLO-WORLD ; registering #<SYSTEM CL-OBJC.EXAMPLES.CONVERTER {11F13469}> as ; CL-OBJC.EXAMPLES.CONVERTER ; registering #<SYSTEM CL-OBJC.EXAMPLES.CIRCLE-VIEW {120C5A61}> as ; CL-OBJC.EXAMPLES.CIRCLE-VIEW ; registering #<SYSTEM CL-OBJC.DOC {122CCC99}> as CL-OBJC.DOC ; registering #<SYSTEM CL-OBJC.TEST {11D65039}> as CL-OBJC.TEST ; loading system definition from /Users/raffaelc/.sbcl/systems/ memoize.asd ; into #<PACKAGE "ASDF0"> ; registering #<SYSTEM MEMOIZE {11F72051}> as MEMOIZE ; loading system definition from ; /Users/raffaelc/.sbcl/systems/closer-mop.asd into #<PACKAGE "ASDF0"> ; registering #<SYSTEM #:CLOSER-MOP {120A4331}> as CLOSER-MOP ; loading system definition from ; /Users/raffaelc/.sbcl/systems/lw-compat.asd into #<PACKAGE "ASDF0"> ; registering #<SYSTEM #:LW-COMPAT {121F21F1}> as LW-COMPAT ; loading system definition from /Users/raffaelc/.sbcl/systems/yacc.asd ; into #<PACKAGE "ASDF0"> ; registering #<SYSTEM #:YACC {12336F61}> as YACC ; loading system definition from /Users/raffaelc/.sbcl/systems/cffi.asd ; into #<PACKAGE "ASDF0"> ; registering #<SYSTEM CFFI {1249F991}> as CFFI

but then errors thus:

Execution of a form compiled with errors. Form: (DEFCFUN (sel_isMapped SEL-IS-MAPPED) BOOLEAN Returns true if a selector is registered in the ObjC runtime. (SEL OBJC-SEL)) Compile-time error: (during macroexpansion of (DEFCFUN ("sel_isMapped" SEL-IS- MAPPED) ...)) Unknown CFFI type: OBJC-SEL. [Condition of type SB-INT:COMPILED-PROGRAM-ERROR]

Restarts: 0: [RETRY] Retry performing #<ASDF:LOAD-OP NIL {1281AD29}> on #<ASDF:CL-SOURCE-FILE "cffi" {1181B561}>. 1: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {1281AD29}> on #<ASDF:CL-SOURCE-FILE "cffi" {1181B561}> as having been successful. 2: [ABORT-REQUEST] Abort handling SLIME request. 3: [ABORT] Exit debugger, returning to top level.

Backtrace: 0: (SB-FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for "file /Users/ raffaelc/.sbcl/site/cl-objc/src/cffi.fasl" {1274B239}>) 1: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)) 2: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /Users/ raffaelc/.sbcl/site/cl-objc/src/cffi.fasl" {1274B239}> NIL #<unavailable argument>) 3: (SB-FASL::INTERNAL-LOAD #P"/Users/raffaelc/.sbcl/site/cl-objc/ src/cffi.fasl" #P"/Users/raffaelc/.sbcl/site/cl-objc/src/ cffi.fasl" :ERROR NIL NIL :BINARY NIL) 4: (SB-FASL::INTERNAL-LOAD #P"/Users/raffaelc/.sbcl/site/cl-objc/ src/cffi.fasl" #P"/Users/raffaelc/.sbcl/site/cl-objc/src/ cffi.fasl" :ERROR NIL NIL NIL :DEFAULT) 5: (LOAD #P"/Users/raffaelc/.sbcl/site/cl-objc/src/cffi.fasl") 6: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:CL-SOURCE- FILE)) #<unavailable argument> #<unavailable argument> #<ASDF:LOAD-OP NIL {1281AD29}> #<ASDF:CL-SOURCE-FILE "cffi" {1181B561}>) 7: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument> #<ASDF:LOAD-OP NIL {1281AD29}> #<ASDF:CL-SOURCE-FILE "cffi" {1181B561}>) 8: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND (ASDF:LOAD-OP ASDF:CL- SOURCE-FILE)) #<unavailable argument> #S(SB-PCL::FAST-METHOD- CALL :FUNCTION #<CLOSURE (LAMBDA #) {125A2CF5}> :PV NIL :NEXT-METHOD- CALL NIL :ARG-INFO (2)) #<ASDF:LOAD-OP NIL {1281AD29}> #<ASDF:CL- SOURCE-FILE "cffi" {1181B561}>) 9: ((LAMBDA NIL)) 10: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)) 11: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {124E8D0D}>) 12: (ASDF:OPERATE ASDF:LOAD-OP :CL-OBJC) 13: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:OOS (QUOTE ASDF:LOAD-OP) :CL- OBJC) #<NULL-LEXENV>) 14: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op :cl-objc) " T) 15: ((LAMBDA NIL)) 16: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL) {11AF9C15}>) 17: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {11AF9C15}>) 18: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(asdf:oos 'asdf:load-op :cl-objc) ") #<NULL-LEXENV>) 19: ((LAMBDA NIL)) 20: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK- DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {11AF9005}>) 21: ((LAMBDA NIL)) 22: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK- DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {1238D535}>) 23: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {1171AD29}> #<CLOSURE (LAMBDA NIL) {11AF6B4D}>) 24: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {1171AD29}> #<FUNCTION (LAMBDA NIL) {1238D535}>) 25: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {1171AD29}>) 26: (SWANK::PROCESS-AVAILABLE-INPUT #<SB-SYS:FD-STREAM for "a socket" {117106A1}> #<CLOSURE (LAMBDA NIL) {11AF6B0D}>) 27: ((FLET SWANK::HANDLER)) 28: ((LAMBDA (SWANK-BACKEND::_)) #<unused argument>) 29: (SB-IMPL::SUB-SERVE-EVENT NIL NIL NIL) 30: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL) 31: (SB-IMPL::REFILL-INPUT-BUFFER #<SB-SYS:FD-STREAM for "standard input" {122792D1}>) 32: (SB-IMPL::INPUT-CHAR/UTF-8 #<SB-SYS:FD-STREAM for "standard input" {122792D1}> NIL #:EOF-OBJECT) 33: (READ-CHAR #<SB-SYS:FD-STREAM for "standard input" {122792D1}> NIL #:EOF-OBJECT #<unused argument>) 34: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {100BCC61}> NIL #:EOF-OBJECT #<unused argument>) 35: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD- INPUT* {11F2C909}> NIL #:EOF-OBJECT #<unused argument>) 36: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {11F2C909}> NIL (NIL) T) 37: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {11F2C909}> NIL (NIL) NIL) 38: (READ #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {11F2C909}> NIL (NIL) NIL) 39: (SB-IMPL::REPL-READ-FORM-FUN #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {11F2C909}> #<unavailable argument>) 40: (SB-IMPL::REPL-FUN NIL) 41: (SB-IMPL::REPL-FUN NIL) 42: ((LAMBDA NIL)) 43: ((LAMBDA NIL)) 44: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL) {11F39A3D}>) 45: (SB-IMPL::TOPLEVEL-REPL NIL) 46: (SB-IMPL::TOPLEVEL-INIT) 47: ((LABELS SB-IMPL::RESTART-LISP))

Any ideas what is happening here?

regards,

Ralph

Raffael Cavallaro, Ph.D. raffaelcavallaro@mac.com