[Openmcl-cvs-notifications] r10704 - /trunk/source/level-1/l1-files.lisp

[gb at clozure.com]

Author: gb
Date: Thu Sep 11 10:18:08 2008
New Revision: 10704

Log:
Remove STRIP-DRIVE-FOR-NOW, since it's no longer NOW.


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

Modified: trunk/source/level-1/l1-files.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-files.lisp (original)
+++ trunk/source/level-1/l1-files.lisp Thu Sep 11 10:18:08 2008
@@ -112,7 +112,7 @@
     (when (and (> len 1) (not (or (eql (schar name (1- len)) #\/)
                                   (eql (schar name (1- len)) #\\))))
       (setq name (%str-cat name "/")))
-    (string-to-pathname (strip-drive-for-now name)))
+    (string-to-pathname name))
   #-windows-target
   (make-directory-pathname  :device nil :directory (%path-std-quotes name =
nil "*;:")))
 =