/[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.87 by rtoy, Mon Mar 16 15:52:49 2009 UTC revision 1.88 by rtoy, Thu Aug 13 19:23:42 2009 UTC
# Line 270  Line 270 
270                                  (upcasify name)                                  (upcasify name)
271                                  (upcasify type)                                  (upcasify type)
272                                  (upcasify version)))                                  (upcasify version)))
273        (%make-pathname         host device      directory name type version)))        (%make-pathname host device directory name type version)))
274    
275  ;;; *LOGICAL-HOSTS* --internal.  ;;; *LOGICAL-HOSTS* --internal.
276  ;;;  ;;;
# Line 615  Line 615 
615        (let ((results nil))        (let ((results nil))
616          (flet ((add (dir)          (flet ((add (dir)
617                   (if (and (eq dir :back)                   (if (and (eq dir :back)
618                            results                            (cdr results)
619                            (not (eq (car results) :back)))                            (not (eq (car results) :back)))
620                       (pop results)                       (pop results)
621                       (push dir results))))                       (push dir results))))
# Line 645  Line 645 
645                (and default-host pathname-host                (and default-host pathname-host
646                     (not (eq (host-customary-case default-host)                     (not (eq (host-customary-case default-host)
647                              (host-customary-case pathname-host))))))                              (host-customary-case pathname-host))))))
648          (%make-pathname-object          (make-pathname
649           (or pathname-host default-host)           :host (or pathname-host default-host)
650           (or (%pathname-device pathname)           :device (or (%pathname-device pathname)
651               (maybe-diddle-case (%pathname-device defaults)                       (maybe-diddle-case (%pathname-device defaults)
652                                  diddle-case))                                          diddle-case))
653           (merge-directories (%pathname-directory pathname)           :directory (merge-directories (%pathname-directory pathname)
654                              (%pathname-directory defaults)                                         (%pathname-directory defaults)
655                              diddle-case)                                         diddle-case)
656           (or (%pathname-name pathname)           :name (or (%pathname-name pathname)
657               (maybe-diddle-case (%pathname-name defaults)                     (maybe-diddle-case (%pathname-name defaults)
658                                  diddle-case))                                        diddle-case))
659           (or (%pathname-type pathname)           :type (or (%pathname-type pathname)
660               (maybe-diddle-case (%pathname-type defaults)                     (maybe-diddle-case (%pathname-type defaults)
661                                  diddle-case))                                        diddle-case))
662           (or (if (null (%pathname-name pathname))           :version (or (if (null (%pathname-name pathname))
663                   (or (%pathname-version pathname)                            (or (%pathname-version pathname)
664                       (%pathname-version defaults))                                (%pathname-version defaults))
665                   (%pathname-version pathname))                            (%pathname-version pathname))
666               default-version))))))                        default-version))))))
667    
668  ;;; IMPORT-DIRECTORY -- Internal  ;;; IMPORT-DIRECTORY -- Internal
669  ;;;  ;;;

Legend:
Removed from v.1.87  
changed lines
  Added in v.1.88

  ViewVC Help
Powered by ViewVC 1.1.5