Changeset 14441


Ignore:
Timestamp:
Nov 22, 2010, 10:24:17 AM (9 years ago)
Author:
gb
Message:

In ENSURE-DIRECTORY-PATHNAME, copy the pathname-host of the source
to the destination.

Fixes ticket:783, assuming that the complaint there is that the
result is missing a device component.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-files.lisp

    r14376 r14441  
    372372                                      (pathname-type path)
    373373                                      nil)))
    374                        nil nil (pathname-host path)))))
     374                       nil nil (pathname-host path) nil #+windows-target (pathname-device path)))))
    375375
    376376(defun %directory-list-namestring (list &optional logical-p)
Note: See TracChangeset for help on using the changeset viewer.