Changeset 14028

Timestamp:

Jul 23, 2010, 9:26:02 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

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

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

@@ -532 +532 @@
   (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) #\~))