/[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.86 by rtoy, Fri Apr 4 15:11:13 2008 UTC revision 1.86.2.3 by rtoy, Mon Mar 16 21:10:55 2009 UTC
# Line 890  a host-structure or string." Line 890  a host-structure or string."
890    (declare (type path-designator pathname)    (declare (type path-designator pathname)
891             (type (member :local :common) case))             (type (member :local :common) case))
892    (with-pathname (pathname pathname)    (with-pathname (pathname pathname)
893      (maybe-diddle-case (%pathname-directory pathname)      ;; CLHS 19.2.2.1.2.2 says: "should receive and yield strings in
894                         (and (eq case :common)      ;; component values"
895                              (eq (host-customary-case      ;;
896                                   (%pathname-host pathname))      ;; We take this to mean it applies to each component of the
897                                  :lower)))))      ;; directory individually.  This also matches the example in the
898        ;; entry for PATHNAME-HOST.
899        (let ((diddle-p (and (eq case :common)
900                             (eq (host-customary-case
901                                  (%pathname-host pathname))
902                                 :lower))))
903          (mapcar #'(lambda (piece)
904                      (maybe-diddle-case piece diddle-p))
905                  (%pathname-directory pathname)))))
906    
907  ;;; PATHNAME-NAME -- Interface  ;;; PATHNAME-NAME -- Interface
908  ;;;  ;;;
909  (defun pathname-name (pathname &key (case :local))  (defun pathname-name (pathname &key (case :local))

Legend:
Removed from v.1.86  
changed lines
  Added in v.1.86.2.3

  ViewVC Help
Powered by ViewVC 1.1.5