April 2010 - asdf-devel - mailman3.common-lisp.net

[asdf-devel] Upgrade to ASDF 2 with ASDF-BINARY-LOCATIONS
by Robert Goldman 11 Apr '10

11 Apr '10

If one was to start up a lisp with asdf and asdf-binary-locations loaded, and then installed asdf2? Is this expected to run at all well? Would it be reasonable to trap this case and either refuse to run, or somehow undo asdf-binary-locations? I'd like to be able to do some more ASDF2 testing, but if ASDF2 can't be installed over ASDF 1 + A-B-L, that makes it more difficult... Thanks, r

2 1

[asdf-devel] :logical-hostname
by Juan Jose Garcia-Ripoll 10 Apr '10

10 Apr '10

One of the common problems that ASDF users faced when introducing the new binary location system is finding out where things reside. Another problem we will eventually find is locating the resources associated to an ASDF system which has been replaced by a precompiled version. In general it would be desirable for a system to be able to locate its resources (additional files, icons, bitmaps, etc) using logical pathnames. For that purpose I have coded a small patch that adds a new keyword, :logical-host, to DEFSYSTEM. The keyword defines a logical pathname translation from "**;*.*.*" to "path/to/asdf/or/pathname/argument/**/*.*" This way we may have (defsystem :cl-unicode :logical-host "cl-unicode" ...) and in the sources load the databases such as "cl-unicode:uppercase-table.dat" https://bugs.launchpad.net/asdf/+bug/551222 -- Instituto de Física Fundamental, CSIC c/ Serrano, 113b, Madrid 28006 (Spain) http://tream.dreamhosters.com

4 33

Re: [asdf-devel] new asdf does not like matlisp.asd
by Robert Goldman 09 Apr '10

09 Apr '10

traverse returns a plan, which is a list (ordered sequence) of op - component dotted pairs. Effectively, we can execute the plan by mapping PERFORM over it. This is strictly from memory. Hth. "Faré" <fahree(a)gmail.com> wrote: >Ahem. I admit this is a part of ASDF I am not familiar with. > >What does traverse return? Can you trace every exported defgeneric in >ASDF and attach to a launchpad bug traces of what happens in either >ASDF 1 or ASDF 2? > >Sorry I'm not being very helpful. > >[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] > \|/ ____ \|/ > ~@-/ oO \-@~ > /_( \__/ )_\ > \__U_/ > > > > >On 9 April 2010 23:45, Mario S. Mommer <m_mommer(a)yahoo.com> wrote: >> >> Faré <fahree(a)gmail.com> writes: >>> Does it work better with ASDF 1.672? If not, you might have to define >>> some method for operation-done-p or some such. >> >> No, unfortunately it does not work better. >> >> And operation-done-p is returning T's and NIL's with the new asdf as >> well as with the one packaged with sbcl, but the latter simply does not >> take that as a reason to recompile the lisp files, while the former >> does, or recompiles them for some other reason. >> >> Regards, >> Mario >> >> >> >> _______________________________________________ >> asdf-devel mailing list >> asdf-devel(a)common-lisp.net >> http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel >> > >_______________________________________________ >asdf-devel mailing list >asdf-devel(a)common-lisp.net >http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel -- Sent from my Android phone with K-9 Mail. Please excuse my brevity.

1 0

[asdf-devel] pathname translations does not like my f2cl asd
by m_mommer＠yahoo.com 09 Apr '10

09 Apr '10

