[asdf-devel] ? interaction between asdf and cmucl on the matter of "home:"

[james anderson]

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 at 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]