Im having a problem loading file using cffi-luis-051205-0148/ (the file works with cffi-luis-051114-1956. ) the error happens when i eval my first defcstruct: (cffi:defcstruct tmidi-sex-1 (link midi-sexptr) (data byte 11))
Here is a trace in openmcl 1.0/darwin. the problem also occurs in linux sbcl 0.9.7 and cmucl 19c:
? (cffi:defcstruct tmidi-sex-1 (link midi-sexptr) (data byte 11))
? > Error in process listener(1): Odd length keyword list: (11)
While executing: CCL::CHECK-KEYWORDS Type :POP to abort.
Type :? for other options. 1 > (:b t) (F0135BE0) : 0 "CCL::CHECK-KEYWORDS" 308 0 : 4 ("saved SAVE0") 1 : (11) ("saved SAVE1") 2 : NIL ("saved SAVE2") 3 : (DATA BYTE 11) ("saved SAVE3") 4 : NIL ("saved SAVE4") 5 : 4 ("saved SAVE5")
(F0135BF0) : 1 "CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION" 348 0 CFFI::NAME-AND-OPTIONS: TMIDI-SEX-1 ("required") 1 CFFI::SLOTS: ((LINK MIDI-SEXPTR) (DATA BYTE 11)) ("required") 2 : (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'TMIDI-SEX-1 '((LINK MIDI-SEXPTR) (DATA BYTE 11)))) ("saved SAVE0") 3 : (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) ("saved SAVE1") 4 : NIL ("saved SAVE2") 5 : EVAL-WHEN ("saved SAVE3") 6 : #<CCL::DESTRUCTURE-STATE #x294B76> ("saved SAVE4") 7 : ((:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'TMIDI-SEX-1 '((LINK MIDI-SEXPTR) (DATA BYTE 11)))) ("saved SAVE5") 8 : ((CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'TMIDI-SEX-1 '((LINK MIDI-SEXPTR) (DATA BYTE 11)))) ("saved SAVE6") 9 : MACROEXPAND-1 ("saved SAVE7") 10 #:WHOLE495: (TMIDI-SEX-1) 11 #:ARGS496: #<CCL::DESTRUCTURE-STATE #x294AF6> 12 CFFI::NAME: TMIDI-SEX-1 13 #:KEYS497: NIL 14 CFFI::SIZE: NIL 15 CFFI::STRUCT: #<FOREIGN-STRUCT-TYPE TMIDI-SEX-1> 16 CFFI::SLOTNAME: DATA
(F0135C00) : 2 NIL NIL
(F0135C10) : 3 "CCL::CALL-CHECK-REGS" 72 0 CCL::FN: CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION ("required") 1 CCL::ARGS: (TMIDI-SEX-1 ((LINK MIDI-SEXPTR) (DATA BYTE 11))) ("rest") 2 CCL::OLD-REGS: ((EVAL-WHEN . #2=(#1=(:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #3=((CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'TMIDI-SEX-1 '((LINK MIDI-SEXPTR) (DATA BYTE 11)))))) #1# NIL EVAL-WHEN #<CCL::DESTRUCTURE-STATE #x294B76> #2# #3# MACROEXPAND-1) 3 : CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION
(F0135C20) : 4 NIL NIL
(F0135C30) : 5 "CCL::CHEAP-EVAL-IN-ENVIRONMENT" 1536 0 : #<SVAR *PACKAGE* 43 #x802740E> ("saved SAVE0") 1 : #<SYNONYM-STREAM to *TERMINAL-IO* #x838935E> ("saved SAVE1") 2 : (NIL) ("saved SAVE2") 3 : (BYTE) ("saved SAVE3") 4 : 0 ("saved SAVE4") 5 : T ("saved SAVE5") 6 : #<SYNONYM-STREAM to *TERMINAL-IO* #x8389296> ("saved SAVE6") 7 : #<Anonymous Function #x80E8E4E> ("saved SAVE7")
(F0135C40) : 6 NIL NIL
(F0135C50) : 7 "CCL::TOPLEVEL-EVAL" 152 0 CCL::FORM: (CFFI:DEFCSTRUCT TMIDI-SEX-1 (LINK MIDI-SEXPTR) (DATA BYTE 11)) ("required") 1 : NIL ("optional") 2 : (CFFI:DEFCSTRUCT TMIDI-SEX-1 (LINK MIDI-SEXPTR) (DATA BYTE 11)) ("saved SAVE0") 3 CCL:*LOADING-FILE-SOURCE-FILE*: NIL (:SAVED-SPECIAL) 4 PACKAGE: #<Package "MIDISHARE">
(F0135C60) : 8 "CCL::READ-LOOP" 848 0 : 0 ("keyword") 1 : T ("key-supplied-p") 2 : NIL ("keyword") 3 : NIL ("key-supplied-p") 4 : #<SYNONYM-STREAM to *TERMINAL-IO* #x838935E> ("keyword") 5 : T ("key-supplied-p") 6 : #<SYNONYM-STREAM to *TERMINAL-IO* #x8389296> ("keyword") 7 : T ("key-supplied-p") 8 : #S(CCL::SHARED-RESOURCE :NAME "Shared Terminal Input" :LOCK #<RECURSIVE-LOCK [ptr @ #x301880] #x8389206> :PRIMARY-OWNER #<PROCESS listener(1) [Active] #x8388F66> :PRIMARY-OWNER-NOTIFY #<CCL:SEMAPHORE #x83891D6> :CURRENT-OWNER NIL :REQUESTORS #<DLL-HEADER #x83891C6>) ("saved SAVE0") 9 : #<SVAR CCL::*AUTO-FLUSH-STREAMS* 366 #x811DA5E> ("saved SAVE1") 10 : #<A Mac Pointer #x300A80> ("saved SAVE2") 11 : 0 ("saved SAVE3") 12 : 0 ("saved SAVE4") 13 : 0 ("saved SAVE5") 14 : 0 ("saved SAVE6") 15 : 0 ("saved SAVE7") 16 CCL::*BREAK-LEVEL*: 0 (:SAVED-SPECIAL) 17 CCL::*LAST-BREAK-LEVEL*: 0 (:SAVED-SPECIAL) 18 CCL:*LOADING-FILE-SOURCE-FILE*: "ccl:l1;l1-boot-3.lisp.newest" (:SAVED-SPECIAL) 19 CCL::*IN-READ-LOOP*: NIL (:SAVED-SPECIAL) 20 ***: NIL (:SAVED-SPECIAL) 21 **: NIL (:SAVED-SPECIAL) 22 *: NIL (:SAVED-SPECIAL) 23 +++: NIL (:SAVED-SPECIAL) 24 ++: NIL (:SAVED-SPECIAL) 25 +: NIL (:SAVED-SPECIAL) 26 ///: NIL (:SAVED-SPECIAL) 27 //: NIL (:SAVED-SPECIAL) 28 /: NIL (:SAVED-SPECIAL) 29 -: NIL (:SAVED-SPECIAL) 30 #:ABORT-BREAK: #<RESTART CCL:ABORT-BREAK #x294CBE> 31 #:ABORT: #<RESTART ABORT #x294C96> 32 #:G24872: (#<RESTART ABORT #x294C96> #<RESTART CCL:ABORT-BREAK #x294CBE>) 33 CCL::%RESTARTS%: ((#<RESTART CCL:ABORT-BREAK #x294DF6> #<RESTART ABORT #x294E1E>)) (:SAVED-SPECIAL) 34 : (CFFI:DEFCSTRUCT TMIDI-SEX-1 (LINK MIDI-SEXPTR) (DATA BYTE 11)) 35 CCL::PATH: NIL 36 : T
(F0135CA0) : 9 "CCL:TOPLEVEL-LOOP" 88
(F0135CC0) : 10 "Anonymous Function #x80D2DBE" 68 0 CCL::INIT-FILE: "home:openmcl-init" (:INHERITED)
(F0135CD0) : 11 NIL NIL
(F0135CE0) : 12 "Anonymous Function #x811DA6E" 728 0 CCL::CLOSE-STREAMS: NIL (:INHERITED) 1 CCL::CLEANUP-FUNCTION: #<CCL:COMPILED-LEXICAL-CLOSURE #x838912E> (:INHERITED) 2 CCL::INITIAL-FUNCTION: #<CCL:COMPILED-LEXICAL-CLOSURE #x8389116> (:INHERITED) 3 CCL:OUTPUT-STREAM: #<FD-CHARACTER-OUTPUT-STREAM (TTY/1) #x83896EE> (:INHERITED) 4 CCL:INPUT-STREAM: #<FD-CHARACTER-INPUT-STREAM (TTY/0) #x8389966> (:INHERITED) 5 : (#<RESTART CCL:ABORT-BREAK #x294DF6> #<RESTART ABORT #x294E1E>) ("saved SAVE0") 6 : #<PROCESS listener(1) [Active] #x8388F66> ("saved SAVE1") 7 : #<RESTART CCL:ABORT-BREAK #x294DF6> ("saved SAVE2") 8 *TERMINAL-IO*: #<ECHOING-TWO-WAY-STREAM input #<FD-CHARACTER-INPUT-STREAM (TTY/0) #x8389966>, output #<FD-CHARACTER-OUTPUT-STREAM (TTY/1) #x83896EE> #x8389436> (:SAVED-SPECIAL)
(F0135D00) : 13 "CCL::RUN-PROCESS-INITIAL-FORM" 400 0 CCL::INITIAL-FORM: (#<CCL:COMPILED-LEXICAL-CLOSURE #x8388E86>) ("required") 1 : #<PROCESS listener(1) [Active] #x8388F66> ("saved SAVE0") 2 : 0 ("saved SAVE1") 3 : 0 ("saved SAVE2") 4 CCL::EXITED: NIL 5 #:G51: (CCL:PROCESS-RESET) 6 CCL::%HANDLERS%: NIL (:SAVED-SPECIAL) 7 #:ABORT: #<RESTART ABORT #x294E1E> 8 CCL::%RESTARTS%: NIL (:SAVED-SPECIAL) 9 : #<CCL:COMPILED-LEXICAL-CLOSURE #x8388E86>
(F0135D30) : 14 NIL NIL
(F0135D40) : 15 "Anonymous Function #x80DB61E" 152 0 CCL::INITIAL-FORM: (#<CCL:COMPILED-LEXICAL-CLOSURE #x8388E86>) ("required") 1 : 0 ("saved SAVE0") 2 CCL:*CURRENT-PROCESS*: #<PROCESS Initial(0) [Active] #x80DC106> (:SAVED-SPECIAL) 3 CCL::SYMS: (CCL::*FREE-XPS* CCL::*FREE-CIRCULARITY-HASH-TABLES* CCL::*OPERAND-VECTOR-FREELIST* CCL::*LAP-INSTRUCTION-FREELIST* CCL::*LAP-LABEL-FREELIST* CCL::*VINSN-VARPARTS* CCL::*VINSN-LABEL-FREELIST* CCL::*VINSN-FREELIST* CCL::*LCELL-FREELIST* CCL::*LREG-FREELIST* CCL::%TOKEN-STRINGS% *READTABLE* CCL::*BACKTRACE-CONTEXTS* CCL::*FAKE-STACK-FRAMES* CCL::*CONS-POOL* *PACKAGE*) 4 VALUES: (NIL NIL #<POOL #x838BD16> #<POOL #x838BCFE> #<POOL #x838BCE6> #<POOL #x838BCCE> #<POOL #x838BCB6> #<POOL #x838BC9E> #<POOL #x838BC86> #<POOL #x838BC6E> #<POOL #x838BC56> #<READTABLE #x80E1216> NIL NIL #<POOL #x838BC0E> #<Package "COMMON-LISP-USER">)
(F0135D60) : 16 "Anonymous Function #x80CE806" 172 0 CCL::TCR: 788032 (:INHERITED) 1 CCL::THREAD: #<LISP-THREAD listener [tcr @ #x301900] #x838906E> (:INHERITED) 2 CCL::*CURRENT-LISP-THREAD*: #<LISP-THREAD Initial [tcr @ #x300430] #x80CEAB6> (:SAVED-SPECIAL) 3 CCL::INITIAL-FUNCTION: (#<Anonymous Function #x80DB61E> #<PROCESS listener(1) [Active] #x8388F66> (#<CCL:COMPILED-LEXICAL-CLOSURE #x8388E86>)) 4 : #<Anonymous Function #x80DB61E>
1 >