[cl-plus-ssl-devel] Problem loading bio.lisp

[Leslie P. Polzer]

Versions:

  cl+ssl -- latest
  cffi   -- Wed Dec 31 02:57:14 CET 2008
  libssl -- 0.9.8 / libssl3


debugger invoked on a SB-INT:SIMPLE-PROGRAM-ERROR in thread #<THREAD "initial thread"
RUNNING {A8E9769}>:
  invalid number of arguments: 2

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {BF59EB9}> on
              #<ASDF:CL-SOURCE-FILE "bio" {A93B7D9}>.
  1: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {BF59EB9}> on
              #<ASDF:CL-SOURCE-FILE "bio" {A93B7D9}> as having been successful.
  2: [ABORT ] Exit debugger, returning to top level.

(CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION
 BIO-METHOD
 ((TYPE :INT) (NAME :POINTER) (BWRITE :POINTER) (BREAD :POINTER)
  (BPUTS :POINTER) (BGETS :POINTER) (CTRL :POINTER) (CREATE :POINTER)
  (DESTROY :POINTER) (CALLBACK-CTRL :POINTER)))[:EXTERNAL]
0] :ba

0: (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION
    BIO-METHOD
    ((TYPE :INT) (NAME :POINTER) (BWRITE :POINTER) (BREAD :POINTER)
     (BPUTS :POINTER) (BGETS :POINTER) (CTRL :POINTER) (CREATE :POINTER)
     (DESTROY :POINTER) (CALLBACK-CTRL :POINTER)))[:EXTERNAL]
1: (SB-FASL::LOAD-FASL-GROUP
    #<SB-SYS:FD-STREAM for "file
/home/sky/projects/lisp/clbuild/source/cl+ssl/sbcl-1.0.22-linux-x86/bio.fasl"
{BC411B9}>)
2: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
3: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]508))
4: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
    #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {B77DA3B5}>
    #S(SB-THREAD:MUTEX
       :NAME "big compiler lock"
       :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {A8E9769}>
       :STATE 1))
5: (SB-FASL::LOAD-AS-FASL
    #<SB-SYS:FD-STREAM for "file
/home/sky/projects/lisp/clbuild/source/cl+ssl/sbcl-1.0.22-linux-x86/bio.fasl"
{BC411B9}>
    NIL
    #<unavailable argument>)
6: ((FLET SB-FASL::LOAD-STREAM)
    #<SB-SYS:FD-STREAM for "file
/home/sky/projects/lisp/clbuild/source/cl+ssl/sbcl-1.0.22-linux-x86/bio.fasl"
{BC411B9}>)
7: (LOAD
    #P"/home/sky/projects/lisp/clbuild/source/cl+ssl/sbcl-1.0.22-linux-x86/bio.fasl")[:EXTERNAL]
8: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE))
    #<unavailable argument>
    #<unavailable argument>
    #<ASDF:LOAD-OP NIL {BF59EB9}>
    #<ASDF:CL-SOURCE-FILE "bio" {A93B7D9}>)
9: ((LAMBDA
        (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
         SB-PCL::.ARG1.))
    #<unavailable argument>
    #<unavailable argument>
    #<ASDF:LOAD-OP NIL {BF59EB9}>
    #<ASDF:CL-SOURCE-FILE "bio" {A93B7D9}>)
10: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND
      (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE))
     #<unavailable argument>
     #S(SB-PCL::FAST-METHOD-CALL
        :FUNCTION #<CLOSURE # {AD4C385}>
        :PV NIL
        :NEXT-METHOD-CALL NIL
        :ARG-INFO (2))
     #<ASDF:LOAD-OP NIL {BF59EB9}>
     #<ASDF:CL-SOURCE-FILE "bio" {A93B7D9}>)
11: ((LAMBDA ()))
12: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
13: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]508))
14: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
     #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {B77DA8ED}>
     #S(SB-THREAD:MUTEX
        :NAME "big compiler lock"
        :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {A8E9769}>
        :STATE 1))
15: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {BC3CBB5}>)[:EXTERNAL]
16: (ASDF:OPERATE ASDF:TEST-OP COMMON-LISP-USER::WEBLOCKS)[:EXTERNAL]
17: (SB-INT:SIMPLE-EVAL-IN-LEXENV
     (ASDF:OOS 'ASDF:TEST-OP 'COMMON-LISP-USER::WEBLOCKS)
     #<NULL-LEXENV>)
18: (SB-EXT:INTERACTIVE-EVAL
     (ASDF:OOS 'ASDF:TEST-OP 'COMMON-LISP-USER::WEBLOCKS))
19: (SB-ACLREPL::REP-ONE)
20: (SB-ACLREPL::REPL)[:EXTERNAL]
21: ((LAMBDA (SB-ACLREPL::NOPRINT)) NIL)
22: ((LAMBDA ()))
23: ((LAMBDA ()))[:EXTERNAL]
24: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {AF2A50D}>)
25: (SB-IMPL::TOPLEVEL-REPL NIL)
26: (SB-IMPL::TOPLEVEL-INIT)
27: ((LABELS SB-IMPL::RESTART-LISP))