[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