X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fwin32-pathname.lisp;h=ac29f7b7587706a451f598d43c102657693cd989;hb=25fe91bf63fd473d9316675b0e0ca9be0079e9eb;hp=81ddebd5ca22d7eea249c84683adb5bc91fbeaa7;hpb=fb8e5ded0b56f50de2024efbcc9ce68b401415f5;p=sbcl.git

diff --git a/src/code/win32-pathname.lisp b/src/code/win32-pathname.lisp
index 81ddebd..ac29f7b 100644
--- a/src/code/win32-pathname.lisp
+++ b/src/code/win32-pathname.lisp
@@ -109,7 +109,7 @@
                                for piece = (subseq namestring start end)
                                collect (if (and (string= piece "..") rest)
                                            :up
-                                           piece)))             
+                                           piece)))
              (name-and-type
               (let* ((end (first (last components)))
                      (dot (position #\. end :from-end t)))
@@ -273,7 +273,7 @@
           (unless directory (go :done))
         :subdir
           (let ((piece (pop directory)))
-            (typecase piece  
+            (typecase piece
               ((member :up) (write-string ".." s))
               (string (write-string piece s))
               (t (error "ungood piece in NATIVE-NAMESTRING: ~S" piece)))
@@ -410,7 +410,7 @@
                 (t
                  (setf dots nil)
                  (setf (schar dst dst-len) char)
-                 (incf dst-len)))))      
+                 (incf dst-len)))))
       ;; ...finish off
       (when (and last-slash (not (zerop last-slash)))
         (case dots