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
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
On 11/8/11 Nov 8 -6:22 PM, Faré wrote:
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.
Thanks! Fixed for me with latest ASDF and SBCL. All tests passing.
-
Faré -
Robert Goldman