[Openmcl-devel] Another pathname question

[Gary King]

I have two files named "one.lisp" and "two.lisp". Here they are:

one.lisp
(in-package common-lisp-user)

(setf (logical-pathname-translations "foo")
       `(("foo:**;*.*"
          ,(make-pathname
            :name :wild
            :type :wild
            :directory (append (pathname-directory (load-pathname))
                               (list :wild-inferiors))))))

(let ((*default-pathname-defaults* #P"foo:"))
   (load "two"))

two.lisp
(in-package common-lisp-user)

(print "HI HO")

I've placed them in the same directory. Now my hope was that when I 
load one, it will load two. This works under MCL. It does not, however, 
work under LispWorks, OpenMCL, etc. Under OpenMCL, I get the following 
error:

? (load "one.lisp")
 > Error in process listener(1): Illegal logical namestring 
"/Volumes/Users/gwking/Applications/MCL-5.1b1/test/two.lisp"
 > While executing: CCL::STRING-TO-PATHNAME

Under LispWorks, I get:

Error: Parsing of logical pathname "/.automount/*/root/**/*" failed at 
index 0 (#\/).
   1 (continue) Try loading two again.
   ...

Obviously, I'm confused. Help appreciated.
-- 
Gary Warren King, Lab Manager
EKSL East, University of Massachusetts * 413 577 0176

[neoconservations] forget the first principle of open society: namely, 
that we may be wrong.
   -- George Soros in a TPM interview 
(http://www.talkingpointsmemo.com/archives/week_2004_01_18.html#002456)
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 1610 bytes
Desc: not available
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20040226/8c737bb8/attachment.bin>