[asdf-devel] Running the tests: failures: ACL (alisp) and CMUCL

Robert Goldman rpgoldman at sift.info
Wed Mar 28 17:41:46 UTC 2012


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




More information about the asdf-devel mailing list