[cl-plus-ssl-devel] undefined function SB-ALIEN-INTERNALS:ALIEN-CALLBACK-ACCESSOR-FORM

[Alan Thompson]

cl-plus-ssl-devel at common-lisp.net

When loading cl+ssl (sbcl 0.9.16 on debian woody on a sparc architecture (an old Sun workstation); using cl-plus-ssl debian package version 20070116-2), I ended up with:

Compile-time error:
  (in macroexpansion of (SB-ALIEN-INTERNALS:ALIEN-CALLBACK # #))
(hint: For more precise location, try *BREAK-ON-SIGNALS*.)
The function SB-ALIEN-INTERNALS:ALIEN-CALLBACK-ACCESSOR-FORM is undefined.

The details of the error are below.

Thinking it might be associated with an older version of sbcl, I tried compiling sbcl 1.0.8 from source (using 0.9.16) and still ended up with complaints about ALIEN-CALLBACK-ACCESSOR-FORM.

It looks like something vaguely similar was reported once before (http://common-lisp.net/pipermail/cffi-devel/2005-September/000077.html).

Alan




Execution of a form compiled with errors.
Form:
  (ALIEN-CALLBACK (FUNCTION INT SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER INT)
                (LAMBDA (BIO BUF N)
                  (LET ((BIO (VALUES BIO)) (BUF (VALUES BUF)) (N (VALUES N)))
                    (BLOCK LISP-WRITE
                      BIO
                      (DOTIMES (I N)
                        (WRITE-BYTE (MEM-REF BUF UNSIGNED-CHAR I) *SOCKET*))
                      (FINISH-OUTPUT *SOCKET*) ..
   [Condition of type SB-INT:COMPILED-PROGRAM-ERROR]

Restarts:
 0: [RETRY] Retry performing #<ASDF:LOAD-OP NIL {310A4231}> on #<ASDF:CL-SOURCE-FILE "bio" {30136AC1}>.
 1: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {310A4231}> on #<ASDF:CL-SOURCE-FILE "bio" {30136AC1}> as having been successful.
 2: [ABORT] Return to SLIME's top level.
 3: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: ((SB-C::TOP-LEVEL-FORM
       (LET* ((#:G98 #1="#<...>" . #1#) (#1# . #1#))
         (MULTIPLE-VALUE-BIND #1# . #1#))))
  1: (SB-FASL::LOAD-FASL-GROUP
      #<SB-SYS:FD-STREAM for "file /var/cache/common-lisp-controller/0/sbcl/cl-plus-ssl/bio.fasl" {312E70A1}>)
  2: (SB-FASL::LOAD-AS-FASL
      #<SB-SYS:FD-STREAM for "file /var/cache/common-lisp-controller/0/sbcl/cl-plus-ssl/bio.fasl" {312E70A1}>
      NIL
      #<unavailable argument>)
  3: (SB-FASL::INTERNAL-LOAD
      #P"/var/cache/common-lisp-controller/0/sbcl/cl-plus-ssl/bio.fasl"
      #P"/var/cache/common-lisp-controller/0/sbcl/cl-plus-ssl/bio.fasl"
      :ERROR
      NIL
      NIL
      :BINARY
      NIL)
  4: (SB-FASL::INTERNAL-LOAD
      #P"/var/cache/common-lisp-controller/0/sbcl/cl-plus-ssl/bio.fasl"
      #P"/var/cache/common-lisp-controller/0/sbcl/cl-plus-ssl/bio.fasl"
      :ERROR
      NIL
      NIL
      NIL
      :DEFAULT)
  5: (LOAD
      #P"/var/cache/common-lisp-controller/0/sbcl/cl-plus-ssl/bio.fasl")
  6: ((SB-PCL::FAST-METHOD ASDF:PERFORM
       (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE))
      #<unavailable argument>
      #<unavailable argument>
      #<ASDF:LOAD-OP NIL {310A4231}>
      #<ASDF:CL-SOURCE-FILE "bio" {30136AC1}>)
  7: ((LAMBDA
          (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
           SB-PCL::.ARG1.))
      #<unavailable argument>
      #<unavailable argument>
      #<ASDF:LOAD-OP NIL {310A4231}>
      #<ASDF:CL-SOURCE-FILE "bio" {30136AC1}>)
  8: ((LAMBDA ()))
  9: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {311BA84D}>)
 10: (ASDF:OPERATE ASDF:LOAD-OP :HUNCHENTOOT)
 11: (SB-INT:EVAL-IN-LEXENV
      (ASDF:OPERATE 'ASDF:LOAD-OP :HUNCHENTOOT)
      #<NULL-LEXENV>)
 12: (SWANK::EVAL-REGION
      "(asdf:operate 'asdf:load-op :hunchentoot)
     "
      T)
 13: ((LAMBDA ()))
 14: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {30EA6305}>)
 15: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {30EA6305}>)
 16: (SWANK:LISTENER-EVAL
      "(asdf:operate 'asdf:load-op :hunchentoot)
     ")
 17: (SB-INT:EVAL-IN-LEXENV
      (SWANK:LISTENER-EVAL "(asdf:operate 'asdf:load-op :hunchentoot)
     ")
      #<NULL-LEXENV>)
 18: ((LAMBDA ()))
 19: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<CLOSURE (LAMBDA #) {30EA6185}>)
 20: ((LAMBDA ()))
 21: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<FUNCTION (LAMBDA #) {30001755}>)
 22: (SWANK::CALL-WITH-REDIRECTED-IO
      #<SWANK::CONNECTION {30001379}>
      #<CLOSURE (LAMBDA #) {30EA49BD}>)
 23: (SWANK::CALL-WITH-CONNECTION
      #<SWANK::CONNECTION {30001379}>
      #<FUNCTION (LAMBDA #) {30001755}>)
 24: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {30001379}>)
 25: (SWANK::PROCESS-AVAILABLE-INPUT
      #<SB-SYS:FD-STREAM for "a constant string" {30001101}>
      #<CLOSURE (LAMBDA #) {30EA497D}>)
 26: ((FLET SWANK::HANDLER))
 27: ((LAMBDA (SWANK-BACKEND::_)) #<unused argument>)
 28: (SB-IMPL::SUB-SERVE-EVENT NIL 0)
 29: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
 30: (SB-IMPL::REFILL-BUFFER/FD
      #<SB-SYS:FD-STREAM for "standard input" {300002B9}>)
 31: (SB-IMPL::INPUT-CHAR/UTF-8
      #<SB-SYS:FD-STREAM for "standard input" {300002B9}>
      NIL
      #:EOF-OBJECT)
 32: (READ-CHAR
      #<SB-SYS:FD-STREAM for "standard input" {300002B9}>
      NIL
      #:EOF-OBJECT
      #<unused argument>)
 33: (READ-CHAR
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {2800CA31}>
      NIL
      #:EOF-OBJECT
      #<unused argument>)
 34: (READ-PRESERVING-WHITESPACE
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {2800CA31}>
      NIL
      (NIL)
      T)
 35: (READ-PRESERVING-WHITESPACE
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {2800CA31}>
      NIL
      (NIL)
      NIL)
 36: (READ
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {2800CA31}>
      NIL
      (NIL)