Hi, so here is another one. I can send the .asd file if you are interested, but for now I guess this snippet is enough: (defmethod perform ((o compile-op) (f f77-file)) (apply #'f2cl:f2cl-compile (cons (make-pathname :name (component-name f) :type "f" :defaults (component-pathname f)) (compiler-options f)))) the error is Couldn't load #P"/home/mommer/.cache/common-lisp/sbcl-1.0.37-linux-...": file does not exist. [Condition of type SB-INT:SIMPLE-FILE-ERROR] which is caused by the fact that I give the f2cl compiler a different output path than that expected by the loader. I do not know how to fix this yet, except for issuing (asdf:disable-output-translation). It is probably a matter of RTFM. But I guess that proves the more general point that enabling the output translation by default will break existing setups when upgrading. Regards, Mario

2 2

[asdf-devel] 1.671 compiles in abc, acl, ccl, ecl, cmucl, sbcl, lw
by james anderson 08 Apr '10

08 Apr '10

asdf@ip-10-251-122-82:/development/source/library$ /development/bin/ abcl --load build-init.lisp Armed Bear Common Lisp 0.19.1 Java 1.6.0_0 Sun Microsystems Inc. OpenJDK Client VM Low-level initialization completed in 0.963 seconds. Startup completed in 2.205 seconds. ; Compiling /ebs/source/library/net/common-lisp/asdf/asdf.lisp ... ; [ ... ] ; Wrote /ebs/source/library/net/common-lisp/asdf/asdf.abcl (13.859 seconds) Type ":help" for a list of available commands. CL-USER(1): asdf@ip-10-251-122-82:/development/source/library$ /development/bin/ alisp -qq -L build-init.lisp ;Build root: #P"/ebs/source/library/build-init.lisp". ;Incorporating asdf anew from #P"/ebs/source/library/net/common-lisp/ asdf/asdf.lisp". ;;; Compiling file /ebs/source/library/net/common-lisp/asdf/asdf.lisp ; [...] ;;; Writing fasl file /ebs/source/library/net/common-lisp/asdf/asdf.fasl ;;; Fasl write complete ;;; [ ... ] CL-USER(1): EOF Really exit lisp [n]? ; Exiting asdf@ip-10-251-122-82:/development/source/library$ /development/bin/ clisp -i build-init.lisp i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.48+ (2009-08-24) <http://clisp.cons.org/> Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 Copyright (c) Bruno Haible, Sam Steingold 1999-2000 Copyright (c) Sam Steingold, Bruno Haible 2001-2009 Type :h and hit Enter for context help. ;; Loading file build-init.lisp ... ;Build root: #P"/ebs/source/library/build-init.lisp". ;Incorporating asdf anew from #P"/ebs/source/library/net/common-lisp/ asdf/asdf.lisp". ;; Compiling file /ebs/source/library/net/common-lisp/asdf/asdf.lisp ... ;; Wrote file /ebs/source/library/net/common-lisp/asdf/asdf.fas 0 errors, 0 warnings ;; Loading file /ebs/source/library/net/common-lisp/asdf/asdf.fas ... ;; Loaded file /ebs/source/library/net/common-lisp/asdf/asdf.fas ;; [ ... ] [1]> Bye. asdf@ip-10-251-122-82:/development/source/library$ ccl --no-init -l build-init.lisp ;Build root: #P"/ebs/source/library/build-init.lisp". ;Incorporating asdf anew from #P"/ebs/source/library/net/common-lisp/ asdf/asdf.lisp". ;Compiling "/ebs/source/library/net/common-lisp/asdf/asdf.lisp"... ;Loading #P"/ebs/source/library/net/common-lisp/asdf/asdf.lx32fsl"... ;Loading #P"/ebs/source/library/de/setf/utility/asdf/hierarchical- names.lisp"... ;Loading #P"/ebs/source/library/de/setf/utility/pathnames.lisp"... ;Loading #P"/ebs/source/library/de/setf/utility/package.lisp"... Host translations: LIBRARY base: #P"/ebs/source/library/de/setf/utility/pathnames.lisp". location: NIL. root-target: #P"/ebs/source/library/**/*.*". binary: #P"/ebs/source/library/bin/omcl/**/*.lx32fsl". Welcome to Clozure Common Lisp Version 1.4-r13119 (LinuxX8632)! ? asdf@ip-10-251-122-82:/development/source/library$ /development/bin/ cmucl -load build-init.lisp ; Loading #P"/ebs/source/library/build-init.lisp". ;Build root: #P"/ebs/source/library/build-init.lisp". ; Python version 1.1, VM version Intel x86 on 08 APR 10 10:32:32 pm. ; Compiling: /ebs/source/library/net/common-lisp/asdf/asdf.lisp 08 APR 10 10:26:56 pm ; [ ... ]. ; /ebs/source/library/net/common-lisp/asdf/asdf.sse2f written. ; Compilation finished in 0:00:06. ;Incorporating asdf anew from #P"/ebs/source/library/net/common-lisp/ asdf/asdf.lisp". ;; Loading #P"/ebs/source/library/net/common-lisp/asdf/asdf.sse2f". ; [GC threshold exceeded with 19,203,144 bytes in use. Commencing GC.] ; [GC completed with 2,603,824 bytes retained and 16,599,320 bytes freed.] ; [GC will next occur when at least 14,603,824 bytes are in use.] CMU Common Lisp 20a (20A), running on ip-10-251-122-82 With core: /development/downloads/cmucl-20a-non-unicode-x86-linux/lib/ cmucl/lib/lisp-sse2.core Dumped on: Mon, 2009-09-28 16:06:53Z on usrtc3154 See <http://www.cons.org/cmucl/> for support information. Loaded subsystems: Python 1.1, target Intel x86 CLOS based on Gerd's PCL 2008-11-12 16:36:41 * (quit) asdf@ip-10-251-122-82:/development/source/library$ /development/bin/ ecl -load build-init.lisp ;;; Loading "/ebs/source/library/build-init.lisp" ;Build root: #P"/ebs/source/library/build-init.lisp". ;Incorporating asdf anew from #P"/ebs/source/library/net/common-lisp/ asdf/asdf.lisp". ;;; Loading #P"/development/lib/ecl-10.2.1/cmp.fas" ;;; Loading #P"/development/lib/ecl-10.2.1/sysfun.lsp" ;;; ;;; Compiling /ebs/source/library/net/common-lisp/asdf/asdf.lisp. ;;; [...] ;;; Note: ;;; Invoking external command: ;;; gcc -o "/ebs/source/library/net/common-lisp/asdf/asdf-ecl.fas" - L"/development/lib/" "/ebs/source/library/net/common-lisp/asdf/asdf- ecl.o" -shared -lecl -lgmp -ldl -lm ;;; ;;; Finished compiling /ebs/source/library/net/common-lisp/asdf/asdf- ecl.lisp. ;;; ;;; Loading "/ebs/source/library/net/common-lisp/asdf/asdf-ecl.fas" ;;; Loading "/ebs/source/library/de/setf/utility/asdf/hierarchical- names.lisp" ;;; Loading "/ebs/source/library/de/setf/utility/asdf/../pathnames.lisp" ;;; Loading "/ebs/source/library/de/setf/utility/asdf/../package.lisp" ;;; OPTIMIZE levels: Safety=3, Space=0, Speed=2, Debug=2 ;;; ;;; End of Pass 1. ;;; Note: ;;; Invoking external command: ;;; gcc "-I/development/include/" -D_GNU_SOURCE - D_FILE_OFFSET_BITS=64 -g -O2 -fPIC -Dlinux -O -w -c "/tmp/ ECL001G986OB.c" -o "/tmp/ECL001G986OB.o" ;;; ;;; Note: ;;; Invoking external command: ;;; gcc -o "/tmp/ECL001G986OB.fas" -L"/development/lib/" "/tmp/ ECL001G986OB.o" -shared -lecl -lgmp -ldl -lm ;;; Host translations: LIBRARY base: #P"/ebs/source/library/de/setf/utility/pathnames.lisp". location: NIL. root-target: #P"/ebs/source/library/**/*.*". binary: #P"/ebs/source/library/bin/ECL/**/*.fas".ECL (Embeddable Common-Lisp) 10.2.1 Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya Copyright (C) 1993 Giuseppe Attardi Copyright (C) 2000 Juan J. Garcia-Ripoll ECL is free software, and you are welcome to redistribute it under certain conditions; see file 'Copyright' for details. Type :h for Help. Top level. > asdf::*asdf-version* "1.671" > asdf@ip-10-251-122-82:/development/source/library$ /usr/local/bin/ sbcl --no-sysinit --userinit build-init.lisp This is SBCL 1.0.36, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. ;Build root: #P"/ebs/source/library/". ;Incorporating asdf anew from #P"/ebs/source/library/net/common-lisp/ asdf/asdf.lisp". ; compiling file "/ebs/source/library/net/common-lisp/asdf/ asdf.lisp" (written 08 APR 2010 10:26:56 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (LET* (# # ...) ...) ; file: /ebs/source/library/net/common-lisp/asdf/asdf.lisp ; [ ... ] ; /ebs/source/library/net/common-lisp/asdf/asdf.fasl written ; compilation finished in 0:00:05.487 ; loading #P"/ebs/source/library/net/common-lisp/asdf/asdf.fasl" ; loading #P"/ebs/source/library/de/setf/utility/asdf/hierarchical- names.lisp" ;; loading #P"/ebs/source/library/de/setf/utility/asdf/../ pathnames.lisp" ;;; loading #P"/ebs/source/library/de/setf/utility/asdf/../package.lisp" Host translations: LIBRARY base: #P"/ebs/source/library/de/setf/utility/pathnames.lisp". location: NIL. root-target: #P"/ebs/source/library/**/*.*". binary: #P"/ebs/source/library/bin/sbcl-linux/**/*.fasl". * asdf@ip-10-251-122-82:/development/source/library$ lispworks LispWorks(R): The Common Lisp Programming Environment Personal Edition Copyright (C) 1987-2008 LispWorks Ltd. All rights reserved. Version 5.1.1 Saved by LispWorks as lispworks-personal-5-1-1-x86-linux, at 13 May 2008 17:15 User asdf on ip-10-251-122-82 Error: Could not register handle for external module X- UTILITIES::CAPIX11: libXm.so.3: cannot open shared object file: No such file or directory. 1 (abort) Quit process. Type :b for backtrace, :c <option number> to proceed, or :? for other options CL-USER 1 : 1 > (load "build-init.lisp") ; Loading text file /ebs/source/library/build-init.lisp ;Build root: #P"/ebs/source/library/build-init.lisp". ;Incorporating asdf anew from #P"/ebs/source/library/net/common-lisp/ asdf/asdf.lisp". ;;; Compiling file /ebs/source/library/net/common-lisp/asdf/ asdf.lisp ... ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; [ ... ] ; Loading fasl file /ebs/source/library/net/common-lisp/asdf/asdf.ufasl #P"/ebs/source/library/build-init.lisp" CL-USER 2 : 1 >

1 0

[asdf-devel] duplicate-name condition
by Tobias C. Rittweiler 07 Apr '10

07 Apr '10

I was just bitten by a duplicate-name condition. It was on ASDF1, but the code still seems to be exactly the same in ASDF2. Please add a proper error message to that condition. I first thought there are two systems with the same name, but it actually complains about two files with the same name in the same component. -T.

2 1

Re: [asdf-devel] Patches for ASDF2 for translation function
by Faré 06 Apr '10

06 Apr '10

Dear Mark, I merged your patch in, after rearranging it a little bit. Tell me how it's working for you... [ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] Procrastination is great. It gives me a lot more time to do things that I'm never going to do. On 5 April 2010 14:09, Mark Evenson <evenson(a)panix.com> wrote: > [With the attached patches, the following email get rejected by both the > asdf-devel and armedbear-devel mailing lists. If the mail doesn't get > through in the next day, I'll stash the patches at a URL and resend.] > > -------- Original Message -------- > Subject: Patches for ASDF2 for translation function > Date: Mon, 05 Apr 2010 14:52:00 +0200 > From: Mark Evenson <evenson(a)panix.com> > To: ASDF-devel <asdf-devel(a)common-lisp.net> > CC: Armed Bear <armedbear-devel(a)common-lisp.net> > > On 3/29/10 11:33 AM, Mark Evenson wrote: > […] > >>> I'd favor either a keyword argument or :function as a magic marker >>> to be inserted in FIRST position, followed by a function designator >>> (and additionally, parameters to curry?). Unless of course, you >>> symmetrically accept a FUNCTION in first position to denote a >>> "recognize if this matching rule applies". >> >> >> I would think that we want to preserve the current ability for the >> user to vistually scan down the list of translations to determine >> what should match, so I would favor going for your second proposal. >> It doesn't make sense that there be a match predicate paired with a >> translation pathname right? So the two new possibilities for output >> translation lists would be: >> >> ("/**/foo/*.*" (:function FOO-OUTPUT-TRANSLATION)) >> ((:function BAR-PATHNAME-P) (:function BAR-OUTPUT-TRANSLATION)) > > Attached is a patch against ASDF that allows a user specified function > to take the place of TRANSLATE-PATHNAME as the ASDF2 output translation > function. > > Additionally it adds an ABCL specific extension to ASDF2 that uses this > ability by providing the following translations by default > > (#p"jar:file:/**/*.jar!/**/*.*" (:function translate-jar-pathname)) > (#p"/:jar:file/**/*.*" (:user-cache #p"**/*.*"))) > > that will map all ASDF loads from jar pathnames to an output location > under the per user cache location. This will allow the loading of ASDF > systems packaged in jar files which first compiles and then loads FASLs > to the local filesystem. > > To run this with ABCL you will need to build a custom build of ABCL with > the attached patch which is currently necessary to OPEN a jar pathname. > This patch is part of a large set of modifications that allow ABCL to > open a pathname specified as a url, that I am developing and testing as > a unit. These modiictions will be placed in ABCL trunk soon, but first > I need to add create more unit tests for the introduced functionality > and implement a few more suggestions (like URI encoding functions). > > I did not implement Faré's suggestion of including a syntax for a > predicate function as the first argument for a output translation pair, > because I couldn't come up with a use case in which the current default > function PATHNAME-MATCH-P would not work. If someone can come up with > such a case, or this deficiency prevents ASDF from accepting this patch, > I can have a go at it again. > > -- > "A screaming comes across the sky. It has happened before, but there > is nothing to compare to it now."

2 1

[asdf-devel] ASDF2 cache control?
by Jean-Claude Beaudoin 06 Apr '10

06 Apr '10

Hello ASDF developers, I just upgraded my version of ASDF to 1.661, more or less the latest and greatest. I would like to know how to turn off the compiler output cache that ASDF now uses. In the currently available manual (on the web site) there is a mention of variable *centralize-lisp-binaries* and a few other variables that would control that area of ASDF. But *centralize-lisp-binaries* is no where to be found in the current source code. The manual obviously lags significantly behind the evolution of the code... So how does one turn off the compiler output cache in this new version of ASDF? Thanks, Jean-Claude Beaudoin

6 18

[asdf-devel] ? interaction between asdf and cmucl on the matter of "home:"
by james anderson 05 Apr '10

05 Apr '10

good evening; an attempt to use asdf in cmucl to build alexandria fails in connection with operations on a pathname designator which begins with "home:". one observes, that it is not only commercial vendors who know what is best for us. is cmu 20* expected to work with asdf 1.6*? is there some this to configure to eliminate the problem? i have read about ext:clear-search-list, but its effect is somehow not sufficient. the problem persists even once (ext;search-list-defined-p "home:") yields nil prior to compile-loading asdf. asdf@ip-10-251-122-82:/development/source/metadata/net/common-lisp/ alexandria$ /development/bin/cmucl CMU Common Lisp 20a (20A), running on ip-10-251-122-82 With core: /development/downloads/cmucl-20a-non-unicode-x86-linux/lib/ cmucl/lib/lisp-sse2.core Dumped on: Mon, 2009-09-28 16:06:53Z on usrtc3154 See <http://www.cons.org/cmucl/> for support information. Loaded subsystems: Python 1.1, target Intel x86 CLOS based on Gerd's PCL 2008-11-12 16:36:41 * (load (compile-file-pathname "/development/source/library/net/ common-lisp/asdf/asdf.lisp")) ; Loading #P"/ebs/source/library/net/common-lisp/asdf/asdf.sse2f". T * asdf::*asdf-version* "1.661" * (push #p"/development/source/upload/net/common-lisp/alexandria/" asdf:*central-registry*) (#P"/development/source/upload/net/common-lisp/alexandria/") * (asdf:load-system :alexandria) ; loading system definition from ; /development/source/upload/net/common-lisp/alexandria/ alexandria.asd into ; #<The ASDF0 package> ; Loading #P"/ebs/source/upload/net/common-lisp/alexandria/ alexandria.asd". ; registering #<SYSTEM :ALEXANDRIA {58B015CD}> as ALEXANDRIA ; Compiling LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. O C): ; Compiling Top-Level Form: ; [GC threshold exceeded with 12,008,296 bytes in use. Commencing GC.] ; [GC completed with 1,578,760 bytes retained and 10,429,536 bytes freed.] ; [GC will next occur when at least 13,578,760 bytes are in use.] ; Compiling LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. O C): ; Compiling Top-Level Form: Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: #<SEARCH-LIST home> is not of type (OR LISP::PATTERN SYMBOL SIMPLE-BASE-STRING INTEGER) [Condition of type TYPE-ERROR] Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) (LISP::COMPONENTS-MATCH 2 "ebs" #<SEARCH-LIST home>)[:EXTERNAL] Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/pathname.lisp. 0] (logical-pathname-translations "HOME") File-error in function LISP::FIND-LOGICAL-HOST: Logical host not yet defined: "HOME" Error flushed ... 0] (extensions:search-list "home:") (#P"/home/asdf/") 0] :back 0: (LISP::COMPONENTS-MATCH 2 "ebs" #<SEARCH-LIST home>)[:EXTERNAL] 1: (LISP::DIRECTORY-COMPONENTS-MATCH ("ebs" "source" "upload" "net" "common-lisp" ...) (#<SEARCH-LIST home> ".cache" "common-lisp" "cmu-20a__20a_-linux- x86" :WILD-INFERIORS)) 2: (LISP::DIRECTORY-COMPONENTS-MATCH 2 (:ABSOLUTE "ebs" "source" "upload" "net" ...) (:ABSOLUTE #<SEARCH-LIST home> ".cache" "common-lisp" "cmu-20a__20a_- linux-x86" ...))[:EXTERNAL] 3: (PATHNAME-MATCH-P #P"/ebs/source/upload/net/common-lisp/alexandria/package.sse2f" #P"home:.cache/common-lisp/cmu-20a__20a_-linux-x86/**/*.*") 4: (ASDF:APPLY-OUTPUT-TRANSLATIONS #P"/ebs/source/upload/net/common-lisp/alexandria/package.sse2f") 5: ((METHOD ASDF:OUTPUT-FILES (:AROUND) (T T)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {58CCC079}> :PV-CELL (# . #) :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL :FUNCTION # :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO #) :ARG-INFO (2)) #<ASDF:COMPILE-OP NIL {581EEBED}> #<ASDF:CL-SOURCE-FILE "package" {58D08F9D}>) 6: ((METHOD ASDF:OPERATION-DONE-P NIL (ASDF:OPERATION ASDF:COMPONENT)) (#(7) . #(# #)) #<unused-arg> #<ASDF:COMPILE-OP NIL {581EEBED}> #<ASDF:CL-SOURCE-FILE "package" {58D08F9D}>) 7: ((METHOD ASDF::TRAVERSE NIL (ASDF:OPERATION ASDF:COMPONENT)) (#(3 5 NIL NIL) . #(# # # # #)) #<unused-arg> #<ASDF:COMPILE-OP NIL {581EEBED}> #<ASDF:CL-SOURCE-FILE "package" {58D08F9D}>) 8: ((METHOD ASDF::TRAVERSE NIL (ASDF:OPERATION ASDF:COMPONENT)) (#(3 5 9 10) . #(# # # # #)) #<unused-arg> #<ASDF:COMPILE-OP NIL {581EEBED}> #<ASDF:SYSTEM "alexandria" {58C85305}>) 9: ((LABELS ASDF::DO-ONE-DEP) ASDF:COMPILE-OP "alexandria" NIL) 10: ((LABELS ASDF::DO-DEP) ASDF:COMPILE-OP ("alexandria")) 11: ((METHOD ASDF::TRAVERSE NIL (ASDF:OPERATION ASDF:COMPONENT)) (#(3 5 9 10) . #(# # # # #)) #<unused-arg> #<ASDF:LOAD-OP NIL {58AF290D}> #<ASDF:SYSTEM "alexandria" {58C85305}>) 12: (ASDF:OPERATE ASDF:LOAD-OP :ALEXANDRIA) 13: (INTERACTIVE-EVAL (ASDF:LOAD-SYSTEM :ALEXANDRIA)) 14: (LISP::%TOP-LEVEL) 15: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0]

2 3

[asdf-devel] ASDF2: Please, no unwrapped calls to "truename".
by Jean-Claude Beaudoin 05 Apr '10

05 Apr '10

My very first attempt at using ASDF version 1.661 on my system ended-up in the debugger on a file-error signaled by function truename. The offending call came from function asdf::component-parent-pathname that contains a call to truename unwrapped in any condition handler although truename is required to signal errors. This seems to be the only such instance in asdf.lisp, all the other truename calls being wrapped inside a ignore-errors. I fixed the situation by modifying asdf::component-parent-pathname this way: (defun component-parent-pathname (component) (aif (component-parent component) (component-pathname it) (or (ignore-errors (truename *default-pathname-defaults*)) *default-pathname-defaults*))) BTW, I would like to mention that in my CL system *default-pathname-defaults* is not a replacement for the process current working directory (which can be properly queried only through a call to getcwd). Thinking otherwise seems to me to be pretty clearly an unportable assumption unsupported by the ANSI CL standard. That ASDF seems to make that assumption troubles me seriously. In fact I cannot figure out how I would explain to a naive beginning lisper on MS-Windows that *default-pathname-defaults* is an equivalent of the current directory when there is a potential of up to 26 simultaneous current directories on his OS (one per drive letter). On the top of that the current working director(y|ies) is/are a process-level attribute and *default-pathname-defaults* being a special variable is most likely to have a thread-local binding at one point or an other, in some CL systems this could even be part of the initial thread bindings. How one reconciles these many independently evolving thread bindings with the single process-level attribute sure beat me! Cheers, Jean-Claude Beaudoin

3 4