>>>>> "Christopher" == Christopher C Stacy <[EMAIL PROTECTED]> writes:
Christopher> There seems to be some assumptions about the case of the pathname
Christopher> components - lowercase is built into the code in various places.
Christopher> It seems to me that this can't ever work, since logical pathnames
Christopher> are parsed by CMUCL as uppercase.
Here is a replacement function that you can try out. It converts
components of a logical pathname to upper case on creation. I think
it will take care of your problems.
Please try it out if you can. If it works, I'll make sure that it
will get into the 19a release.
Ray
(in-package "LISP")
(defun %make-pathname-object (host device directory name type version)
(if (typep host 'logical-host)
(flet ((upcasify (thing)
(typecase thing
(list
(mapcar #'(lambda (x)
(if (stringp x)
(string-upcase x)
x))
thing))
(simple-base-string
(string-upcase thing))
(t
thing))))
(%make-logical-pathname host :unspecific
(upcasify directory)
(upcasify name)
(upcasify type)
(upcasify version)))
(%make-pathname host device directory name type version)))
