Changeset 10707


Ignore:
Timestamp:
Sep 11, 2008, 2:20:29 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/linux-files.lisp

    r10692 r10707  
    2222(progn
    2323
    24 (defun strip-drive-for-now (string)
    25   string
    26   #+no
    27   (or (and (> (length string) 2)
    28            (eql (schar string 1) #\:)
    29            (let* ((copy (subseq string 0)))
    30              (setf (schar copy 0) (char-downcase (schar copy 0)))
    31              (setf (schar copy  1) #\|)
    32              copy))
    33       string))
     24
    3425           
    3526
     
    5546  #+darwin-target
    5647  (precompose-simple-string (%get-utf-8-cstring pointer))
    57   #+windows-target (strip-drive-for-now
    58                     (nbackslash-to-forward-slash
    59                      (%get-native-utf-16-cstring pointer)))
     48  #+windows-target (nbackslash-to-forward-slash
     49                     (%get-native-utf-16-cstring pointer))
    6050  ;; On some other platforms, the namestring is assumed to
    6151  ;; be encoded according to the current locale's character
Note: See TracChangeset for help on using the changeset viewer.