[cffi-devel] problem with cffi-luis-051205-0148 ??

Wed Dec 7 20:30:20 UTC 2005

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 >