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 <[email protected]> wrote: > On 11/8/11 Nov 8 -11:27 AM, Zach Beane wrote: >> Robert Goldman <[email protected]> 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 > [email protected] > http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel > _______________________________________________ asdf-devel mailing list [email protected] http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
