X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-tests.lisp;h=c1d4f158b4389ad3f182f995ea17d87edcf12ecf;hb=85483d976cc2d779493985f77f39efefb2ea622b;hp=cc1adc6e4be2b346f8d390df514f5c5f16a58b46;hpb=b3e3fbe7d381147fccc8a3027cb6fae923e57d13;p=sbcl.git

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index cc1adc6..c1d4f15 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -115,9 +115,9 @@
   (setf *all-failures* (append failures *all-failures*)))
 
 (defun unexpected-failures ()
-  (remove-if (lambda (x) 
-                (or (eq (car x) :expected-failure) 
-		    (eq (car x) :unexpected-success)))
+  (remove-if (lambda (x)
+               (or (eq (car x) :expected-failure)
+                   (eq (car x) :unexpected-success)))
              *all-failures*))
 
 (defun setup-cl-user ()