Faré wrote:

On Wed, Jan 1, 2014 at 5:02 PM, Robert P. Goldman rpgoldman@sift.info wrote:

...

CCL: package-system-test.script clisp: asdf-pathname-test.script package-system-test.script test-sysdef-asdf.script sbcl: package-system-test ecl: package-system-test.script test-bundle.script (expected) test-sysdef-asdf.script cmucl: package-system-test lispworks: package-system-test

I'm stopping for now -- it seems like package-system-test is now portably broken, at least on Mac OSX.

Happy New Year, r

Weird. It's a test I just added to test the new package-system functionality. It's working for me on all platforms on Linux. Do you have a backtrace for asdf-pathname-test on CCL and/or SBCL?

I added some code in test-sysdef-asdf that invokes run-program with :directory to check that the Makefile and asdf.asd are in sync with respect to the ordered list of files in asdf (and same in uiop). Apparently, there was a bug in UIOP's run-program :directory argument on implementations that don't have a native run-program and revert to system(), that I just fixed, and should fix test-sysdef-asdf on clisp and ecl. I'm glad we found it that before release. Sorry for the bug, and for not testing this combination myself.

What is the clisp failure in asdf-pathname-test.script?

Happy new year!

—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org Invent a clever saying, and your name shall live forever. — Anonymous

Here's the backtrace from SBCL for package-system-test (next message(s) will have the test-sysdef-asdf backtraces).

TEST ABORTED: Component :PACKAGE-SYSTEM-TEST/A/X not found Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1002AD3A53}> 0: ((LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX)) 1: (SB-IMPL::CALL-WITH-SANE-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {10031DF93B}>) 2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {10031DF90B}>) 3: (SB-DEBUG:PRINT-BACKTRACE :STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {10001E6033}> :START 0 :FROM :DEBUGGER-FRAME :COUNT 69 :PRINT-THREAD T :PRINT-FRAME-SOURCE NIL :METHOD-FRAME-STYLE NIL) 4: ((LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE)) 5: ((LAMBDA NIL :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX)) 6: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX) {10031DF8EB}>) 7: (UIOP/IMAGE:PRINT-CONDITION-BACKTRACE Component :PACKAGE-SYSTEM-TEST/A/X not found :STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {10001E6033}> :COUNT 69) 8: (ASDF-TEST:ACALL :PRINT-CONDITION-BACKTRACE Component :PACKAGE-SYSTEM-TEST/A/X not found :COUNT 69 :STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {10001E6033}>) 9: ((FLET #:FORM-FUN-14 :IN ASDF-TEST::CALL-WITH-TEST)) 10: ((FLET #:LAMBDA1 :IN ASDF-TEST::CALL-WITH-TEST) Component :PACKAGE-SYSTEM-TEST/A/X not found) 11: (SIGNAL Component :PACKAGE-SYSTEM-TEST/A/X not found) 12: (ERROR ASDF/FIND-SYSTEM:MISSING-COMPONENT :REQUIRES :PACKAGE-SYSTEM-TEST/A/X) 13: ((:METHOD ASDF/OPERATE:OPERATE (SYMBOL T)) ASDF/LISP-ACTION:LOAD-OP :PACKAGE-SYSTEM-TEST/A/X) [fast-method] 14: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP :PACKAGE-SYSTEM-TEST/A/X) 15: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 16: (ASDF/FIND-SYSTEM::CALL-WITH-SYSTEM-DEFINITIONS #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1002C1495B}>) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :PACKAGE-SYSTEM-TEST/A/X) [fast-method] 18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :PACKAGE-SYSTEM-TEST/A/X) [fast-method] 19: (ASDF/OPERATE:LOAD-SYSTEM :PACKAGE-SYSTEM-TEST/A/X) 20: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:LOAD-SYSTEM :PACKAGE-SYSTEM-TEST/A/X) #<NULL-LEXENV>) 21: (SB-EXT:EVAL-TLF (ASDF/OPERATE:LOAD-SYSTEM :PACKAGE-SYSTEM-TEST/A/X) 1 #<NULL-LEXENV>) 22: ((FLET SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (ASDF/OPERATE:LOAD-SYSTEM :PACKAGE-SYSTEM-TEST/A/X) 1) 23: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /Users/rpg/lisp/asdf/test/package-system-test.script" {100459A023}> :VERBOSE T :PRINT NIL :CONTEXT "loading") 24: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /Users/rpg/lisp/asdf/test/package-system-test.script" {100459A023}> NIL) 25: (LOAD "package-system-test.script" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT) 26: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<FUNCTION (LAMBDA NIL) {1004594D4B}> :OVERRIDE NIL) 27: (ASDF-TEST::CALL-WITH-TEST #<FUNCTION (LAMBDA NIL) {1004594D4B}>) 28: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF-TEST:WITH-TEST NIL (LOAD (STRING (QUOTE ASDF-TEST::|package-system-test.script|)))) #<NULL-LEXENV>) 29: (EVAL (ASDF-TEST:WITH-TEST NIL (LOAD (STRING (QUOTE ASDF-TEST::|package-system-test.script|))))) 30: (SB-IMPL::READ-MAYBE-NOTHING #SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3} ##) 31: (SB-IMPL::READ-LIST #<SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3}> #<unavailable argument>) 32: (SB-IMPL::%READ-PRESERVING-WHITESPACE #SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3} T NIL T) 33: (READ #<SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3}> T NIL T) 34: (SB-IMPL::READ-QUOTE #<SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3}> #<unavailable argument>) 35: (SB-IMPL::%READ-PRESERVING-WHITESPACE #SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3} T NIL T) 36: (SB-IMPL::%READ-PRESERVING-WHITESPACE #SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3} T NIL NIL) 37: (READ #<SB-IMPL::STRING-INPUT-STREAM {1002AD8DA3}> T NIL NIL) 38: (SB-IMPL::%READ-FROM-STRING "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|package-system-test.script|))))" T NIL 0 NIL NIL) 39: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test::with-test()(load(string'|package-system-test.script|))))"))) 40: (SB-IMPL::TOPLEVEL-INIT) 41: ((FLET #:WITHOUT-INTERRUPTS-BODY-58 :IN SB-EXT:SAVE-LISP-AND-DIE)) 42: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

On Wed, Jan 1, 2014 at 10:54 PM, Robert P. Goldman rpgoldman@sift.info wrote:

TEST ABORTED: These two expressions yield paths that are not pathname-equal the first expression (MAKE-PATHNAME :HOST "ASDFTEST" :DIRECTORY '(:ABSOLUTE "system2" "module4") :NAME NIL :TYPE NIL) yields this: #P"ASDFTEST:system2;module4;" (:HOST "ASDFTEST" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "system2" "module4") :NAME NIL :TYPE NIL :VERSION NIL)

    the other expression (PARSE-NAMESTRING

"ASDFTEST:system2;module4;") yields that: #P"ASDFTEST:SYSTEM2;MODULE4;" (:HOST "ASDFTEST" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "SYSTEM2" "MODULE4") :NAME NIL :TYPE NIL :VERSION NIL)

This seems like it might be wrong -- if these are logical pathnames, aren't these two pathnames pathname-equal (at least semantically, if not according to your code), because logical pathnames are not case-sensitive?

This assertion was added recently, during my latest fight with asdf-pathname-test. I disabled it on CLISP. Apparently, it fails for me on Linux, too, and I hadn't noticed. I'll run all tests again on all implementations.

—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org In Paris they simply stared when I spoke to them in French; I never did succeed in making those idiots understand their language. — Mark Twain