X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.impure-cload.lisp;h=7d5e99d1d483260777411c95cd293868dcc18c66;hb=40e3ba03d0e1b824e4d1ae75d74246b975b70964;hp=41d052513b935905990dc854308db9c105ac50c7;hpb=636f24460849bdd73284750463439f73d90428ae;p=sbcl.git

diff --git a/tests/compiler.impure-cload.lisp b/tests/compiler.impure-cload.lisp
index 41d0525..7d5e99d 100644
--- a/tests/compiler.impure-cload.lisp
+++ b/tests/compiler.impure-cload.lisp
@@ -364,20 +364,20 @@
 ;;; failed on Alpha prior to sbcl-0.8.10.30
 (defun lotso-values ()
   (values 0 1 2 3 4 5 6 7 8 9
-	  0 1 2 3 4 5 6 7 8 9
-	  0 1 2 3 4 5 6 7 8 9
-	  0 1 2 3 4 5 6 7 8 9
-	  0 1 2 3 4 5 6 7 8 9
-	  0 1 2 3 4 5 6 7 8 9
-	  0 1 2 3 4 5 6 7 8 9
-	  0 1 2 3 4 5 6 7 8 9
-	  0 1 2 3 4 5 6 7 8 9
-	  0 1 2 3 4 5 6 7 8 9))
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9))
 
 ;;; bug 313: source transforms were "lisp-1"
 (defun srctran-lisp1-1 (cadr) (if (functionp cadr) (funcall cadr 1) nil))
 (assert (eql (funcall (eval #'srctran-lisp1-1) #'identity) 1))
-(without-package-locks 
+(without-package-locks
    ;; this be a nasal demon, but test anyways
    (defvar caar))
 (defun srctran-lisp1-2 (caar) (funcall (sb-ext:truly-the function caar) 1))