[asdf-devel] Running the tests: failures: ACL (alisp) and CMUCL
ACL alisp: ACL on MacOS X (8.2, 64-bit, updated yesterday) failed: ;;; Writing fasl file /Users/rpg/lisp/asdf/tmp/fasls/alisp/asdf-tmp.fasl ;;; Fasl write complete Testsuite failed: ASDF compiled with warnings ; Exiting Compilation FAILED Looking upstream: Warning: Can you please fix ASDF to not emit style-warnings? Got a EXCL:COMPILER-UNREACHABLE-CODE-WARNING: cond clause (T :DEFAULT) is unreachable CMUCL: CMUCL 20c Using /usr/local/bin/cmucl -noinit -batch, wild-module.script passed -#--------------------------------------- Using /usr/local/bin/cmucl -noinit -batch Ran 38 tests: 37 passing and 1 failing failing test(s): test-around-compile.script
On 3/28/12 Mar 28 -10:30 AM, Robert Goldman wrote:
ACL alisp:
ACL on MacOS X (8.2, 64-bit, updated yesterday) failed:
;;; Writing fasl file /Users/rpg/lisp/asdf/tmp/fasls/alisp/asdf-tmp.fasl ;;; Fasl write complete Testsuite failed: ASDF compiled with warnings ; Exiting Compilation FAILED
Looking upstream:
Warning: Can you please fix ASDF to not emit style-warnings? Got a EXCL:COMPILER-UNREACHABLE-CODE-WARNING: cond clause (T :DEFAULT) is unreachable
I believe this is the location: (defparameter *utf-8-external-format* (or #+(or abcl allegro clozure cmu ecl lispworks (and sbcl sb-unicode) scl) :utf-8 #+(and clisp unicode) charset:utf-8 :default) "Default :external-format argument to pass for CL:OPEN. For modern implementations, this should be UTF-8. On legacy implementations, we may fall back on some 8-bit encoding, with non-ASCII code points being read as several CL characters; hopefully, if done consistently, it won't affect program behavior too much.") Proposed patch attached. cheers, r
Apparently, ACL hates (or :utf-8 :default) as expanded by the #+ reader. Instead, I'm expanding to (progn :default :utf-8). Does that work better? I pushed 2.20.5 - can you test? As for the CMUCL failure, I can't reproduce, using a CMUCL snapshot 2011-06 (20B Unicode) on x86/sse2. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
On 3/28/12 Mar 28 -12:20 PM, Faré wrote:
Apparently, ACL hates (or :utf-8 :default) as expanded by the #+ reader. Instead, I'm expanding to (progn :default :utf-8). Does that work better? I pushed 2.20.5 - can you test?
Works for me on Allegro now.
As for the CMUCL failure, I can't reproduce, using a CMUCL snapshot 2011-06 (20B Unicode) on x86/sse2.
Isn't 20b old? 20c was released sometime late in 2011, right? (SIGNAL #<TYPE-ERROR {48FAEC9D}>) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/lispinit.lisp. 0] backtrace 0: (SIGNAL #<TYPE-ERROR {48FAEC9D}>) 1: (ERROR TYPE-ERROR :FUNCTION-NAME "DEFSTRUCT COMPILER-ERROR-CONTEXT" :DATUM ...) 2: (KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER "DEFSTRUCT COMPILER-ERROR-CONTEXT" #.(SYSTEM:INT-SAP #x47FDD54C) #<Alien (* SYSTEM:SYSTEM-AREA-POINTER) at #x47FDD4B4> (16 80)) 3: (KERNEL::INTERNAL-ERROR #.(SYSTEM:INT-SAP #x47FDD4B4) #<unused-arg>) 4: ("OnLispStack+#x2F [#xB8E6] /usr/local/bin/cmucl") 5: ("funcall2+#x2C [#xB31C] /usr/local/bin/cmucl") 6: ("interrupt_internal_error+#x86 [#x7936] /usr/local/bin/cmucl") 7: ("sigtrap_handler+#x194 [#xB674] /usr/local/bin/cmucl") 8: ("_sigtramp+#x2B [#x901E005B] /usr/lib/libSystem.B.dylib") 9: ("DEFSTRUCT COMPILER-ERROR-CONTEXT" 301954370 14)[:OPTIONAL] 10: (C::NOTE-UNDEFINED-REFERENCE TST :FUNCTION "") 11: (C::FIND-FREE-REALLY-FUNCTION TST "") 12: (C::FIND-FREE-FUNCTION TST "") 13: (C::GET-DEFINED-FUNCTION TST) 14: (C::IR1-CONVERT-%DEFUN #<Continuation c1> #<Continuation c2> (C::%DEFUN 'TST #'(LAMBDA # #) NIL '(DEFUN TST # #))) 15: (C::IR1-CONVERT #<Continuation c1> #<Continuation c2> (C::%DEFUN 'TST #'(LAMBDA # #) NIL '(DEFUN TST # #))) 16: (C::IR1-CONVERT-PROGN-BODY #<Continuation c1> #<Continuation c3> ((C::%DEFUN 'TST #'# NIL '#) NIL)) 17: (C::IR1-CONVERT-PROGN-BODY 3 #<Continuation c1> #<Continuation c3> ((C::%DEFUN 'TST #'# NIL '#) NIL))[:EXTERNAL] 18: (C::IR1-CONVERT-AUX-BINDINGS #<Continuation c1> #<Continuation c3> ((C::%DEFUN 'TST #'# NIL '#) NIL) NIL ...) 19: (C::IR1-CONVERT-DYNAMIC-EXTENT-BINDINGS #<Continuation c1> #<Continuation c3> ((C::%DEFUN 'TST #'# NIL '#) NIL) NIL ...) 20: (C::IR1-CONVERT-SPECIAL-BINDINGS #<Continuation c1> #<Continuation c3> ((C::%DEFUN 'TST #'# NIL '#) NIL) NIL ...) 21: (C::IR1-CONVERT-LAMBDA-BODY ((C::%DEFUN 'TST #'# NIL '#) NIL) NIL NIL NIL ...) 22: (C::IR1-CONVERT-LAMBDA-BODY 2 ((C::%DEFUN 'TST #'# NIL '#) NIL) NIL #(0 2 3 4 5 ...) ...)[:EXTERNAL] 23: (C::IR1-TOP-LEVEL (C::%DEFUN 'TST #'(LAMBDA # #) NIL '(DEFUN TST # #)) ((C::%DEFUN 'TST #'# NIL '#) C::ORIGINAL-SOURCE-START 0 1) NIL) 24: (C::CONVERT-AND-MAYBE-COMPILE (C::%DEFUN 'TST #'(LAMBDA # #) NIL '(DEFUN TST # #)) ((C::%DEFUN 'TST #'# NIL '#) C::ORIGINAL-SOURCE-START 0 1)) 25: (C::PROCESS-FORM (C::%DEFUN 'TST #'(LAMBDA # #) NIL '(DEFUN TST # #)) (C::ORIGINAL-SOURCE-START 0 1)) 26: (C::PROCESS-FORM (DEFUN TST (X) (1+ X)) (C::ORIGINAL-SOURCE-START 0 1)) 27: (C::PROCESS-FORM 2 (DEFUN TST (X) (1+ X)) (C::ORIGINAL-SOURCE-START 0 1))[:EXTERNAL] 28: (C::PROCESS-SOURCES #<Source-Info>) 29: ((FLET #:G0 C::SUB-COMPILE-FILE)) 30: (C::SUB-COMPILE-FILE #<Source-Info> NIL) 31: (C::SUB-COMPILE-FILE 1 #<Source-Info> NIL)[:EXTERNAL] 32: (COMPILE-FILE #P"/Users/rpg/lisp/asdf/test/test.lisp" :OUTPUT-FILE #P"/Users/rpg/lisp/asdf/tmp/fasls/cmu-20c_release-20c__20c_unicode_-macosx-x86/test/ASDF-TMP-test.sse2f" :ERROR-FILE ...) 33: (ASDF:COMPILE-FILE* #P"/Users/rpg/lisp/asdf/test/test.lisp" :OUTPUT-FILE #P"/Users/rpg/lisp/asdf/tmp/fasls/cmu-20c_release-20c__20c_unicode_-macosx-x86/test/test.sse2f" :EXTERNAL-FORMAT ...) 34: (ASDF::CALL-IN-BASE-2 #<Closure Over Function "DEFMETHOD PERFORM (COMPILE-OP CL-SOURCE-FILE)" {48D38F51}>) 35: ((METHOD ASDF:PERFORM NIL (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)) (#(8 7 6) . #(# # #)) #<unused-arg> #<ASDF:COMPILE-OP (:FORCE T) {48E4E4B5}> #<ASDF:CL-SOURCE-FILE "test-around-compile" "test">) 36: ("LAMBDA (G2739 G2740 G2741)" #<unused-arg> #<unused-arg> #<ASDF:COMPILE-OP (:FORCE T) {48E4E4B5}> #<ASDF:CL-SOURCE-FILE "test-around-compile" "test">) 37: ((METHOD ASDF::PERFORM-WITH-RESTARTS (:AROUND) (T T)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {48AA3CF9}> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) #<ASDF:COMPILE-OP (:FORCE T) {48E4E4B5}> #<ASDF:CL-SOURCE-FILE "test-around-compile" "test">) 38: ((FLET #:G21)) 39: ((METHOD ASDF::PERFORM-PLAN NIL (LIST)) #<unused-arg> #<unused-arg> ((# . #) (# . #) (# . #) (# . #) (# . #) ...) #<unused-arg>) 40: ((METHOD ASDF::PERFORM-PLAN NIL (LIST)) 4 #<unused-arg> #<unused-arg> ((# . #) (# . #) (# . #) (# . #) (# . #) ...) ...)[:EXTERNAL] 41: ("DEFMETHOD OPERATE (T T)") 42: ("DEFMETHOD OPERATE (T T)" 0)[:EXTERNAL] 43: (ASDF::CALL-WITH-SYSTEM-DEFINITIONS #<Closure Over Function "DEFMETHOD OPERATE (T T)" {4835D529}>) 44: (ASDF::CALL-WITH-SYSTEM-DEFINITIONS 1 #<Closure Over Function "DEFMETHOD OPERATE (T T)" {4835D529}>)[:EXTERNAL] 45: ((METHOD ASDF:OPERATE NIL (T T)) #<unused-arg> #<unused-arg> ASDF:LOAD-OP TEST-AROUND-COMPILE ...) 46: ((METHOD ASDF:OPERATE NIL (T T)) 5 #<unused-arg> #<unused-arg> ASDF:LOAD-OP ...)[:EXTERNAL] 47: (ASDF:LOAD-SYSTEM TEST-AROUND-COMPILE :FORCE T) 48: (ASDF:LOAD-SYSTEM 3 TEST-AROUND-COMPILE)[:EXTERNAL] 49: (NIL) 50: (CALL-QUITTING-ON-ERROR #<Interpreted Function (LAMBDA # # # #) {482E5A29}>) 51: (LISP::SLOLOAD #<Stream for file "/Users/rpg/lisp/asdf/test/test-around-compile.script">) 52: (LISP::INTERNAL-LOAD #P"test-around-compile.script" #P"/Users/rpg/lisp/asdf/test/test-around-compile.script" :ERROR :SOURCE ...) 53: (LISP::INTERNAL-LOAD #P"test-around-compile.script" #P"/Users/rpg/lisp/asdf/test/test-around-compile.script" :ERROR NIL ...) 54: (LOAD "test-around-compile.script" :VERBOSE NIL :PRINT ...) 55: (EXTENSIONS::EVAL-SWITCH-DEMON #<Command Line Switch "eval" -- ("(load \"test-around-compile.script\")")>) 56: ((FLET EXTENSIONS::INVOKE-DEMON EXTENSIONS::INVOKE-SWITCH-DEMONS) #<Command Line Switch "eval" -- ("(load \"test-around-compile.script\")")>) 57: (EXTENSIONS::INVOKE-SWITCH-DEMONS (#<Command Line Switch "noinit"> #<Command Line Switch "eval" -- ("(load \"test-around-compile.script\")")>) (("-help" . #) ("help" . #) ("load" . #) ("eval" . #))) 58: ((LABELS LISP::%RESTART-LISP SAVE-LISP)) 59: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0] Hm... My attempt to deal with the debugger is not notoriously successful: 0] F 20 Argument X is not a NUMBER: |20|. Error flushed ... cheers, r
participants (2)
-
Faré -
Robert Goldman