[Sbcl-commits] CVS: sbcl/tests compiler.pure.lisp, 1.155, 1.156 filesys.pure.lisp, 1.12, 1.13

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv2303/tests

Modified Files:
	compiler.pure.lisp filesys.pure.lisp 
Log Message:
0.9.18.11: whitespace
 * Undo whitespace damage from Window commits.


Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.155
retrieving revision 1.156
diff -u -d -r1.155 -r1.156
--- compiler.pure.lisp	26 Oct 2006 11:37:57 -0000	1.155
+++ compiler.pure.lisp	28 Oct 2006 09:57:01 -0000	1.156
@@ -2146,6 +2146,6 @@
 ;;; LET* + VALUES declaration: while the declaration is a non-standard
 ;;; and possibly a non-conforming extension, as long as we do support
 ;;; it, we might as well get it right.
-;;; 
+;;;
 ;;; Bug reported by Kaersten Poeck on sbcl-devel 20061023.
 (compile nil '(lambda () (let* () (declare (values list)))))

Index: filesys.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/filesys.pure.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- filesys.pure.lisp	26 Oct 2006 16:07:55 -0000	1.12
+++ filesys.pure.lisp	28 Oct 2006 09:57:01 -0000	1.13
@@ -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