[Openmcl-devel] UFFI 1.4.29 won't build via asdf. for me. under openmcl.

Kenneth Tilton ktilton at nyc.rr.com
Fri Nov 5 11:22:48 PST 2004


Here's the deal. With ASDF 1.84 successfully loaded, I then execute in 
the slime OpenMCL repl buffer under emacs an interactive:

(progn
   (push (make-pathname :directory '(:absolute "DEVL" "uffi"))
         asdf:*central-registry*)
   (print "Loading UFFI...")
   (asdf:operate 'asdf:load-op :uffi))

Then I die. See carnage below. The curious subject of this message 
reflects:

-- the same asdf loads the same UFFI under Lispworks without a problem. 
I know UFFI is all about implementation-specific conditionalized code, 
but...

-- asdf load of UFFI 1.4.28 works fine for a cohort also using 
emacs+slime+openmcl. We are trying to determine how our worlds differ 
(is it *.28 vs *.29?), but...

As an added note, I get the exact same error from MCL5 trial edition.

I will now start debugging the problem the old-fashioned way to see if 
I can get some clues, but in the meantime I thought I would see if you 
all recognized this.

kenny



> Undefined function UFFI::ARRAY-TYPE called with arguments ('(:ARRAY
>                                                              
> :UNSIGNED-BYTE)) .
>    [Condition of type CCL::UNDEFINED-FUNCTION-CALL]
>
> Restarts:
>   0: [CONTINUE] Retry applying UFFI::ARRAY-TYPE to ('(:ARRAY 
> :UNSIGNED-BYTE)).
>   1: [USE-VALUE] Apply specified function to ('(:ARRAY 
> :UNSIGNED-BYTE)) this time.
>   2: [STORE-VALUE] Specify a function to use as the definition of 
> UFFI::ARRAY-TYPE.
>   3: [RETRY-COMPILE-FILE] Retry compiling 
> #P"/DEVL/uffi/src/aggregates.lisp"
>   4: [SKIP-COMPILE-FILE] Skip compiling 
> #P"/DEVL/uffi/src/aggregates.lisp"
>   5: [RETRY] Retry performing #<COMPILE-OP NIL #x542995E> on
> #<CL-SOURCE-FILE "aggregates" #x5422036>.
>   6: [ACCEPT] Continue, treating #<COMPILE-OP NIL #x542995E> on
> #<CL-SOURCE-FILE "aggregates" #x5422036> as having been successful.
>   7: [ABORT] Abort handling SLIME request.
>   8: [ABORT-BREAK] #<RESTART ABORT-BREAK #x65BE0E>
>   9: [ABORT] #<RESTART ABORT #x65BE36>
>
> Backtrace:
>   0: (UFFI:DEREF-ARRAY)
>   1: (FUNCALL #<Compiled-function DEREF-ARRAY (Non-Global)  #x544574E>)
>   2: (MACROEXPAND-1)
>   3: (CCL::NX-TRANSFORM)
>   4: (CCL::NX1-TYPED-FORM (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I) 
> #<LEXICAL-ENVIRONMENT #x545BE86>)
>   5: (CCL::NX1-FORM)
>   6: (CCL::NX1-1D-VSET NIL)
>   7: (CCL::NX1-ASET #<LEXICAL-ENVIRONMENT #x545BE86>)
>   8: (CCL::NX1-COMBINATION #<LEXICAL-ENVIRONMENT #x545BE86>)
>   9: (CCL::NX1-FORM)
>   10: (CCL::NX1-TAGBODY (TAGBODY G221 (SETF (AREF A I) (DEREF-ARRAY S 
> '(ARRAY UNSIGNED-BYTE) I)) (LOCALLY (DECLARE (SETTABLE I)) (SETQ I (1+ 
> I))) (UNLESS (EQL I G222) (GO G221))) #<LEXICAL-ENVIRONMENT 
> #x545C086>)
>   11: (CCL::NX1-COMBINATION #<LEXICAL-ENVIRONMENT #x545C086>)
>   12: (CCL::NX1-FORM)
>   13: (CCL::NX1-IF (IF (INT>0-P G222) (TAGBODY G221 (SETF (AREF A I) 
> (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I)) (LOCALLY (DECLARE (SETTABLE 
> I)) (SETQ I (1+ I))) (UNLESS (EQL I G222) (GO G221)))) 
> #<LEXICAL-ENVIRONMENT #x545C086>)
>   14: (CCL::NX1-COMBINATION #<LEXICAL-ENVIRONMENT #x545C086>)
>   15: (CCL::NX1-FORM)
>   16: (CCL::NX1-FORMLIST ((IF (INT>0-P G222) (TAGBODY G221 (SETF (AREF 
> A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I)) (LOCALLY (DECLARE 
> (SETTABLE I)) (SETQ I (1+ I))) (UNLESS (EQL I G222) (GO G221)))) A))
>   17: (CCL::NX1-PROGN-BODY)
>   18: (CCL::NX1-ENV-BODY ((IF (INT>0-P G222) (TAGBODY G221 (SETF (AREF 
> A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I)) (LOCALLY (DECLARE 
> (SETTABLE I)) (SETQ I (1+ I))) (UNLESS (EQL I G222) (GO G221)))) A) 
> #<LEXICAL-ENVIRONMENT #x545C13E>)
>   19: (CCL::NX1-LET (LET ((G222 LEN) (I 0)) (DECLARE (FIXNUM I)) 
> (DECLARE (UNSETTABLE I)) (IF (INT>0-P G222) (TAGBODY G221 (SETF (AREF 
> A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I)) (LOCALLY (DECLARE 
> (SETTABLE I)) (SETQ I (1+ I))) (UNLESS (EQL I G222) (GO G221)))) A) 
> #<LEXICAL-ENVIRONMENT #x545C13E>)
>   20: (CCL::NX1-COMBINATION #<LEXICAL-ENVIRONMENT #x545C13E>)
>   21: (CCL::NX1-FORM)
>   22: (CCL::NX1-BLOCK (BLOCK NIL (LET ((G222 LEN) (I 0)) (DECLARE 
> (FIXNUM I)) (DECLARE (UNSETTABLE I)) (IF (INT>0-P G222) (TAGBODY G221 
> (SETF (AREF A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I)) (LOCALLY 
> (DECLARE (SETTABLE I)) (SETQ I (1+ I))) (UNLESS (EQL I G222) (GO 
> G221)))) A)) #<LEXICAL-ENVIRONMENT #x545C456>)
>   23: (CCL::NX1-COMBINATION #<LEXICAL-ENVIRONMENT #x545C456>)
>   24: (CCL::NX1-FORM)
>   25: (CCL::NX1-ENV-BODY ((DOTIMES (I LEN A) (DECLARE (FIXNUM I)) 
> (SETF (AREF A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I)))) 
> #<LEXICAL-ENVIRONMENT #x545C50E>)
>   26: (CCL::NX1-LET (LET ((A (MAKE-ARRAY LEN ELEMENT-TYPE 
> '(UNSIGNED-BYTE 8)))) (DOTIMES (I LEN A) (DECLARE (FIXNUM I)) (SETF 
> (AREF A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I)))) 
> #<LEXICAL-ENVIRONMENT #x545C50E>)
>   27: (CCL::NX1-COMBINATION #<LEXICAL-ENVIRONMENT #x545C50E>)
>   28: (CCL::NX1-FORM)
>   29: (CCL::NX1-BLOCK (BLOCK CONVERT-FROM-FOREIGN-USB8 (LET ((A 
> (MAKE-ARRAY LEN ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) (DOTIMES (I LEN A) 
> (DECLARE (FIXNUM I)) (SETF (AREF A I) (DEREF-ARRAY S '(ARRAY 
> UNSIGNED-BYTE) I))))) #<LEXICAL-ENVIRONMENT #x545C67E>)
>   30: (CCL::NX1-COMBINATION #<LEXICAL-ENVIRONMENT #x545C67E>)
>   31: (CCL::NX1-FORM)
>   32: (CCL::NX1-ENV-BODY ((BLOCK CONVERT-FROM-FOREIGN-USB8 (LET ((A 
> (MAKE-ARRAY LEN ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) (DOTIMES (I LEN A) 
> (DECLARE (FIXNUM I)) (SETF (AREF A I) (DEREF-ARRAY S '(ARRAY 
> UNSIGNED-BYTE) I)))))) #<LEXICAL-ENVIRONMENT #x545C6CE>)
>   33: (CCL::NX1-LAMBDA ((DECLARE (GLOBAL-FUNCTION-NAME 
> CONVERT-FROM-FOREIGN-USB8)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0) 
> (SAFETY 0) (COMPILATION-SPEED 0)) (FIXNUM LEN))))
>   34: (CCL::NX1-COMPILE-LAMBDA CONVERT-FROM-FOREIGN-USB8 
> #<LEXICAL-ENVIRONMENT #x545C75E> #<COMPILER-POLICY #x5282C76> 
> LOAD-TIME-EVAL)
>   35: (CCL::COMPILE-NAMED-FUNCTION T #<LEXICAL-ENVIRONMENT #x545C786> 
> T #<COMPILER-POLICY #x5282C76> DARWINPPC32)
>   36: (CCL::FCOMP-NAMED-FUNCTION (LAMBDA (S LEN) (DECLARE 
> (GLOBAL-FUNCTION-NAME CONVERT-FROM-FOREIGN-USB8)) (DECLARE (OPTIMIZE 
> (SPEED 3) (SPACE 0) (SAFETY 0) (COMPILATION-SPEED 0)) (FIXNUM LEN)) 
> (BLOCK CONVERT-FROM-FOREIGN-USB8 (LET ((A (MAKE-ARRAY LEN ELEMENT-TYPE 
> '(UNSIGNED-BYTE 8)))) (DOTIMES (I LEN A) (DECLARE (FIXNUM I)) (SETF 
> (AREF A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I)))))) 
> CONVERT-FROM-FOREIGN-USB8 #<LEXICAL-ENVIRONMENT #x5425FF6>)
>   37: (CCL::FCOMP-LOAD-%DEFUN (%DEFUN (NFUNCTION 
> CONVERT-FROM-FOREIGN-USB8 (LAMBDA (S LEN) (DECLARE 
> (GLOBAL-FUNCTION-NAME CONVERT-FROM-FOREIGN-USB8)) (DECLARE (OPTIMIZE 
> (SPEED 3) (SPACE 0) (SAFETY 0) (COMPILATION-SPEED 0)) (FIXNUM LEN)) 
> (BLOCK CONVERT-FROM-FOREIGN-USB8 (LET ((A (MAKE-ARRAY LEN ELEMENT-TYPE 
> '(UNSIGNED-BYTE 8)))) (DOTIMES (I LEN A) (DECLARE (FIXNUM I)) (SETF 
> (AREF A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I))))))) 'NIL))
>   38: (CCL::FCOMP-FORM #<LEXICAL-ENVIRONMENT #x5425FF6>)
>   39: (CCL::FCOMP-FORM-LIST ((EVAL-WHEN (COMPILE-TOPLEVEL) 
> (NOTE-FUNCTION-INFO 'CONVERT-FROM-FOREIGN-USB8 '(LAMBDA (S LEN) 
> (DECLARE (GLOBAL-FUNCTION-NAME CONVERT-FROM-FOREIGN-USB8)) (DECLARE 
> (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (COMPILATION-SPEED 0)) 
> (FIXNUM LEN)) (BLOCK CONVERT-FROM-FOREIGN-USB8 (LET ((A (MAKE-ARRAY 
> LEN ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) (DOTIMES (I LEN A) (DECLARE 
> (FIXNUM I)) (SETF (AREF A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) 
> I)))))) #<LEXICAL-ENVIRONMENT #x5425FF6>)) (%DEFUN (NFUNCTION 
> CONVERT-FROM-FOREIGN-USB8 (LAMBDA (S LEN) (DECLARE 
> (GLOBAL-FUNCTION-NAME CONVERT-FROM-FOREIGN-USB8)) (DECLARE (OPTIMIZE 
> (SPEED 3) (SPACE 0) (SAFETY 0) (COMPILATION-SPEED 0)) (FIXNUM LEN)) 
> (BLOCK CONVERT-FROM-FOREIGN-USB8 (LET ((A (MAKE-ARRAY LEN ELEMENT-TYPE 
> '(UNSIGNED-BYTE 8)))) (DOTIMES (I LEN A) (DECLARE (FIXNUM I)) (SETF 
> (AREF A I) (DEREF-ARRAY S '(ARRAY UNSIGNED-BYTE) I))))))) 'NIL) 
> 'CONVERT-FROM-FOREIGN-USB8) #<LEXICAL-ENVIRONMENT #x5425FF6> 
> NOT-COMPILE-TIME)
>   40: (CCL::FCOMP-FORM #<LEXICAL-ENVIRONMENT #x5425FF6>)
>   41: (CCL::FCOMP-FORM #<LEXICAL-ENVIRONMENT #x5425FF6>)
>   42: (CCL::FCOMP-READ-LOOP /DEVL/uffi/src/aggregates.lisp 
> NOT-COMPILE-TIME)
>   43: (CCL::FCOMP-FILE /DEVL/uffi/src/aggregates.lisp 
> /DEVL/uffi/src/aggregates.lisp #<LEXICAL-ENVIRONMENT #x5425FF6>)
>   44: (CCL::%COMPILE-FILE NIL NIL NIL NIL T T NIL NIL DEFAULT)
>   45: (COMPILE-FILE /DEVL/uffi/src/aggregates.lisp :OUTPUT-FILE 
> /DEVL/uffi/src/aggregates.dfsl :VERBOSE NIL :PRINT NIL :LOAD NIL 
> :FEATURES NIL :SAVE-LOCAL-SYMBOLS T :SAVE-DOC-STRINGS T 
> :SAVE-DEFINITIONS NIL :EXTERNAL-FORMAT DEFAULT :FORCE NIL)
>   46: (#<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP 
> ASDF:CL-SOURCE-FILE)> #<COMPILE-OP NIL #x542995E> #<CL-SOURCE-FILE 
> "aggregates" #x5422036>)
>   47: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE)
>   48: (CCL::%%STANDARD-COMBINED-METHOD-DCODE)
>   49: (ASDF:OPERATE LOAD-OP UFFI)
>   50: (CCL::CALL-CHECK-REGS OPERATE)
>   51: (SWANK::EVAL-REGION (progn ;; let ((ccl::*do-unix-hack* t))
>   (push (make-pathname :directory '(:absolute "DEVL" "uffi"))
>         asdf:*central-registry*)
>   (print "Loading UFFI...")
>   (asdf:operate 'asdf:load-op :uffi))
>  T)
>   52: (SWANK:LISTENER-EVAL (progn ;; let ((ccl::*do-unix-hack* t))
>   (push (make-pathname :directory '(:absolute "DEVL" "uffi"))
>         asdf:*central-registry*)
>   (print "Loading UFFI...")
>   (asdf:operate 'asdf:load-op :uffi))
> )
>   53: (CCL::CALL-CHECK-REGS LISTENER-EVAL)
>   54: (SWANK::EVAL-FOR-EMACS (LISTENER-EVAL (progn ;; let 
> ((ccl::*do-unix-hack* t))
>   (push (make-pathname :directory '(:absolute "DEVL" "uffi"))
>         asdf:*central-registry*)
>   (print "Loading UFFI...")
>   (asdf:operate 'asdf:load-op :uffi))
> ) CL-USER 12)
>   55: (FUNCALL EVAL-FOR-EMACS)
>   56: (SWANK::READ-FROM-EMACS)
>   57: (Anonymous Function #x53B8476)
>   58: (SWANK::CALL-WITH-REDIRECTED-IO #S(CONNECTION :SOCKET-IO 
> #<TCP-STREAM (SOCKET/12) #x53DF9DE> :DEDICATED-OUTPUT #<TCP-STREAM 
> (SOCKET/13) #x53DF20E> :USER-INPUT #<SLIME-INPUT-STREAM #x53DEE1E> 
> :USER-OUTPUT #<TCP-STREAM (SOCKET/13) #x53DF20E> :USER-IO 
> #<TWO-WAY-STREAM input #<SWANK-BACKEND::SLIME-INPUT-STREAM #x53DEE1E>, 
> output #<TCP-STREAM (SOCKET/13) #x53DF20E> #x53DEDDE> :CONTROL-THREAD 
> #<PROCESS control-thread(3) [Active] #x53DE5B6> :READER-THREAD 
> #<PROCESS reader-thread(4) [Active] #x53DE3BE> :READ 
> #<Compiled-function READ-FROM-CONTROL-THREAD #x53C85BE> :SEND 
> #<Compiled-function SEND-TO-CONTROL-THREAD #x53C79B6> :SERVE-REQUESTS 
> #<Compiled-function SPAWN-THREADS-FOR-CONNECTION #x53CBE16> :CLEANUP 
> NIL :INDENTATION-CACHE #<HASH-TABLE :TEST EQ size 160/203 #x53DF466> 
> :INDENTATION-CACHE-PACKAGES (#<Package "SWANK-COMPLETION-TEST"> 
> #<Package "SWANK-IO-PACKAGE"> #<Package "SWANK"> #<Package "NREGEX"> 
> #<Package "SWANK-BACKEND"> #<Package "SWANK-LOADER"> #<Package "ASDF"> 
> #<Package "ILISP"> #<Package "PPC"> #<Package "PPC32"> #<Package 
> "OPENMCL-MOP"> #<Package "GRAY"> #<Package "OPENMCL-SOCKET"> #<Package 
> "INSPECTOR"> #<Package "OS"> #<Package "ARCH"> #<Package "ANSI-LOOP"> 
> #<Package "COMMON-LISP-USER"> #<Package "SETF"> #<Package "CCL"> 
> #<Package "COMMON-LISP"> #<Package "KEYWORD">)) #<Anonymous Function 
> #x53B8476>)
>   59: (SWA




More information about the Openmcl-devel mailing list