Ignore:
Timestamp:
Sep 11, 2008, 2:18:08 PM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

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

    r10631 r10704  
    113113                                  (eql (schar name (1- len)) #\\))))
    114114      (setq name (%str-cat name "/")))
    115     (string-to-pathname (strip-drive-for-now name)))
     115    (string-to-pathname name))
    116116  #-windows-target
    117117  (make-directory-pathname  :device nil :directory (%path-std-quotes name nil "*;:")))
Note: See TracChangeset for help on using the changeset viewer.