Changeset 14028 for trunk/source/level-1


Ignore:
Timestamp:
Jul 23, 2010, 4:26:02 PM (9 years ago)
Author:
rme
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-files.lisp

    r13682 r14028  
    532532  (require-type reference-host '(or null string))
    533533  (multiple-value-bind (sstr start end) (get-pathname-sstring string start end)
    534     #-windows-target
    535534    (if (and (> end start)
    536535             (eql (schar sstr start) #\~))
Note: See TracChangeset for help on using the changeset viewer.