Changeset 9826


Ignore:
Timestamp:
Jun 22, 2008, 10:52:45 PM (11 years ago)
Author:
gb
Message:

PATHNAME-DIRECTORY: if parsing a string, skip over Windows device
prefix.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-1/l1-files.lisp

    r9817 r9826  
    805805                     (multiple-value-bind (host pos2) (pathname-host-sstr sstr start end)
    806806                       (unless (eq host :unspecific) (setq logical-p t))
     807                       #+windows-target
     808                       (unless logical-p
     809                         (if (and (> end 1)
     810                                  (eql (schar sstr 1) #\:))
     811                           (setq pos2 2)))
    807812                      (pathname-directory-sstr sstr pos2 end host))))
    808813                  (t (report-bad-arg path pathname-arg-type)))))
Note: See TracChangeset for help on using the changeset viewer.