Bug: load binds *load-pathname* incorrectly

[Pascal C. <pc...@p-...>]

Hi,

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.

Please let me know if I can be of further help to narrow down the problem.


Best,
Pascal

-- 
Pascal Costanza, mailto:pc...@p-..., http://p-cos.net
Vrije Universiteit Brussel
Software Languages Lab
Pleinlaan 2, B-1050 Brussel, Belgium