Changeset 14020

Timestamp:

Jul 22, 2010, 8:19:54 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

In FULL-PATHNAME, get a suitable device pathname component from
MAC-HOME-DIRECTORY if none is present in the passed-in path.

File:

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

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

@@ -684 +684 @@
                                       (return-from full-pathname nil)
                                       (error condition)))))
-         (dir (%pathname-directory path)))
-    (if (eq (car dir) :absolute)
-      path
-      (cons-pathname (absolute-directory-list dir)
-                       (%pathname-name path)
-                       (%pathname-type path)
-                       (pathname-host path)
-                       (pathname-version path)))))
+         (dir (%pathname-directory path))
+         (device #+windows-target
+                 (or (pathname-device path)
+                     (pathname-device (mac-default-directory)))
+                 #-windows-target
+                 nil))
+    (cons-pathname (if (eq (car dir) :absolute)
+                     dir
+                     (absolute-directory-list dir))
+                   (%pathname-name path)
+                   (%pathname-type path)
+                   (pathname-host path)
+                   (pathname-version path)
+                   device)))