[asdf-devel] New ASDF test failures

Thu Jan 2 03:12:42 UTC 2014

Faré wrote:
> On Wed, Jan 1, 2014 at 5:02 PM, Robert P. Goldman <rpgoldman at sift.info> wrote:
>> CCL: package-system-test.script
>> clisp: asdf-pathname-test.script package-system-test.script
>> test-sysdef-asdf.script
>> sbcl: package-system-test
>> ecl: package-system-test.script test-bundle.script (expected)
>> test-sysdef-asdf.script
>> cmucl: package-system-test
>> lispworks: package-system-test
>>
>> I'm stopping for now -- it seems like package-system-test is now
>> portably broken, at least on Mac OSX.
>>
>> Happy New Year,
>> r
>>
> Weird. It's a test I just added to test the new package-system functionality.
> It's working for me on all platforms on Linux.
> Do you have a backtrace for asdf-pathname-test on CCL and/or SBCL?
> 
> I added some code in test-sysdef-asdf that invokes run-program with
> :directory to check that the Makefile and asdf.asd are in sync with
> respect to the ordered list of files in asdf (and same in uiop).
> Apparently, there was a bug in UIOP's run-program :directory argument
> on implementations that don't have a native run-program and revert to
> system(), that I just fixed, and should fix test-sysdef-asdf on clisp
> and ecl. I'm glad we found it that before release. Sorry for the bug,
> and for not testing this combination myself.
> 
> What is the clisp failure in asdf-pathname-test.script?
> 
> Happy new year!
> 
> —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
> Invent a clever saying, and your name shall live forever.
>         — Anonymous
> 

Here's the backtrace from SBCL for package-system-test (next message(s)
will have the test-sysdef-asdf backtraces).

TEST ABORTED: Component :PACKAGE-SYSTEM-TEST/A/X not found
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1002AD3A53}>
0: ((LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX))
1: (SB-IMPL::CALL-WITH-SANE-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN
SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {10031DF93B}>)
2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN
SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {10031DF90B}>)
3: (SB-DEBUG:PRINT-BACKTRACE :STREAM #<SYNONYM-STREAM :SYMBOL
SB-SYS:*STDOUT* {10001E6033}> :START 0 :FROM :DEBUGGER-FRAME :COUNT 69
:PRINT-THREAD T :PRINT-FRAME-SOURCE NIL :METHOD-FRAME-STYLE NIL)
4: ((LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE))
5: ((LAMBDA NIL :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX))
6: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN
UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX) {10031DF8EB}>)
7: (UIOP/IMAGE:PRINT-CONDITION-BACKTRACE Component
:PACKAGE-SYSTEM-TEST/A/X not found :STREAM #<SYNONYM-STREAM :SYMBOL
SB-SYS:*STDOUT* {10001E6033}> :COUNT 69)
8: (ASDF-TEST:ACALL :PRINT-CONDITION-BACKTRACE Component
:PACKAGE-SYSTEM-TEST/A/X not found :COUNT 69 :STREAM #<SYNONYM-STREAM
:SYMBOL SB-SYS:*STDOUT* {10001E6033}>)
9: ((FLET #:FORM-FUN-14 :IN ASDF-TEST::CALL-WITH-TEST))
10: ((FLET #:LAMBDA1 :IN ASDF-TEST::CALL-WITH-TEST) Component
:PACKAGE-SYSTEM-TEST/A/X not found)
11: (SIGNAL Component :PACKAGE-SYSTEM-TEST/A/X not found)
12: (ERROR ASDF/FIND-SYSTEM:MISSING-COMPONENT :REQUIRES
:PACKAGE-SYSTEM-TEST/A/X)
13: ((:METHOD ASDF/OPERATE:OPERATE (SYMBOL T)) ASDF/LISP-ACTION:LOAD-OP
:PACKAGE-SYSTEM-TEST/A/X) [fast-method]
14: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused
argument> ASDF/LISP-ACTION:LOAD-OP :PACKAGE-SYSTEM-TEST/A/X)
15: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
16: (ASDF/FIND-SYSTEM::CALL-WITH-SYSTEM-DEFINITIONS #<CLOSURE (LAMBDA
NIL :IN ASDF/OPERATE:OPERATE) {1002C1495B}>)
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T))
ASDF/LISP-ACTION:LOAD-OP :PACKAGE-SYSTEM-TEST/A/X) [fast-method]
18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T))
ASDF/LISP-ACTION:LOAD-OP :PACKAGE-SYSTEM-TEST/A/X) [fast-method]
19: (ASDF/OPERATE:LOAD-SYSTEM :PACKAGE-SYSTEM-TEST/A/X)
20: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:LOAD-SYSTEM
:PACKAGE-SYSTEM-TEST/A/X) #<NULL-LEXENV>)
21: (SB-EXT:EVAL-TLF (ASDF/OPERATE:LOAD-SYSTEM :PACKAGE-SYSTEM-TEST/A/X)
1 #<NULL-LEXENV>)
22: ((FLET SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE)
(ASDF/OPERATE:LOAD-SYSTEM :PACKAGE-SYSTEM-TEST/A/X) 1)
23: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file
/Users/rpg/lisp/asdf/test/package-system-test.script" {100459A023}>
:VERBOSE T :PRINT NIL :CONTEXT "loading")
24: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file
/Users/rpg/lisp/asdf/test/package-system-test.script" {100459A023}> NIL)
25: (LOAD "package-system-test.script" :VERBOSE NIL :PRINT NIL
:IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
26: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<FUNCTION (LAMBDA NIL)
{1004594D4B}> :OVERRIDE NIL)
27: (ASDF-TEST::CALL-WITH-TEST #<FUNCTION (LAMBDA NIL) {1004594D4B}>)
28: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF-TEST:WITH-TEST NIL (LOAD (STRING
(QUOTE ASDF-TEST::|package-system-test.script|)))) #<NULL-LEXENV>)
29: (EVAL (ASDF-TEST:WITH-TEST NIL (LOAD (STRING (QUOTE
ASDF-TEST::|package-system-test.script|)))))
30: (SB-IMPL::READ-MAYBE-NOTHING #<SB-IMPL::STRING-INPUT-STREAM
{1002AD8DA3}> #\#)
31: (SB-IMPL::READ-LIST #<SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3}>
#<unavailable argument>)
32: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<SB-IMPL::STRING-INPUT-STREAM
{1002AD8DA3}> T NIL T)
33: (READ #<SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3}> T NIL T)
34: (SB-IMPL::READ-QUOTE #<SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3}>
#<unavailable argument>)
35: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<SB-IMPL::STRING-INPUT-STREAM
{1002AD8DA3}> T NIL T)
36: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<SB-IMPL::STRING-INPUT-STREAM
{1002AD8DA3}> T NIL NIL)
37: (READ #<SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3}> T NIL NIL)
38: (SB-IMPL::%READ-FROM-STRING
"'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|package-system-test.script|))))"
T NIL 0 NIL NIL)
39: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL .
"'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|package-system-test.script|))))")))
40: (SB-IMPL::TOPLEVEL-INIT)
41: ((FLET #:WITHOUT-INTERRUPTS-BODY-58 :IN SB-EXT:SAVE-LISP-AND-DIE))
42: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))