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

[rme at clozure.com]

Author: rme
Date: Fri Jul 23 11:26:02 2010
New Revision: 14028

Log:
In string-to-pathname, do tilde expansion on Windows also.  Note that
tilde-expand doesn't do "~user" on Windows, but "~/foo" works.

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 Fri Jul 23 11:26:02 2010
@@ -531,7 +531,6 @@
                                             (defaults *default-pathname-de=
faults*))
   (require-type reference-host '(or null string))
   (multiple-value-bind (sstr start end) (get-pathname-sstring string start=
 end)
-    #-windows-target
     (if (and (> end start)
              (eql (schar sstr start) #\~))
       (setq sstr (tilde-expand (subseq sstr start end))