diff --git a/code/pathname.lisp b/code/pathname.lisp index e44ed5b7774192ae03696e257965268268520fc4..06bb46140a9624accdc2ba1a7379fdb36b4add2d 100644 --- a/code/pathname.lisp +++ b/code/pathname.lisp @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.64 2004/04/01 16:26:35 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.65 2004/05/18 13:24:42 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -199,7 +199,23 @@ (defun %make-pathname-object (host device directory name type version) (if (typep host 'logical-host) - (%make-logical-pathname host :unspecific directory name type version) + (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))) ;;; *LOGICAL-HOSTS* --internal.