November 2011 - asdf-devel - mailman3.common-lisp.net

[asdf-devel] source file encoding
by Anton Vodonosov 16 Apr '12

16 Apr '12

Hello. How to specify source files encoding in ASD2? I.e. what value to pass to the :external-format argument of the compile-file? In the old ASDF I did it by (let ((asdf:*compile-file-external-format* #+:clisp charset:cp1251 #+:sbcl :cp1251)) (asdf:operate 'asdf:load-op :mysystem)) But today the variable asdf:*compile-file-external-format* does not exist. Also, it of course would be better to specify the encoding in the .asd file (the system author knows the files encoding, and should care about this, but not the system user). Could you advise me how to do it? Best regards, - Anton

13 61

[asdf-devel] load order of dependencies
by Attila Lendvai 09 Dec '11

09 Dec '11

dear list, my use-case: i want to make sure that when a system is loaded (compiled) due to its test suite being invoked, then a full-blown optional dependency be loaded first, and only then the system itself (which checks for #+(cl:find-package :foo) at compile time). to be more specific, it's about whether to load or not a full logging library with heavy dependencies. when the test suite is invoked, then debugging will most probably follow, so load logging first that affects the compilation of the system itself. and to be even more specific, we have a custom develop-op, that does all kind of things, including the seeking and loading of all the optional swank integration systems we have, etc. (note: i was doing the experiments below using plain 'asdf:load-system invoked on :hu.dwim.reiterate+hu.dwim.logger, and AFAICS there are no customizations that should interfere, but hit me on the head with the ASDF manual if you believe otherwise, and i should go back and try to synthesize a stripped down test case.) this is how i wanted to achieve it: CL-USER> (asdf:asdf-version) "2.017" try #1 (in any order, reiterate is compiled before the logger): :in-order-to ((load-op (load-op :hu.dwim.logger :hu.dwim.reiterate)) (compile-op (compile-op :hu.dwim.logger :hu.dwim.reiterate))) without any :depends-on entry, which as far as i understand compiles into :in-order-to entries. try #2 (the before methods seem to get invoked too late when logger has fasls and reiterate doesn't?! but seems to work when neither have fasls?!): (defsystem :hu.dwim.reiterate+hu.dwim.logger :class hu.dwim.system :description "Loads hu.dwim.logger first, so that proper logging is available when developing, but not making the extra dependency mandatory." :depends-on (:hu.dwim.reiterate :hu.dwim.logger)) (defmethod perform :before ((op operation) (system (eql (find-system :hu.dwim.reiterate+hu.dwim.logger)))) (load-system :hu.dwim.logger)) (defmethod perform :before ((op operation) (system (eql (find-system :hu.dwim.reiterate)))) (load-system :hu.dwim.logger)) (defmethod perform :before ((op operation) (system (eql (find-system :hu.dwim.reiterate.test)))) (load-system :hu.dwim.logger)) but to the point: what's the contract regarding the load/compile order of dependencies? and if there's any, then how can i tell ASDF to load hu.dwim.logger first? (i couldn't find anything in the manual, but i welcome a "try again in chapter 6", because asdf sources are not too easy on my parser...) and if the order is not specified in the ASDF contract, then can we apply a randomizer to the otherwise equal dependencies? i've seen it many times before that unrecorded dependencies showed up as filesystem order changed (or something else, it's just an assumption, but the missing dependency often materialized when deploying the system on a different machine). -- attila Notice the erosion of your (digital) freedom, and do something about it! PGP: 2FA1 A9DC 9C1E BA25 A59C 963F 5D5F 45C7 DFCD 0A39 OTR XMPP: 8647EEAC EA30FEEF E1B55146 573E52EE 21B1FF06

3 7

[asdf-devel] Which are the highest-maintenance CL implementations?
by Faré 28 Nov '11

28 Nov '11

Xach was deriding on twitter my inserting a last-minute patch to ASDF for the sake of Genera compatibility. Sure it's a pain to support, but is it *that* much worse than other implementations? grep '#[-+]' asdf.lisp > /tmp/a for i (abcl allegro clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl sbcl scl xcl) { echo "$(grep -c $i < /tmp/a) $i" } | sort -nr 22 scl 21 genera 20 sbcl 20 lispworks 19 abcl 18 cmu 18 clisp 18 allegro 16 gcl 16 ecl 15 xcl 15 cormanlisp 13 clozure 12 mcl All implementations seem to be in the same ballpark, as far as hacks required to support them go. Yes, Genera is old and quirky. I still works better than either GCL (that I've stopped supporting, because I can't compile a version recent enough to not have the multiple-value compile bug), or CormanLisp, for instance. Indeed, supporting 14 implementations is a huge pain. I don't feel like doing it again. And I feel less and less like keeping doing it. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org Engineering is not the art of constructing. It is rather the art of not constructing: or, it is the art of doing well with one dollar what any bungler can do with two. — Arthur Mellen Wellington

2 2

[asdf-devel] Please test asdf 2.018.20
by Faré 22 Nov '11

22 Nov '11

Thanks a lot to all who have tested 2.018.x and found bugs (Nikodemus Siivola, Desmond O. Chang, Robert Goldman, Douglas Crosher). Here is ASDF 2.018.20, the latest release candidate for 2.019, that I'd like to release this weekend. Changes since previous release candidate 2.018.15: * Bug fix: don't redefine reinitialize-instance in ways that break its contract and its clients (such as asdf-dependency-grovel). Use change-class to reset slots (.16), but not to 'standard-object, which breaks ecl, rather to a proto-system class (.19). * Bug fix: don't drop pathname components without a / at the end when reading a path using GETENV (.18). Fixes debbugs #647544. * Portability: fix type declaration for SCL (.17). * Upgrade: unintern some more functions that have changed signature (.20). And since 2.018: * Portability: debugged CormanLisp support (.1) * Usability: when a system can't be found, there's now a restart to retry finding a system after reinitializing the source-registry (.10). * UI: Create and use a load-systems abstraction, in view of using it in a system-granular parallelizing backend. (.15) * Feature: :around-compile now accepts lambda expressions, and also strings, so you can specify future wrappers that can't even be read yet. (.11, .12). * Filesystem: recursing through logical pathnames in LispWorks (.2, .3), on SBCL as on CMUCL, have asdf:subdirectories follow symlinks (.8., .9) * Internals: strcat (.5), split locate-systems from find-systems (.6) * Configuration: modify user-configuration-directories and system-configuration-directories to return all valid directory names even when they don't exist yet so you may create them (.6), also output name of non-existing configuration file when opening them for writing (.7), * Fixed bugs: buglet in maybe-add-tree (.4) * Upgrade: unintern internals of signature changed in 2.017.12 (.13), have *system-definition-search-functions* not be a defparameter, but a defvar with a fixup (.14), clear *systems-being-defined* when upgrading asdf but re-find them immediately because they may be needed as part of a higher operation (.14). —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org The Feynman problem solving Algorithm 1) Write down the problem 2) Think real hard 3) Write down the answer Murray Gell-mann in the NY Times

2 5

[asdf-devel] Please test asdf 2.018.15
by Faré 21 Nov '11

21 Nov '11

I'd like to release ASDF 2.019 next week. Can you test 2.018.15? Here are the changes since 2.018: * Portability: debugged CormanLisp support (.1) * Usability: when a system can't be found, there's now a restart to retry finding a system after reinitializing the source-registry (.10). * UI: Create and use a load-systems abstraction, in view of using it in a system-granular parallelizing backend. (.15) * Feature: :around-compile now accepts lambda expressions, and also strings, so you can specify future wrappers that can't even be read yet. (.11, .12). * Filesystem: recursing through logical pathnames in LispWorks (.2, .3), on SBCL as on CMUCL, have asdf:subdirectories follow symlinks (.8., .9) * Internals: strcat (.5), split locate-systems from find-systems (.6) * Configuration: modify user-configuration-directories and system-configuration-directories to return all valid directory names even when they don't exist yet so you may create them (.6), also output name of non-existing configuration file when opening them for writing (.7), * Fixed bugs: buglet in maybe-add-tree (.4) * Upgrade: unintern internals of signature changed in 2.017.12 (.13), have *system-definition-search-functions* not be a defparameter, but a defvar with a fixup (.14), clear *systems-being-defined* when upgrading asdf but re-find them immediately because they may be needed as part of a higher operation (.14). —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org To converse at the distance of the Indes by means of sympathetic contrivances may be as natural to future times as to us is a literary correspondence. — Joseph Glanvill, 1661

2 3

[asdf-devel] Recent pull of ASDF fails tests on ECL
by Robert Goldman 21 Nov '11

21 Nov '11

Running make test-all, I get the following: Using ecl -norc -load sys:cmp Ran 36 tests: 5 passing and 31 failing failing test(s): asdf-pathname-test.script test-around-compile.script test-builtin-source-file-type.script test-compile-file-failure.script test-configuration.script test-force.script test-missing-lisp-file.script test-module-depend.script test-module-excessive-depend.script test-module-pathnames.script test-multiple.script test-nested-components.script test-package.script test-redundant-recompile.script test-retry-loading-component-1.script test-samedir-modules.script test-source-file-type.script test-static-and-serial.script test-sysdef-asdf.script test-system-pathnames.script test-touch-system-1.script test-touch-system-2.script test-try-recompiling-1.script test-version.script test-xach-update-bug.script test1.script test2.script test3.script test4.script test9.script wild-module.script -#--------------------------------------- ECL: > (lisp-implementation-version) "11.1.1" > (software-version) "10.8.0" > (machine-type) "intel-mac" Mac OS X 10.6.8 Could this be an error that comes from getting rid of VERSION somehow in the latest patch? Tried this using run-test on asdf-pathname-test.script and see a lot of lines like the following: sysdef: (ASDF:DEFSYSTEM :SYSTEM1 :PATHNAME #P"ASDFTEST:SYSTEM1;" :COMPONENTS ((:MODULE :MODULE1 :PATHNAME #P"ASDFTEST:SYSTEM2;MODULE4;" :COMPONENTS ((:FILE "file" :PATHNAME #P"ASDFTEST:SYSTEM2;MODULE4;FILE.LISP") (:FILE "module2/file" :PATHNAME #P"ASDFTEST:SYSTEM2;MODULE4;FILE.LISP"))))) error! Not a non-negative fixnum SI:UNBOUND non-negative fixnum just seemed to me that it might be a version number.... I suppose it could be a file-write-date.... Oddly, despite the -d flag on run-test, I didn't get thrown into the debugger. Same test passes on SBCL. Best, r

2 1

[asdf-devel] Please fix ASDF:SUBPATHNAME
by Desmond O. Chang 21 Nov '11

21 Nov '11

Hi, Please fix debbugs #647544: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=647544#10 I reported it on debbugs but actually it's from upstream. In brief, what's the return value of this? (subpathname "/usr/share" "common-lisp/source/") I think it should be "/usr/share/common-lisp/source/", not "/usr/common-lisp/source/". Thanks, Des

3 2

[asdf-devel] asdf loading the same system twice?
by Nikodemus Siivola 19 Nov '11

19 Nov '11

Hi, Using quicklisp-installed libraries -- (ql:quickload "linedit"): 1. rm -rf ~/.cache/common-lisp 2. sbcl --no-userinit 3. (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))) (when (probe-file quicklisp-init) (load quicklisp-init))) 4. (asdf:load-system :linedit) Observe that Alexandria is compiled and loaded twice. Once as a dependency of CFFI-GROVEL, once as a dependency of Linedit. Cheers, -- Nikodemus

2 1

Re: [asdf-devel] SBCL failure on test-configuration.script with latest ASDF
by Robert Goldman 09 Nov '11

09 Nov '11

On 11/8/11 Nov 8 -11:27 AM, Zach Beane wrote: > Robert Goldman <rpgoldman(a)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

2 2

[asdf-devel] SBCL failure on test-configuration.script with latest ASDF
by Robert Goldman 08 Nov '11

08 Nov '11

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...). r

1 0