>>>>> "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?
If I comment this line out, your file loads and prints out the
expected results, I think:
CL-USER> (load "pathname-bug.lisp")
; Loading #P"/apps/public/src/cmucl/clnet-dev-main/pathname-bug.lisp".
#:G0
#P"/tmp/pack/utility.lisp"
#:G0
#P"/tmp/pack/utility.lisp"
#:G0
#P"/tmp/pack/utility.lisp"
T
Ray
