[asdf-devel] SBCL failure on test-configuration.script with latest ASDF
Faré
fahree at gmail.com
Wed Nov 9 00:22:50 UTC 2011
Oops. Insufficient testing of 2.018.8, did not take into account the
case where non-directories are now returned by wider DIRECTORY
pattern. Having SBCL do filtering of results like CMUCL and SCL, it
now seems to work. Please update to 2.018.9. Sorry.
—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
On Tue, Nov 8, 2011 at 12:31, Robert Goldman <rpgoldman at sift.info> wrote:
> 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
>
>
>
>
> _______________________________________________
> asdf-devel mailing list
> asdf-devel at common-lisp.net
> http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
>
More information about the asdf-devel
mailing list