[asdf-devel] SBCL failure on test-configuration.script with latest ASDF
Robert Goldman
rpgoldman at sift.info
Tue Nov 8 17:31:33 UTC 2011
On 11/8/11 Nov 8 -11:27 AM, Zach Beane wrote:
> Robert Goldman <rpgoldman at sift.info> writes:
>
>> I tested the latest ASDF from git with SBCL 1.0.47, and got the
>> following test failure in test-configuration.script. Upgraded to SBCL
>> head (SBCL 1.0.53.1-6b0e405) and I still get this test failure.
>>
>> Mac OS X, 64-bit, threading enabled (don't see why that would make a
>> difference, but...).
>
> I'm not sure I see the test failure. Was it meant to be attached?
>
> Zach
Yes, it was. Here I will try again (I wonder if this is related to
recent symlinks changes; looks like ASDF is misinterpreting a file as a
subdirectory):
+ sbcl --noinform --userinit /dev/null --sysinit /dev/null
--disable-debugger --eval '(load "test-configuration.script")'
subdirectories of dir2/: (#P"/Users/rpg/lisp/asdf/tmp/dir2/dir3/"
#P"/Users/rpg/lisp/asdf/tmp/dir2/dir4/"
#P"/Users/rpg/lisp/asdf/tmp/dir2/foo3.asd")
The assertion (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY
"dir2/")))) failed.
ABORTING:
#<SIMPLE-ERROR "The assertion ~S failed." {1002EA3A03}>
0: (SB-DEBUG::MAP-BACKTRACE
#<CLOSURE (LAMBDA #) {1002EA5A6B}>
:START
0
:COUNT
69)
1: (SB-DEBUG:BACKTRACE 69 #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO*
{10001E4613}>)
2: ((FLET #:LAMBDA0) #<SIMPLE-ERROR "The assertion ~S failed."
{1002EA3A03}>)
3: (SIGNAL #<SIMPLE-ERROR "The assertion ~S failed." {1002EA3A03}>)
4: (ERROR #<SIMPLE-ERROR "The assertion ~S failed." {1002EA3A03}>)
5: (SB-KERNEL:ASSERT-ERROR
(= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/"))))
NIL
NIL)
6: ((LAMBDA ()))
7: (COMMON-LISP-USER::CALL-QUITTING-ON-ERROR
#<FUNCTION (LAMBDA #) {1002E1C49B}>)
8: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(COMMON-LISP-USER::QUIT-ON-ERROR
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/foo:/bar::/baz:/quux")
'(:OUTPUT-TRANSLATIONS ("/foo" "/bar") :INHERIT-CONFIGURATION
("/baz" "/quux"))))
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:")
'(:OUTPUT-TRANSLATIONS ("/" NIL)
:IGNORE-INHERITED-CONFIGURATION)))
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/::")
'(:OUTPUT-TRANSLATIONS ("/" NIL) :INHERIT-CONFIGURATION)))
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:/")
'(:OUTPUT-TRANSLATIONS ("/" "/")
:IGNORE-INHERITED-CONFIGURATION)))
(ASSERT
(EQUAL
(PARSE-OUTPUT-TRANSLATIONS-STRING
"(:output-translations (\"/\" \"/\")
:ignore-inherited-configuration)")
'(:OUTPUT-TRANSLATIONS ("/" "/") :IGNORE-INHERITED-CONFIGURATION)))
(CREATE-ASD-FILES)
(CREATE-CONF-FILES)
(FORMAT T "~&subdirectories of dir2/: ~S~%"
(SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/")))
(ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY
"dir2/")))))
(FORMAT T "~&subdirectories of dir5/: ~S~%"
(SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir5/")))
(ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY
"dir5/")))))
(INITIALIZE-SOURCE-REGISTRY
`(:SOURCE-REGISTRY (:INCLUDE ,(UNDER-TEST-DIRECTORY "conf.d/"))
(:INCLUDE ,(UNDER-TEST-DIRECTORY "dir5/"))
(:INCLUDE ,(UNDER-TEST-DIRECTORY "dir8/"))
(:INCLUDE ,(UNDER-TEST-DIRECTORY "dir9/dira/"))
:IGNORE-INHERITED-CONFIGURATION))
(FORMAT T "~&Source Registry: ~S~%" *SOURCE-REGISTRY*)
(ASSERT (FIND-SYSTEM :FOO0 NIL))
(ASSERT (FIND-SYSTEM :FOO1 NIL))
(ASSERT (FIND-SYSTEM :FOO2 NIL))
(ASSERT (FIND-SYSTEM :FOO3 NIL))
(ASSERT (FIND-SYSTEM :FOO4 NIL))
(ASSERT (NOT (FIND-SYSTEM :FOO5 NIL)))
(ASSERT (FIND-SYSTEM :FOO6 NIL))
(ASSERT (FIND-SYSTEM :FOO7 NIL))
(ASSERT (FIND-SYSTEM :FOO8 NIL))
(ASSERT (NOT (FIND-SYSTEM :FOO9 NIL)))
(FORMAT T "~&A: ~S~%B: ~S~%"
(NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp"))
(UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp"))
(ASSERT
(EQUAL (NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp"))
(UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp"))))
#<NULL-LEXENV>)
9: (SB-EXT:EVAL-TLF
(COMMON-LISP-USER::QUIT-ON-ERROR
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/foo:/bar::/baz:/quux")
'(:OUTPUT-TRANSLATIONS ("/foo" "/bar") :INHERIT-CONFIGURATION
("/baz" "/quux"))))
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:")
'(:OUTPUT-TRANSLATIONS ("/" NIL)
:IGNORE-INHERITED-CONFIGURATION)))
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/::")
'(:OUTPUT-TRANSLATIONS ("/" NIL) :INHERIT-CONFIGURATION)))
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:/")
'(:OUTPUT-TRANSLATIONS ("/" "/")
:IGNORE-INHERITED-CONFIGURATION)))
(ASSERT
(EQUAL
(PARSE-OUTPUT-TRANSLATIONS-STRING
"(:output-translations (\"/\" \"/\")
:ignore-inherited-configuration)")
'(:OUTPUT-TRANSLATIONS ("/" "/") :IGNORE-INHERITED-CONFIGURATION)))
(CREATE-ASD-FILES)
(CREATE-CONF-FILES)
(FORMAT T "~&subdirectories of dir2/: ~S~%"
(SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/")))
(ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY
"dir2/")))))
(FORMAT T "~&subdirectories of dir5/: ~S~%"
(SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir5/")))
(ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY
"dir5/")))))
(INITIALIZE-SOURCE-REGISTRY
`(:SOURCE-REGISTRY (:INCLUDE ,(UNDER-TEST-DIRECTORY "conf.d/"))
(:INCLUDE ,(UNDER-TEST-DIRECTORY "dir5/"))
(:INCLUDE ,(UNDER-TEST-DIRECTORY "dir8/"))
(:INCLUDE ,(UNDER-TEST-DIRECTORY "dir9/dira/"))
:IGNORE-INHERITED-CONFIGURATION))
(FORMAT T "~&Source Registry: ~S~%" *SOURCE-REGISTRY*)
(ASSERT (FIND-SYSTEM :FOO0 NIL))
(ASSERT (FIND-SYSTEM :FOO1 NIL))
(ASSERT (FIND-SYSTEM :FOO2 NIL))
(ASSERT (FIND-SYSTEM :FOO3 NIL))
(ASSERT (FIND-SYSTEM :FOO4 NIL))
(ASSERT (NOT (FIND-SYSTEM :FOO5 NIL)))
(ASSERT (FIND-SYSTEM :FOO6 NIL))
(ASSERT (FIND-SYSTEM :FOO7 NIL))
(ASSERT (FIND-SYSTEM :FOO8 NIL))
(ASSERT (NOT (FIND-SYSTEM :FOO9 NIL)))
(FORMAT T "~&A: ~S~%B: ~S~%"
(NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp"))
(UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp"))
(ASSERT
(EQUAL (NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp"))
(UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp"))))
8
#<NULL-LEXENV>)
10: ((FLET SB-FASL::EVAL-FORM)
(COMMON-LISP-USER::QUIT-ON-ERROR
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/foo:/bar::/baz:/quux")
'(:OUTPUT-TRANSLATIONS ("/foo" "/bar") :INHERIT-CONFIGURATION
("/baz" "/quux"))))
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:")
'(:OUTPUT-TRANSLATIONS ("/" NIL)
:IGNORE-INHERITED-CONFIGURATION)))
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/::")
'(:OUTPUT-TRANSLATIONS ("/" NIL) :INHERIT-CONFIGURATION)))
(ASSERT
(EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:/")
'(:OUTPUT-TRANSLATIONS ("/" "/")
:IGNORE-INHERITED-CONFIGURATION)))
(ASSERT
(EQUAL
(PARSE-OUTPUT-TRANSLATIONS-STRING
"(:output-translations (\"/\" \"/\")
:ignore-inherited-configuration)")
'(:OUTPUT-TRANSLATIONS ("/" "/") :IGNORE-INHERITED-CONFIGURATION)))
(CREATE-ASD-FILES)
(CREATE-CONF-FILES)
(FORMAT T "~&subdirectories of dir2/: ~S~%"
(SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/")))
(ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY
"dir2/")))))
(FORMAT T "~&subdirectories of dir5/: ~S~%"
(SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir5/")))
(ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY
"dir5/")))))
(INITIALIZE-SOURCE-REGISTRY
`(:SOURCE-REGISTRY (:INCLUDE ,(UNDER-TEST-DIRECTORY "conf.d/"))
(:INCLUDE ,(UNDER-TEST-DIRECTORY "dir5/"))
(:INCLUDE ,(UNDER-TEST-DIRECTORY "dir8/"))
(:INCLUDE ,(UNDER-TEST-DIRECTORY "dir9/dira/"))
:IGNORE-INHERITED-CONFIGURATION))
(FORMAT T "~&Source Registry: ~S~%" *SOURCE-REGISTRY*)
(ASSERT (FIND-SYSTEM :FOO0 NIL))
(ASSERT (FIND-SYSTEM :FOO1 NIL))
(ASSERT (FIND-SYSTEM :FOO2 NIL))
(ASSERT (FIND-SYSTEM :FOO3 NIL))
(ASSERT (FIND-SYSTEM :FOO4 NIL))
(ASSERT (NOT (FIND-SYSTEM :FOO5 NIL)))
(ASSERT (FIND-SYSTEM :FOO6 NIL))
(ASSERT (FIND-SYSTEM :FOO7 NIL))
(ASSERT (FIND-SYSTEM :FOO8 NIL))
(ASSERT (NOT (FIND-SYSTEM :FOO9 NIL)))
(FORMAT T "~&A: ~S~%B: ~S~%"
(NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp"))
(UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp"))
(ASSERT
(EQUAL (NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp"))
(UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp"))))
8)
11: (SB-INT:LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM
for "file /Users/rpg/lisp/asdf/test/test-configuration.script"
{10029358E3}>
:VERBOSE
NIL
:PRINT
NIL
:CONTEXT
"loading")
12: ((FLET SB-FASL::LOAD-STREAM)
#<SB-SYS:FD-STREAM
for "file /Users/rpg/lisp/asdf/test/test-configuration.script"
{10029358E3}>
NIL)
13: (LOAD
"test-configuration.script"
:VERBOSE
NIL
:PRINT
NIL
:IF-DOES-NOT-EXIST
T
:EXTERNAL-FORMAT
:DEFAULT)
14: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LOAD "test-configuration.script")
#<NULL-LEXENV>)
15: (EVAL (LOAD "test-configuration.script"))
16: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS
((:EVAL . "(load \"test-configuration.script\")")))
17: (SB-IMPL::TOPLEVEL-INIT)
18: ((FLET #:WITHOUT-INTERRUPTS-BODY-[RESTART-LISP]38))
19: ((LABELS SB-IMPL::RESTART-LISP))
ABORTING:
#<SIMPLE-ERROR "The assertion ~S failed." {1002EA3A03}>
Script failed
Using sbcl --noinform --userinit /dev/null --sysinit /dev/null
--disable-debugger, test-configuration.script failed
More information about the asdf-devel
mailing list