[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