[asdf-devel] ? interaction between asdf and cmucl on the matter of "home:"
Faré
fahree at gmail.com
Mon Apr 5 19:36:26 UTC 2010
Looks like a bug in CMUCL. Sigh.
Does it work better if all occurrences of (user-homedir-pathname) are
replaced with
(truename (user-homedir-pathname)) ?
[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
— Question authority!
— Yeah, says who?
On 5 April 2010 19:59, james anderson <james.anderson at setf.de> wrote:
> 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]
>
>
> _______________________________________________
> asdf-devel mailing list
> asdf-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
>
More information about the asdf-devel
mailing list