[Openmcl-devel] pathname problem with load

[Gary Byers]

On Mon, 4 Jul 2005, Rick Taube wrote:

> Hi -- this seems like a bug to me: probe-file and truename can handle this 
> shell-script generated pathname but then load cannot:
> -Rick
>
> Welcome to OpenMCL Version (Beta: Darwin) 0.14.3!
> ? (probe-file "/Lisp/cm/bin/./../src/cm.lisp")
> #P"/Lisp/cm/src/cm.lisp"
> ? (truename "/Lisp/cm/bin/./../src/cm.lisp")
> #P"/Lisp/cm/src/cm.lisp"
> ? (load "/Lisp/cm/bin/./../src/cm.lisp")
>> Error in process listener(1): File "/Lisp/cm/bin/./../src/cm.lisp" does not 
> exist.
>> While executing: "Unknown"
>> Type :POP to abort.
> Type :? for other options.
> 1 >
>

This has the feel of putting a bandaid on a symptom and ignoring the real
problem, but the symptom can be fixed in this case by making the function
CCL::REMOVE-UP (in "ccl:level-1;l1-files.lisp") remove any (redundant)
"." components from its argument:

(defun remove-up (dir)
   (SETQ DIR (DELETE "." DIR  :TEST #'STRING=))
   (LET ((n 0)
         (last nil)
         [...])))