From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Tue, 14 Jun 2011 10:24:41 +0000 (+0300)
Subject: whitespace in tests
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d27eb12b08a7eb445729bc339c9bedf0aeeaa4fa;p=sbcl.git

whitespace in tests
---

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 6ffa8d3..74aec92 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -360,8 +360,8 @@
 (defvar *compile-nil-non-tc* (compile nil '(lambda (y) (cons (funcall *compile-nil-error* y) nil))))
 (with-test (:name (:compile nil))
   (assert (verify-backtrace (lambda () (funcall *compile-nil-non-tc* 13))
-			    '(((lambda (x)) 13)
-			      ((lambda (y)) 13)))))
+                            '(((lambda (x)) 13)
+                              ((lambda (y)) 13)))))
 
 (with-test (:name :clos-slot-typecheckfun-named)
   (assert
@@ -422,9 +422,9 @@
 
 (with-test (:name (trace :simple))
   (let ((out (with-output-to-string (*trace-output*)
-	       (trace trace-this)
-	       (assert (eq 'ok (trace-this)))
-	       (untrace))))
+               (trace trace-this)
+               (assert (eq 'ok (trace-this)))
+               (untrace))))
     (assert (search "TRACE-THIS" out))
     (assert (search "returned OK" out))))
 
@@ -534,7 +534,7 @@
   (test-inifinite-error-protection))
 
 (with-test (:name (infinite-error-protection :thread)
-		  :skipped-on '(not :sb-thread))
+                  :skipped-on '(not :sb-thread))
   (enable-debugger)
   (let ((thread (sb-thread:make-thread #'test-inifinite-error-protection)))
     (loop while (sb-thread:thread-alive-p thread))))