Changeset 730

Timestamp:

Mar 27, 2004, 2:45:59 AM (21 years ago)

Author:

Gary Byers

Message:

Quote more chars when converting from native namestrings.

File:

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

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

@@ -87 +87 @@
 ;; Reverse of above, take native namestring and make a Lisp pathname.
 (defun native-to-pathname (name)
-  (pathname (%path-std-quotes name nil "*")))
+  (pathname (%path-std-quotes name nil "*;:")))
 
 (defun native-to-directory-pathname (name)
-  (make-directory-pathname  :device nil :directory (%path-std-quotes name nil "*")))
+  (make-directory-pathname  :device nil :directory (%path-std-quotes name nil "*;:")))
 
 ;;; Make a pathname which names the specified directory; use