From: SourceForge.net <no...@so...> - 2011-03-24 19:03:21
|
Bugs item #3165355, was opened at 2011-01-25 11:23 Message generated for change (Comment added) made by sds You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3165355&group_id=1355 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: clisp Group: ANSI compliance issue Status: Deleted Resolution: Works For Me Priority: 5 Private: No Submitted By: Pascal Costanza (pcostanza) Assigned to: Sam Steingold (sds) Summary: load binds *load-pathname* incorrectly Initial Comment: Here is a test case to illustrate the bug: I have a file in /Users/costanza/Temp/test.lisp that contains the single line (print *load-pathname*). Here is a session with clisp: [1]> (setq custom:*parse-namestring-ansi* t) T [2]> (setf (logical-pathname-translations "temp") '(("**;*.*.*" "/Users/costanza/Temp/**/*.*"))) ((#P"TEMP:**;*.*.*" "/Users/costanza/Temp/**/*.*")) [3]> (load #P"temp:test.lisp") ;; Loading file /Users/costanza/Temp/test.lisp ... #P"/Users/costanza/Temp/test.lisp" ;; Loaded file /Users/costanza/Temp/test.lisp T The HyperSpec states that *load-pathname* is bound to the pathname denoted by the first argument to load, not to the translated physical pathname. This seems to cause problems when trying to use ASDF 2 with logical pathnames. ---------------------------------------------------------------------- >Comment By: Sam Steingold (sds) Date: 2011-03-24 15:03 Message: this was apparently fixed together with bug#3124200 on 2010-12-10 ---------------------------------------------------------------------- Comment By: Sam Steingold (sds) Date: 2011-03-24 14:59 Message: hg tip: (let (lp) (setf (logical-pathname-translations "FOO") '(("*" "./*"))) (setq lp (logical-pathname "FOO:load-test")) (with-open-file (o lp :direction :output) (write-line "(defparameter *load-var* *load-pathname*)" o)) (unwind-protect (list (equalp (truename lp) (load lp)) (equalp (merge-pathnames lp) *load-var*)) (delete-file lp) (setf (logical-pathname-translations "FOO") NIL))) ==> (T T) ---------------------------------------------------------------------- Comment By: Sam Steingold (sds) Date: 2011-03-24 14:59 Message: This bug report is now marked as "pending"/"works for me". This means that we think that we cannot reproduce the problem and cannot do anything about it. Unless you - the reporter - act within 2 weeks (e.g., by submitting a self-contained test case or answering our other recent requests), the bug will be permanently closed. Sorry about the inconvenience - we hope your silence means that you are no longer observing the problem either. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3165355&group_id=1355 |