Raymond Toy writes:
> >>>>> "Pascal" == Pascal Bourguignon <[EMAIL PROTECTED]> writes:
>
> [snip]
>
> Pascal> ;;MARK
> Pascal> (setf path-ext (MAKE-PATHNAME :TYPE EXT :defaults path))
> Pascal> (trint (probe-file *))
>
> Is * supposed to be defined when you are loading a file?
A good point (*^.^*)
So indeed, it the bug is completely corrected in 19b. Thank you.
;;Let's try again with this file:
;;----------------------------------------------------------------------
(ensure-directories-exist #P"/tmp/pack/")
(close (open #P"/tmp/pack/utility.lisp"
:direction :output :if-exists :append :if-does-not-exist :create))
(setf (logical-pathname-translations "PACKAGES")
(list (list "PACKAGES:**;*.*.*" #P"/tmp/pack/**/*.*.*")
(list "PACKAGES:**;*.*" #P"/tmp/pack/**/*.*")
(list "PACKAGES:**;*" #P"/tmp/pack/**/*")))
(defparameter path "PACKAGES:UTILITY.x86f")
(defparameter ext "lisp")
(defparameter path-ext nil)
(setf path-ext (MAKE-PATHNAME :TYPE EXT :defaults path))
(print (list '(probe-file path-ext)
(probe-file path-ext)))
(print (list '(probe-file (logical-pathname "PACKAGES:UTILITY.lisp"))
(probe-file (logical-pathname "PACKAGES:UTILITY.lisp"))))
(print (list '(probe-file (logical-pathname "PACKAGES:UTILITY.LISP"))
(probe-file (logical-pathname "PACKAGES:UTILITY.LISP"))))
;;----------------------------------------------------------------------
CMU Common Lisp 18e-pre2 2003-03-25-003, running on thalassa
With core: /local/languages/cmucl-18e/lib/cmucl/lib/lisp.core
Dumped on: Wed, 2003-03-26 00:53:00+01:00 on orion
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
Python 1.1, target Intel x86
CLOS 18e (based on PCL September 16 92 PCL (f))
* (load"/home/pjb/src/lisp/encours/cmucl-pathnames-bug.lisp")
; Loading #p"/local/users/pjb/src/lisp/encours/cmucl-pathnames-bug.lisp".
((PROBE-FILE PATH-EXT) NIL)
((PROBE-FILE (LOGICAL-PATHNAME "PACKAGES:UTILITY.lisp"))
#p"/tmp/pack/utility.lisp")
((PROBE-FILE (LOGICAL-PATHNAME "PACKAGES:UTILITY.LISP"))
#p"/tmp/pack/utility.lisp")
T
*
[EMAIL PROTECTED] opt]$ CMUCLLIB=/opt/cmucl/lib/cmucl/lib cmucl/bin/lisp -core
cmucl/lib/cmucl/lib/lisp.core -noinit -nositeinit
CMU Common Lisp 19b (19B), running on thalassa
With core: /opt/cmucl-19b/lib/cmucl/lib/lisp.core
Dumped on: Tue, 2005-06-28 02:09:58+02:00 on lorien
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
Python 1.1, target Intel x86
CLOS based on Gerd's PCL 2004/04/14 03:32:47
* (load"/home/pjb/src/lisp/encours/cmucl-pathnames-bug.lisp")
; Loading #P"/local/users/pjb/src/lisp/encours/cmucl-pathnames-bug.lisp".
((PROBE-FILE PATH-EXT) #P"/tmp/pack/utility.lisp")
((PROBE-FILE (LOGICAL-PATHNAME "PACKAGES:UTILITY.lisp"))
#P"/tmp/pack/utility.lisp")
((PROBE-FILE (LOGICAL-PATHNAME "PACKAGES:UTILITY.LISP"))
#P"/tmp/pack/utility.lisp")
T
*
--
__Pascal Bourguignon__ http://www.informatimago.com/
Small brave carnivores
Kill pine cones and mosquitoes
Fear vacuum cleaner
