/[cmucl]/src/code/pathname.lisp
ViewVC logotype

Diff of /src/code/pathname.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.64 by rtoy, Thu Apr 1 16:26:35 2004 UTC revision 1.64.4.1 by rtoy, Tue May 18 14:35:57 2004 UTC
# Line 199  Line 199 
199    
200  (defun %make-pathname-object (host device directory name type version)  (defun %make-pathname-object (host device directory name type version)
201    (if (typep host 'logical-host)    (if (typep host 'logical-host)
202        (%make-logical-pathname host :unspecific directory name type version)        (flet ((upcasify (thing)
203                   (typecase thing
204                     (list
205                      (mapcar #'(lambda (x)
206                                  (if (stringp x)
207                                      (string-upcase x)
208                                      x))
209                              thing))
210                     (simple-base-string
211                      (string-upcase thing))
212                     (t
213                      thing))))
214            (%make-logical-pathname host :unspecific
215                                    (upcasify directory)
216                                    (upcasify name)
217                                    (upcasify type)
218                                    (upcasify version)))
219        (%make-pathname         host device      directory name type version)))        (%make-pathname         host device      directory name type version)))
220    
221  ;;; *LOGICAL-HOSTS* --internal.  ;;; *LOGICAL-HOSTS* --internal.

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.64.4.1

  ViewVC Help
Powered by ViewVC 1.1.5