X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.pure.lisp;h=cff87b5f80d6abc51ea80602895f86c687530cea;hb=0e03a9ac950b78d776c4869c809e202d9e929f39;hp=6e12676e381b3eb5a455117eea434895a9ed5c64;hpb=fb8e5ded0b56f50de2024efbcc9ce68b401415f5;p=sbcl.git

diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp
index 6e12676..cff87b5 100644
--- a/tests/filesys.pure.lisp
+++ b/tests/filesys.pure.lisp
@@ -92,7 +92,7 @@
   (assert (equal "C:\\FOO" (native-namestring "C:\\FOO")))
   (assert (equal "C:\\FOO" (native-namestring "C:/FOO")))
   (assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR")))
-  ;; FIXME: Other platforms don't do this: either fix Windows 
+  ;; FIXME: Other platforms don't do this: either fix Windows
   ;; so that it works even with the same logic others use, or
   ;; make this official. (Currently just a kludge.)
   (assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR\\"))))
@@ -102,7 +102,7 @@
 ;;; given only safe characters in the namestring, NATIVE-PATHNAME will
 ;;; never error, and NATIVE-NAMESTRING on the result will return the
 ;;; original namestring.
-(with-test (:name :random-native-namestrings) 
+(with-test (:name :random-native-namestrings)
   (let ((safe-chars
         (coerce
          (cons #\Newline