Changeset 14441

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:

• trunk/source/level-1/l1-files.lisp (modified) (1 diff)

trunk/source/level-1/l1-files.lisp

@@ -372 +372 @@
                                       (pathname-type path)
                                       nil)))
-                       nil nil (pathname-host path)))))
+                       nil nil (pathname-host path) nil #+windows-target (pathname-device path)))))
 
 (defun %directory-list-namestring (list &optional logical-p)