Changeset 15330

Timestamp:

Apr 17, 2012, 6:25:54 AM (13 years ago)

Author:

Gary Byers

Message:

NATIVE-TO-PATHNAME: bind *DEFAULT-PATHNAME-DEFAULTS* to #P"", in case
it's already bound to something questionable.

See ticket:953.

File:

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

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

@@ -103 +103 @@
 ;; Reverse of above, take native namestring and make a Lisp pathname.
 (defun native-to-pathname (name)
-  (pathname (%path-std-quotes name nil
-                              #+windows-target "*;"
-                              #-windows-target "*;:")))
+  ;; This assumes that NAME is absolute and fully qualified, and
+  ;; that there'd be no benefit to (and some risk involved in)
+  ;; effectively merging it with whatever random thing may be
+  ;; in *DEFAULT-PATHNAME-DEFAULTS*.
+  ;; I -think- that that's true for all callers of this function.
+  (let* ((*default-pathname-defaults* #p""))
+    (pathname (%path-std-quotes name nil
+                                   #+windows-target "*;"
+                                   #-windows-target "*;:"))))
 
 (defun native-to-directory-pathname (name)