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@sift.info wrote:
On 11/8/11 Nov 8 -11:27 AM, Zach Beane wrote:
Robert Goldman rpgoldman@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@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel