diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 61109feccf4d2c0410df0c77ea4f600126f1583d..ca7e0a3239836355bf6870a912bf352e55afda47 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -15,15 +15,15 @@
 (deftest misc.1
   (funcall
    (compile nil '(lambda (b)
-		   (declare (type (integer 8 22337) b))
-		   (+ b 2607688420)))
+                   (declare (type (integer 8 22337) b))
+                   (+ b 2607688420)))
    100)
   2607688520)
 
 (deftest misc.2
   (funcall (compile nil
-		    '(lambda (b) (integer-length (dpb b (byte 4 28) -1005))))
-	   12800263)
+                    '(lambda (b) (integer-length (dpb b (byte 4 28) -1005))))
+           12800263)
   32)
 
 (deftest misc.3
@@ -33,9 +33,9 @@
     '(lambda (a b)
        (declare (optimize (speed 3) (debug 1)))
        (let ((v7
-	      (let ((v2 (block b5 (return-from b5 (if t b -4)))))
-		a)))
-	 -65667836)))
+              (let ((v2 (block b5 (return-from b5 (if t b -4)))))
+                a)))
+         -65667836)))
    1 2)
   -65667836)
 
@@ -44,42 +44,42 @@
    (compile
     nil
     '(lambda (a b c)
-	   (declare (type (integer -629491 -333) a)
-		    (type (integer -142 1) b)
-		    (type (integer 0 12604) c)
-		    (optimize (speed 3) (safety 1) (debug 1)))
-	   (let ((v6 (block b7 (return-from b7 (if (eql b 0) 1358159 a)))))
-		b)))
+           (declare (type (integer -629491 -333) a)
+                    (type (integer -142 1) b)
+                    (type (integer 0 12604) c)
+                    (optimize (speed 3) (safety 1) (debug 1)))
+           (let ((v6 (block b7 (return-from b7 (if (eql b 0) 1358159 a)))))
+                b)))
    -1000 -17 6143)
   -17)
 
 (deftest misc.5
   (funcall
    (compile nil
-	    '(lambda () (* 390 (- (signum (logeqv -8005440 -2310))
-				  -10604863)))))
+            '(lambda () (* 390 (- (signum (logeqv -8005440 -2310))
+                                  -10604863)))))
   4135896180)
 
 (deftest misc.6
   (funcall
    (compile nil
-	    '(lambda (a c)
-		     (declare (optimize (speed 3) (debug 1)))
-		     (flet ((%f14 () (if c a -486826646)))
-			   (let ((v7 (flet ((%f18 () (%f14))) a)))
-				(let ((v5 (%f14)))
-				     0)))))
+            '(lambda (a c)
+                     (declare (optimize (speed 3) (debug 1)))
+                     (flet ((%f14 () (if c a -486826646)))
+                           (let ((v7 (flet ((%f18 () (%f14))) a)))
+                                (let ((v5 (%f14)))
+                                     0)))))
    10 20)
   0)
 
 (deftest misc.7
   (funcall (compile nil
-		    '(lambda (c) (declare (optimize (speed 3) (debug 1)))
-		       (flet ((%f18 () -36))
-			 (flet ((%f13 ()
-				      (let () (block b8 (return-from b8 c)))))
-			   (%f18)))))
-	   10)
+                    '(lambda (c) (declare (optimize (speed 3) (debug 1)))
+                       (flet ((%f18 () -36))
+                         (flet ((%f13 ()
+                                      (let () (block b8 (return-from b8 c)))))
+                           (%f18)))))
+           10)
   -36)
 
 (deftest misc.8
@@ -89,10 +89,10 @@
     '(lambda (a b)
        (declare (optimize (speed 3) (debug 1)))
        (let ((v3 (flet ((%f12 () (min b (block b2 (return-from b2 a)))))
-		       a)))
-	    (block b7
-		   (flet ((%f5 () (return-from b7 b)))
-			 (%f5))))))
+                       a)))
+            (block b7
+                   (flet ((%f5 () (return-from b7 b)))
+                         (%f5))))))
    10 20)
   20)
 
@@ -101,16 +101,16 @@
    (compile
     nil
     '(lambda ()
-	     (declare (optimize (speed 3) (debug 1)))
-	     (block b6
-		    (flet ((%f3 ()
-				(ldb (byte 19 23)
-				     (block b1
-					    (let ()
-						 (- (if nil (return-from b6 89627)
-							1160)
-						    (return-from b1 22923)))))))
-			  1)))))
+             (declare (optimize (speed 3) (debug 1)))
+             (block b6
+                    (flet ((%f3 ()
+                                (ldb (byte 19 23)
+                                     (block b1
+                                            (let ()
+                                                 (- (if nil (return-from b6 89627)
+                                                        1160)
+                                                    (return-from b1 22923)))))))
+                          1)))))
   1)
 
 (deftest misc.10
@@ -118,17 +118,17 @@
    (compile
     nil
     '(lambda (c)
-	     (declare (optimize (speed 3) (debug 1))
-		      (type (integer -15417757 5816) c))
-	     (flet ((%f3 () (if nil -3143 c)))
-		   (block b5
-			  (let ((v7 (if (< 23613642 (%f3)) c -23097977)))
-			       (let ((v5
-				      (return-from b5
-						   (if (eql c v7)
-						       (let ((v6 (%f3))) 4650813)
-						       782))))
-				    -4362540))))))
+             (declare (optimize (speed 3) (debug 1))
+                      (type (integer -15417757 5816) c))
+             (flet ((%f3 () (if nil -3143 c)))
+                   (block b5
+                          (let ((v7 (if (< 23613642 (%f3)) c -23097977)))
+                               (let ((v5
+                                      (return-from b5
+                                                   (if (eql c v7)
+                                                       (let ((v6 (%f3))) 4650813)
+                                                       782))))
+                                    -4362540))))))
    -10000)
   782)
 
@@ -137,16 +137,16 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (optimize (speed 3) (debug 1)))
-	     (block b8
-		    (logxor
-		     (let ((v3 (return-from b8 120789657))) 3690)
-		     (block b2
-			    (flet ((%f9 ()
-					(flet ((%f10 () -1))
-					      c)))
-				  (flet ((%f3 () (let () (return-from b2 b))))
-					a)))))))
+             (declare (optimize (speed 3) (debug 1)))
+             (block b8
+                    (logxor
+                     (let ((v3 (return-from b8 120789657))) 3690)
+                     (block b2
+                            (flet ((%f9 ()
+                                        (flet ((%f10 () -1))
+                                              c)))
+                                  (flet ((%f3 () (let () (return-from b2 b))))
+                                        a)))))))
    1 2 3)
   120789657)
 
@@ -155,13 +155,13 @@
    (compile
     nil
     '(lambda (c)
-	     (declare (optimize (speed 3) (safety 1) (debug 1))
-		      (type (integer -171067 -5) c))
-	     (flet ((%f16 ()
-			  (flet ((%f12 () 439))
-				3358)))
-		   (flet ((%f14 () c))
-			 (if (%f14) -1 (%f14))))))
+             (declare (optimize (speed 3) (safety 1) (debug 1))
+                      (type (integer -171067 -5) c))
+             (flet ((%f16 ()
+                          (flet ((%f12 () 439))
+                                3358)))
+                   (flet ((%f14 () c))
+                         (if (%f14) -1 (%f14))))))
    -100)
   -1)
 
@@ -170,21 +170,21 @@
    (compile
     nil
     '(lambda (b c)
-	     (declare (optimize (speed 3) (safety 1) (debug 1))
-		      (type  (integer -1554410 36086789) b)
-		      (type (integer -15033876209 126774299) c)
-		      )
-	     (block b3
-		    (flet ((%f9 ()
-				(abs
-				 (flet ((%f5 ()
-					     (return-from b3 -2)))
-				       (if (if (<= 1 c) b (%f5)) -65 -47895812)))))
-			  (min
-			   (let ((v3 (let ((v8 (%f9))) b))) b)
-			   (if (= 1364001 (%f9))
-			       (logeqv (block b5 -2713) -247)
-			       -19))))))
+             (declare (optimize (speed 3) (safety 1) (debug 1))
+                      (type  (integer -1554410 36086789) b)
+                      (type (integer -15033876209 126774299) c)
+                      )
+             (block b3
+                    (flet ((%f9 ()
+                                (abs
+                                 (flet ((%f5 ()
+                                             (return-from b3 -2)))
+                                       (if (if (<= 1 c) b (%f5)) -65 -47895812)))))
+                          (min
+                           (let ((v3 (let ((v8 (%f9))) b))) b)
+                           (if (= 1364001 (%f9))
+                               (logeqv (block b5 -2713) -247)
+                               -19))))))
    0 0)
   -2)
 
@@ -193,13 +193,13 @@
    (compile
     nil
     '(lambda (c)
-	     (declare (notinline logandc1))
-	     (block b6
-		    (flet ((%f17 () (return-from b6 c)))
-			  (logandc1 (%f17)
-				    (if 1
-					450967818
-					(let ((v1 (%f17))) -17)))))))
+             (declare (notinline logandc1))
+             (block b6
+                    (flet ((%f17 () (return-from b6 c)))
+                          (logandc1 (%f17)
+                                    (if 1
+                                        450967818
+                                        (let ((v1 (%f17))) -17)))))))
    10)
   10)
 
@@ -208,13 +208,13 @@
    (compile
     nil
     '(lambda (a b)
-	     (declare (optimize (speed 3) (safety 1) (debug 1)))
-	     (flet ((%f6 () a))
-		   (block b5
-			  (flet ((%f14 ()
-				       (min 17593 (block b1 (return-from b1 b)))))
-				(block b7 (if (%f6) (return-from b7 28182012)
-					      (return-from b5 0))))))))
+             (declare (optimize (speed 3) (safety 1) (debug 1)))
+             (flet ((%f6 () a))
+                   (block b5
+                          (flet ((%f14 ()
+                                       (min 17593 (block b1 (return-from b1 b)))))
+                                (block b7 (if (%f6) (return-from b7 28182012)
+                                              (return-from b5 0))))))))
    3 5)
   28182012)
 
@@ -223,14 +223,14 @@
    (compile
     nil
     '(lambda (a c)
-	     (flet ((%f14 ()
-			  (block b6
-				 (flet ((%f7 () (return-from b6 4)))
-				       (if 587793 (if (%f7) c -23086423) (%f7))))))
-		   (block b1
-			  (flet ((%f18 () a))
-				(logandc1 (return-from b1 -2781)
-					  (if (%f14) 58647578 -396746)))))))
+             (flet ((%f14 ()
+                          (block b6
+                                 (flet ((%f7 () (return-from b6 4)))
+                                       (if 587793 (if (%f7) c -23086423) (%f7))))))
+                   (block b1
+                          (flet ((%f18 () a))
+                                (logandc1 (return-from b1 -2781)
+                                          (if (%f14) 58647578 -396746)))))))
    1 2)
   -2781)
 
@@ -239,15 +239,15 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (optimize (speed 3) (safety 1) (debug 1))
-		      (type (integer 4 23363) b)
-		      (type (integer -32681 41648) c)
-		      )
-	     (flet ((%f18 ()
-			  (if nil c b)))
-		   (if (if (> -71810514 a) 102077 465393)
-		       (block b3 (if (%f18) (return-from b3 c) c))
-		       (%f18)))))
+             (declare (optimize (speed 3) (safety 1) (debug 1))
+                      (type (integer 4 23363) b)
+                      (type (integer -32681 41648) c)
+                      )
+             (flet ((%f18 ()
+                          (if nil c b)))
+                   (if (if (> -71810514 a) 102077 465393)
+                       (block b3 (if (%f18) (return-from b3 c) c))
+                       (%f18)))))
    0 10 1000)
   1000)
 
@@ -256,13 +256,13 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (optimize (speed 3) (safety 1) (debug 1))
-		      (type (integer 7 58010860) a)
-		      (type (integer -3573280 -1) b)
-		      (type (integer -920848 -819) c)
-		      )
-	     (flet ((%f15 () (if (logbitp 5 a) a c)))
-		   (min (if (%f15) b -39) (if (> 0 -14756) b (%f15))))))
+             (declare (optimize (speed 3) (safety 1) (debug 1))
+                      (type (integer 7 58010860) a)
+                      (type (integer -3573280 -1) b)
+                      (type (integer -920848 -819) c)
+                      )
+             (flet ((%f15 () (if (logbitp 5 a) a c)))
+                   (min (if (%f15) b -39) (if (> 0 -14756) b (%f15))))))
    8 -1000 -10000)
   -1000)
 
@@ -271,14 +271,14 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (type (integer 54 3862515) a) (type (integer -961325 1539) b)
-		      (type (integer 6 31455) c) (ignorable a b c)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (lognor
-	      (flet ((%f13 () b)) (%f13))
-	      (flet ((%f1 () (return-from %f1 a)))
-		    (labels ((%f3 () (%f1)))
-			    -428)))))
+             (declare (type (integer 54 3862515) a) (type (integer -961325 1539) b)
+                      (type (integer 6 31455) c) (ignorable a b c)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (lognor
+              (flet ((%f13 () b)) (%f13))
+              (flet ((%f1 () (return-from %f1 a)))
+                    (labels ((%f3 () (%f1)))
+                            -428)))))
    100 0 200)
   427)
 
@@ -287,15 +287,15 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (type (integer -1 31880308) a)
-		      (type (integer -11374222037 5331202966) b)
-		      (type (integer -483 -1) c)
-		      (ignorable a b c)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (labels ((%f6 () a))
-		     (if (eql (let ((v9 (%f6))) -50072824) c)
-		      28146341
-		      (if (< 119937 21304962) 21304962 (%f6))))))
+             (declare (type (integer -1 31880308) a)
+                      (type (integer -11374222037 5331202966) b)
+                      (type (integer -483 -1) c)
+                      (ignorable a b c)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (labels ((%f6 () a))
+                     (if (eql (let ((v9 (%f6))) -50072824) c)
+                      28146341
+                      (if (< 119937 21304962) 21304962 (%f6))))))
    0 0 -1)
   21304962)
 
@@ -304,18 +304,18 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (type (integer 398 3955) a) (type (integer 233 464963) b)
-		      (type (integer -124477 16) c) (ignorable a b c)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (logior
-	      (flet ((%f18 ()
-			   -3584768))
-		    (%f18))
-	      (flet ((%f1 ()
-			  (return-from %f1 c)))
-		    (flet ((%f9 ()
-				(if (%f1) 24181 7)))
-			  56048)))))
+             (declare (type (integer 398 3955) a) (type (integer 233 464963) b)
+                      (type (integer -124477 16) c) (ignorable a b c)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (logior
+              (flet ((%f18 ()
+                           -3584768))
+                    (%f18))
+              (flet ((%f1 ()
+                          (return-from %f1 c)))
+                    (flet ((%f9 ()
+                                (if (%f1) 24181 7)))
+                          56048)))))
    400 300 0)
   -3547152)
 
@@ -324,19 +324,19 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (type (integer -126378 -103) a)
-		      (type (integer -1158604975 1) b)
-		      (type (integer 502 28036) c)
-		      (ignorable a b c)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (labels ((%f13 () c))
-		     (labels ((%f3 ()
-				   (logandc1
-				    c
-				    (block b6
-					   (max -73100
-						(if b (return-from b6 4935) (%f13)))))))
-			     (%f13)))))
+             (declare (type (integer -126378 -103) a)
+                      (type (integer -1158604975 1) b)
+                      (type (integer 502 28036) c)
+                      (ignorable a b c)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (labels ((%f13 () c))
+                     (labels ((%f3 ()
+                                   (logandc1
+                                    c
+                                    (block b6
+                                           (max -73100
+                                                (if b (return-from b6 4935) (%f13)))))))
+                             (%f13)))))
    -200 0 1000)
   1000)
 
@@ -345,19 +345,19 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (type (integer 1 18911480) a)
-		      (type (integer -1 48333) b)
-		      (type (integer -3881001767 -1937357) c)
-		      (ignorable a b c)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (labels ((%f10 () c))
-		     (block b7
-			    (logorc2
-			     (* (%f10)
-				(if (ldb-test (byte 27 1) -11337)
-				    (return-from b7 -2)
-				    246137101))
-			     (min (%f10) (return-from b7 -76114)))))))
+             (declare (type (integer 1 18911480) a)
+                      (type (integer -1 48333) b)
+                      (type (integer -3881001767 -1937357) c)
+                      (ignorable a b c)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (labels ((%f10 () c))
+                     (block b7
+                            (logorc2
+                             (* (%f10)
+                                (if (ldb-test (byte 27 1) -11337)
+                                    (return-from b7 -2)
+                                    246137101))
+                             (min (%f10) (return-from b7 -76114)))))))
    1 0 -2000000)
   -2)
 
@@ -366,18 +366,18 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (type (integer -1477249397 -10697252) a)
-		      (type (integer -7 54591) b)
-		      (type (integer -102559556 15) c)
-		      (ignorable a b c)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (block b8
-		    (let ((v1 (return-from b8 a)))
-			 (1+
-			  (block b3
-				 (flet ((%f10 ()
-					      (min a (return-from b3 -1))))
-				       16776220)))))))
+             (declare (type (integer -1477249397 -10697252) a)
+                      (type (integer -7 54591) b)
+                      (type (integer -102559556 15) c)
+                      (ignorable a b c)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (block b8
+                    (let ((v1 (return-from b8 a)))
+                         (1+
+                          (block b3
+                                 (flet ((%f10 ()
+                                              (min a (return-from b3 -1))))
+                                       16776220)))))))
    -11000000 0 0)
   -11000000)
 
@@ -386,16 +386,16 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (type (integer -944 111244) a)
-		      (type (integer 100512 3286178) b)
-		      (type (integer -2170236 -107) c)
-		      (ignorable a b c)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (labels ((%f17 () c))
-		     (labels ((%f16 () a))
-			     (if (if (logbitp 10 1029643) t 355)
-				 (if (equal (%f17) b) c a)
-				 (if (= 1325844 (%f16)) -50285 (1- (%f17))))))))
+             (declare (type (integer -944 111244) a)
+                      (type (integer 100512 3286178) b)
+                      (type (integer -2170236 -107) c)
+                      (ignorable a b c)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (labels ((%f17 () c))
+                     (labels ((%f16 () a))
+                             (if (if (logbitp 10 1029643) t 355)
+                                 (if (equal (%f17) b) c a)
+                                 (if (= 1325844 (%f16)) -50285 (1- (%f17))))))))
    0 200000 -200)
   0)
 
@@ -404,13 +404,13 @@
    (compile
     nil
     '(lambda (c)
-	     (declare (optimize speed))
-	     (block b5
-		    (if (logbitp 6 -97)
-			(let ((v2 (block b8 -42484))) c)
-			(flet ((%f10 () (return-from b5 -785143)))
-			      (let ((v3 (%f10)))
-				   (%f10)))))))
+             (declare (optimize speed))
+             (block b5
+                    (if (logbitp 6 -97)
+                        (let ((v2 (block b8 -42484))) c)
+                        (flet ((%f10 () (return-from b5 -785143)))
+                              (let ((v3 (%f10)))
+                                   (%f10)))))))
    0)
   -785143)
 
@@ -419,13 +419,13 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (optimize (speed 3) (debug 1)))
-	     (labels ((%f14 () c))
-		     (logand (%f14)
-			     (labels ((%f15 () (logeqv (let ((v1 b)) c)
-						       (return-from %f15 -1740))))
-				     (labels ((%f8 () (%f15)))
-					     a))))))
+             (declare (optimize (speed 3) (debug 1)))
+             (labels ((%f14 () c))
+                     (logand (%f14)
+                             (labels ((%f15 () (logeqv (let ((v1 b)) c)
+                                                       (return-from %f15 -1740))))
+                                     (labels ((%f8 () (%f15)))
+                                             a))))))
    5 2 3)
   1)
 
@@ -434,14 +434,14 @@
    (compile
     nil
     '(lambda (a b c)
-	  (declare
-	   (type (integer 1948 12024) b)
-	   (type (integer -104357939 -252) c)
-	   (optimize (speed 3) (debug 1)))
+          (declare
+           (type (integer 1948 12024) b)
+           (type (integer -104357939 -252) c)
+           (optimize (speed 3) (debug 1)))
     (flet ((%f18 () c))
       (logandc1 (if (eql b (%f18)) 0 a)
                 (if (ldb-test (byte 30 30) 1) (%f18) 1)
-		))))
+                ))))
    0 2000 -300)
   1)
 
@@ -450,20 +450,20 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (type (integer 661607 10451683348) a)
-		      (type (integer -2 -2) b)
-		      (type (integer 5996117 18803237) c)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (labels ((%f16 () -29))
-	       (flet ((%f7 ()
-			   (labels ((%f1 () a))
-			     (let ()
-			       (block b3
-				 (if 37101207
-				     (return-from b3 -5322045)
-				   (let ((v5 b))
-				     146099574)))))))
-		 (if (%f16) c c)))))
+             (declare (type (integer 661607 10451683348) a)
+                      (type (integer -2 -2) b)
+                      (type (integer 5996117 18803237) c)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (labels ((%f16 () -29))
+               (flet ((%f7 ()
+                           (labels ((%f1 () a))
+                             (let ()
+                               (block b3
+                                 (if 37101207
+                                     (return-from b3 -5322045)
+                                   (let ((v5 b))
+                                     146099574)))))))
+                 (if (%f16) c c)))))
    1000000 -2 6000000)
   6000000)
 
@@ -472,19 +472,19 @@
    (compile
     nil
     '(lambda (c)
-	     (declare (type (integer -253 -1) c)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (flet ((%f8 () c))
-		   (if (= (%f8) 481) (%f8) 1779465))))
+             (declare (type (integer -253 -1) c)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (flet ((%f8 () c))
+                   (if (= (%f8) 481) (%f8) 1779465))))
    -100)
   1779465)
 
 (deftest misc.31
   (funcall
    (compile nil
-	    '(lambda () (let ((v9 (labels ((%f13 () nil)) nil)))
-			     (let ((v3 (logandc2 97 3)))
-				  (* v3 (- 37391897 (logand v3 -66))))))))
+            '(lambda () (let ((v9 (labels ((%f13 () nil)) nil)))
+                             (let ((v3 (logandc2 97 3)))
+                                  (* v3 (- 37391897 (logand v3 -66))))))))
   3589619040)
 
 (deftest misc.32
@@ -492,14 +492,14 @@
    (compile
     nil
     '(lambda (a d)
-	     (declare (type (integer -8507 26755) a)
-		      (type (integer -393314538 2084485) d)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (gcd
-	      (if (= 0 a) 10 (abs -1))
-	      (logxor -1
-		      (min -7580
-			   (max (logand a 31365125) d))))))
+             (declare (type (integer -8507 26755) a)
+                      (type (integer -393314538 2084485) d)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (gcd
+              (if (= 0 a) 10 (abs -1))
+              (logxor -1
+                      (min -7580
+                           (max (logand a 31365125) d))))))
    1 1)
   1)
 
@@ -508,31 +508,31 @@
    (compile
     nil
     '(lambda (a b c d)
-	     (declare (type (integer 240 100434465) a)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (logxor
-	      (if (ldb-test (byte 27 4) d)
-		  -1
-		  (max 55546856 -431))
-	      (logorc2
-	       (if (>= 0 b)
-		   (if (> b c) (logandc2 c d) (if (> d 224002) 0 d))
-		   (signum (logior c b)))
-	       (logior a -1)))))
+             (declare (type (integer 240 100434465) a)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (logxor
+              (if (ldb-test (byte 27 4) d)
+                  -1
+                  (max 55546856 -431))
+              (logorc2
+               (if (>= 0 b)
+                   (if (> b c) (logandc2 c d) (if (> d 224002) 0 d))
+                   (signum (logior c b)))
+               (logior a -1)))))
    256 0 0 0)
   55546856)
 
 (deftest misc.34
   (funcall
    (compile nil
-	    `(lambda (b c)
-		     (declare (type (integer -23228343 2) b)
-			      (type (integer -115581022 512244512) c)
-			      (optimize (speed 3) (safety 1) (debug 1)))
-		     (* (* (logorc2 3 (deposit-field 4667947 (byte 14 26) b))
-			   (deposit-field b (byte 25 27) -30424886))
-			(dpb b (byte 23 29) c)
-			)))
+            `(lambda (b c)
+                     (declare (type (integer -23228343 2) b)
+                              (type (integer -115581022 512244512) c)
+                              (optimize (speed 3) (safety 1) (debug 1)))
+                     (* (* (logorc2 3 (deposit-field 4667947 (byte 14 26) b))
+                           (deposit-field b (byte 25 27) -30424886))
+                        (dpb b (byte 23 29) c)
+                        )))
    0 0)
   0)
 
@@ -541,29 +541,29 @@
    (compile
     nil
     '(lambda (c)
-	     (declare (type (integer -5945502333 12668542) c)
-		      (optimize (speed 3)))
-	     (let ((v2 (* c 12)))
-		  (- (max (if (/= 109335113 v2) -26479 v2)
-			  (deposit-field 311
-					 (byte 14 28)
-					 (min (max 521326 c) -51)))))))
+             (declare (type (integer -5945502333 12668542) c)
+                      (optimize (speed 3)))
+             (let ((v2 (* c 12)))
+                  (- (max (if (/= 109335113 v2) -26479 v2)
+                          (deposit-field 311
+                                         (byte 14 28)
+                                         (min (max 521326 c) -51)))))))
    12668542)
   26479)
 
 (deftest misc.36
   (funcall
    (compile nil
-	    '(lambda ()
-	       (declare (notinline + logand)
-			(optimize (speed 0)))
-	       (logand
-		(block b5
-		       (flet ((%f1 ()
-				   (return-from b5 -220)))
-			     (let ((v7 (%f1)))
-				  (+ 359749 35728422))))
-		-24076))))
+            '(lambda ()
+               (declare (notinline + logand)
+                        (optimize (speed 0)))
+               (logand
+                (block b5
+                       (flet ((%f1 ()
+                                   (return-from b5 -220)))
+                             (let ((v7 (%f1)))
+                                  (+ 359749 35728422))))
+                -24076))))
   -24284)
 
 (deftest misc.37
@@ -573,9 +573,9 @@
     '(lambda (b)
        (declare (notinline -) (optimize (speed 0)))
        (- (block b4
-		 (flet ((%f4 ()
-			     (return-from b4 b)))
-		       (%f4))))))
+                 (flet ((%f4 ()
+                             (return-from b4 b)))
+                       (%f4))))))
    10)
   -10)
 
@@ -584,7 +584,7 @@
    (compile
     nil
     '(lambda (x) (declare (type (integer 0 100) x)
-			  (optimize (speed 3) (safety 1)))
+                          (optimize (speed 3) (safety 1)))
        (logandc1 x x)))
    79)
   0)
@@ -594,7 +594,7 @@
    (compile
     nil
     '(lambda (x) (declare (type (integer 0 100) x)
-			  (optimize (speed 3) (safety 1)))
+                          (optimize (speed 3) (safety 1)))
        (logandc2 x x)))
    79)
   0)
@@ -604,7 +604,7 @@
    (compile
     nil
     '(lambda (x) (declare (type (integer 0 100) x)
-			  (optimize (speed 3) (safety 1)))
+                          (optimize (speed 3) (safety 1)))
        (logorc1 x x)))
    79)
   -1)
@@ -614,7 +614,7 @@
    (compile
     nil
     '(lambda (x) (declare (type (integer 0 100) x)
-			  (optimize (speed 3) (safety 1)))
+                          (optimize (speed 3) (safety 1)))
        (logorc2 x x)))
    79)
   -1)
@@ -631,8 +631,8 @@
 
 (deftest misc.43
   (funcall (compile nil
-	'(lambda () (flet ((%f2 () 288213285))
-		      (+ (%f2) (* 13 (%f2)))))))
+        '(lambda () (flet ((%f2 () 288213285))
+                      (+ (%f2) (* 13 (%f2)))))))
   4034985990)
   
 
@@ -641,9 +641,9 @@
    (compile
     nil
     '(lambda (a)
-	     (declare (type (integer -917858 964754309) a)
-		      (optimize (speed 3)))
-	     (* 25 (min (max a 171625820) 171626138))))
+             (declare (type (integer -917858 964754309) a)
+                      (optimize (speed 3)))
+             (* 25 (min (max a 171625820) 171626138))))
    861929141)
   4290653450)
 
@@ -652,9 +652,9 @@
    (compile
     nil
     '(lambda (b)
-	     (declare (type (integer 21 9673) b)
-		      (optimize (speed 3)))
-	     (* (integer-length -198435631) (+ b 137206182))))
+             (declare (type (integer 21 9673) b)
+                      (optimize (speed 3)))
+             (* (integer-length -198435631) (+ b 137206182))))
    6027)
   3841941852)
 
@@ -663,11 +663,11 @@
    (compile
     nil
     '(lambda (b c)
-	     (declare (type (integer 0 1) b) (optimize (speed 3)))
-	     (flet ((%f2 () (lognor (block b5 138) c)))
-		   (if (not (or (= -67399 b) b))
-		       (deposit-field (%f2) (byte 11 8) -3)
-		       c))))
+             (declare (type (integer 0 1) b) (optimize (speed 3)))
+             (flet ((%f2 () (lognor (block b5 138) c)))
+                   (if (not (or (= -67399 b) b))
+                       (deposit-field (%f2) (byte 11 8) -3)
+                       c))))
    0 0)
   0)
 
@@ -676,9 +676,9 @@
    (compile
     nil
     '(lambda (a)
-	     (declare (type (integer -4005718822 -50081775) a)
-		      (optimize (speed 3) (safety 1) (debug 1)))
-	     (lognor (ash a (min 0 a)) a)))
+             (declare (type (integer -4005718822 -50081775) a)
+                      (optimize (speed 3) (safety 1) (debug 1)))
+             (lognor (ash a (min 0 a)) a)))
    -2878148992)
   0)
 
@@ -692,77 +692,77 @@
 
 (deftest misc.49
   (let ((body '(truncate (logorc1 -996082 C) -2))
-	(arg 25337234))
+        (arg 25337234))
     (values
      (funcall (compile nil `(lambda (c) ,body)) arg)
      (funcall (compile nil `(lambda (c) (declare (notinline truncate))
-			      ,body)) arg)))
+                              ,body)) arg)))
   -13099001
   -13099001)
 
 (deftest misc.50
   (funcall (compile nil `(lambda (c)
-			   (declare (optimize (speed 3))
-				    (type (integer 23062188 149459656) c))
-			   (mod c (min -2 0))))
-	   95019853)
+                           (declare (optimize (speed 3))
+                                    (type (integer 23062188 149459656) c))
+                           (mod c (min -2 0))))
+           95019853)
   -1)
 
 (deftest misc.51
   (funcall (compile nil `(lambda (b)
-			   (declare (optimize (speed 3))
-				    (type (integer 2 152044363) b))
-			    (rem b (min -16 0))))
-	   108251912)
+                           (declare (optimize (speed 3))
+                                    (type (integer 2 152044363) b))
+                            (rem b (min -16 0))))
+           108251912)
   8)
   
 (deftest misc.53
   (funcall
    (compile nil '(lambda ()
-		   (let (x)
-		     (block nil
-		       (flet ((%f (y z) (if (> y z) (setq x y) (setq x z))))
-			 (%f 1 2)
-			 (%f (return 14) 2)))
-		     x))))
+                   (let (x)
+                     (block nil
+                       (flet ((%f (y z) (if (> y z) (setq x y) (setq x z))))
+                         (%f 1 2)
+                         (%f (return 14) 2)))
+                     x))))
   2)
 
 (deftest misc.54
   (funcall
    (compile nil '(lambda (a c)
-		   (declare (type (integer 8 117873977) a)
-			    (type (integer -131828754 234037511) c)
-			    (optimize (speed 3) (safety 1) (debug 1)))
-		   (* (mod (signum a) (max 50 -358301))
-		      (* -2320445737132
-			 (* (* a (deposit-field a (byte 32 19) a)) c)))))
+                   (declare (type (integer 8 117873977) a)
+                            (type (integer -131828754 234037511) c)
+                            (optimize (speed 3) (safety 1) (debug 1)))
+                   (* (mod (signum a) (max 50 -358301))
+                      (* -2320445737132
+                         (* (* a (deposit-field a (byte 32 19) a)) c)))))
    11386 165297671)
   -49725654774521915007942373712)
 
 (deftest misc.55
   (funcall
    (compile nil '(lambda (a b c)
-		   (declare (type (integer -5498929 389890) a)
-			    (type (integer -5029571274946 48793670) b)
-			    (type (integer 9221496 260169518304) c)
-			    (ignorable a b c)
-			    (optimize (speed 3) (safety 1) (debug 1)))
-		   (- (mod 1020122 (min -49 -420))
-		      (logandc1
-		       (block b2
-			 (mod c (min -49 (if t (return-from b2 1582) b))))
-		       (labels ((%f14 () (mod a (max 76 8))))
-			 b)))))
+                   (declare (type (integer -5498929 389890) a)
+                            (type (integer -5029571274946 48793670) b)
+                            (type (integer 9221496 260169518304) c)
+                            (ignorable a b c)
+                            (optimize (speed 3) (safety 1) (debug 1)))
+                   (- (mod 1020122 (min -49 -420))
+                      (logandc1
+                       (block b2
+                         (mod c (min -49 (if t (return-from b2 1582) b))))
+                       (labels ((%f14 () (mod a (max 76 8))))
+                         b)))))
    -1893077 -2965238893954 30902744890)
   2965238894454)
 
 (deftest misc.56
   (funcall
    (compile nil '(lambda (a c)
-		   (declare (type (integer -8691408487404 -9) a)
-			    (type (integer 266003133 2112105962) c)
-			    (optimize (speed 3) (safety 1) (debug 1)))
-		   (truncate (max (round a) c) (* (* a a) a))))
+                   (declare (type (integer -8691408487404 -9) a)
+                            (type (integer 266003133 2112105962) c)
+                            (optimize (speed 3) (safety 1) (debug 1)))
+                   (truncate (max (round a) c) (* (* a a) a))))
    -10 266003133)
   -266003
   133)
@@ -782,114 +782,114 @@
 (deftest misc.58
   (funcall
    (compile nil '(lambda (a)
-		   (declare (type (integer -23 66141285) a)
-			    (optimize (speed 3)))
-		   (logorc2 (setq a 35191330) (* a 107))))
+                   (declare (type (integer -23 66141285) a)
+                            (optimize (speed 3)))
+                   (logorc2 (setq a 35191330) (* a 107))))
    4099241)
   -3764388885)
 
 (deftest misc.59
   (funcall
    (compile nil '(lambda (a b c)
-		   (declare (type (integer -3966039360 -879349) a)
-			    (type (integer -62642199164 -8993827395) b)
-			    (type (integer -8065934654337 223) c)
-			    (optimize (speed 3) (safety 1) (debug 1)))
-		   (floor (* (ceiling c) c)
-			  (max 78 (* b (* a (* a b)))))))
+                   (declare (type (integer -3966039360 -879349) a)
+                            (type (integer -62642199164 -8993827395) b)
+                            (type (integer -8065934654337 223) c)
+                            (optimize (speed 3) (safety 1) (debug 1)))
+                   (floor (* (ceiling c) c)
+                          (max 78 (* b (* a (* a b)))))))
    -1000000 -10000000000 0)
   0 0)
 
 (deftest misc.60
   (funcall
     (compile nil
-	     '(lambda ()
-		(let ((v5 46660))
-		  (setq v5 (signum (rem v5 (max 53 v5))))))))
+             '(lambda ()
+                (let ((v5 46660))
+                  (setq v5 (signum (rem v5 (max 53 v5))))))))
   0)
 
 (deftest misc.61
   (progn
     (compile nil
-	     '(lambda (a b)
-		(declare (type (integer -1785799651 -2) a)
-			 (type (integer -27 614132331) b)
-			 (optimize (speed 3) (safety 1) (debug 1)))
-		(ceiling (max (floor -733432 (max 84 -20)) 346)
-			 (min -10 (* 17592186028032 (* (* a b) a))))))
+             '(lambda (a b)
+                (declare (type (integer -1785799651 -2) a)
+                         (type (integer -27 614132331) b)
+                         (optimize (speed 3) (safety 1) (debug 1)))
+                (ceiling (max (floor -733432 (max 84 -20)) 346)
+                         (min -10 (* 17592186028032 (* (* a b) a))))))
     :good)
   :good)
 
 (deftest misc.62
   (funcall (compile nil '(lambda (a)
-		(if (and (if a t nil) nil)
-		    a
-		  (min (block b5 -1) a))))
-	   100)
+                (if (and (if a t nil) nil)
+                    a
+                  (min (block b5 -1) a))))
+           100)
   -1)
 
 ;;; sbcl bug (probably #233)
 (deftest misc.63
   (let* ((form '(flet ((%f12 () (setq c -9868204937)))
-		  (if (<= c (%f12)) -2 (if (= c c) b c))))
-	 (form1 `(lambda (b c)
-		   (declare (type (integer -80421740610 1395590616) c))
-		   ,form))
-	 (form2 `(lambda (b c) ,form))
-	 (vals '(-696742851945 686256271)))
+                  (if (<= c (%f12)) -2 (if (= c c) b c))))
+         (form1 `(lambda (b c)
+                   (declare (type (integer -80421740610 1395590616) c))
+                   ,form))
+         (form2 `(lambda (b c) ,form))
+         (vals '(-696742851945 686256271)))
     (eqlt (apply (compile nil form1) vals)
-	  (apply (compile nil form2) vals)))
+          (apply (compile nil form2) vals)))
   t)
 
 ;;; sbcl bug (probably #233)
 (deftest misc.64
   (let* ((form '(logcount
-		 (if (not (> c (let ((v7 (setq c -246180))) -1)))
-		     (ldb (byte 24 11) c)
-		   c)))
-	 (form1 `(lambda (c)
-		   (declare (type (integer -256128 207636) c))
-		   ,form))
-	 (form2 `(lambda (c) ,form))
-	 (vals '(11292))
-	 )
+                 (if (not (> c (let ((v7 (setq c -246180))) -1)))
+                     (ldb (byte 24 11) c)
+                   c)))
+         (form1 `(lambda (c)
+                   (declare (type (integer -256128 207636) c))
+                   ,form))
+         (form2 `(lambda (c) ,form))
+         (vals '(11292))
+         )
     (eqlt (apply (compile nil form1) vals)
-	  (apply (compile nil form2) vals)))
+          (apply (compile nil form2) vals)))
   t)
 
 ;;; sbcl bug (probably #233)
 (deftest misc.65
   (let ((form1 '(lambda (b c)
-		  (declare (type (integer -350684427436 -255912007) b))
-		  (logandc2 c (if (< b (setq b -25647585550)) b 0))))
-	(form2 '(lambda (b c)
-		  (logandc2 c (if (< b (setq b -25647585550)) b 0))))
-	(vals '(-297090677547 -20121092)))
+                  (declare (type (integer -350684427436 -255912007) b))
+                  (logandc2 c (if (< b (setq b -25647585550)) b 0))))
+        (form2 '(lambda (b c)
+                  (logandc2 c (if (< b (setq b -25647585550)) b 0))))
+        (vals '(-297090677547 -20121092)))
     (eqlt (apply (compile nil form1) vals)
-	  (apply (compile nil form2) vals)))
+          (apply (compile nil form2) vals)))
   t)
 
 (deftest misc.66
   (let* ((form '(if (> a (setq a -2198578292))
-		    (min b (if (<= a -14866) a -128363))
-		  a))
-	 (form1 `(lambda (a b)
-		   (declare (type (integer -3709231882 0) a))
-		   (declare (type (integer -562051054 -1) b))
-		   ,form))
-	 (form2 `(lambda (a b) ,form))
-	 (vals '(-2095414787 -256985442)))
+                    (min b (if (<= a -14866) a -128363))
+                  a))
+         (form1 `(lambda (a b)
+                   (declare (type (integer -3709231882 0) a))
+                   (declare (type (integer -562051054 -1) b))
+                   ,form))
+         (form2 `(lambda (a b) ,form))
+         (vals '(-2095414787 -256985442)))
     (eqlt (apply (compile nil form1) vals)
-	  (apply (compile nil form2) vals)))
+          (apply (compile nil form2) vals)))
   t)
 
 ;;; sbcl/cmucl bug (on sparc)
 (deftest misc.67
   (funcall
     (compile nil '(lambda (x)
-		    (declare (type (integer 10604862 10604862) x)
-			     (optimize speed))
-		    (* x 390)))
+                    (declare (type (integer 10604862 10604862) x)
+                             (optimize speed))
+                    (* x 390)))
     10604862)
   4135896180)
 
@@ -897,27 +897,27 @@
 (deftest misc.68
   (funcall
    (compile nil
-	    '(lambda (b)
-	       (flet ((%f8 () (rem b (identity (return-from %f8 0)))))
-		 (lognor (%f8) 0))))
+            '(lambda (b)
+               (flet ((%f8 () (rem b (identity (return-from %f8 0)))))
+                 (lognor (%f8) 0))))
    0)
   -1)
 
 (deftest misc.69
   (funcall
    (compile nil
-	    '(lambda (b)
-	       (flet ((%f11 () (logorc2 (block b1 (let () (return-from b1 b)))
-					-1984)))
-		 b)))
+            '(lambda (b)
+               (flet ((%f11 () (logorc2 (block b1 (let () (return-from b1 b)))
+                                        -1984)))
+                 b)))
    0)
   0)
 
 (deftest misc.70
   (funcall
    (compile nil '(lambda (c)
-		   (declare (type (integer 46156191457 126998564334) c))
-		   (truncate c (min -16 186196583))))
+                   (declare (type (integer 46156191457 126998564334) c))
+                   (truncate c (min -16 186196583))))
    87723029763)
   -5482689360
   3)
@@ -925,35 +925,35 @@
 (deftest misc.71
   (funcall
    (compile nil
-	    '(lambda ()
-	       (block b8
-		 (if (identity (return-from b8 30))
-		     1
-		   (identity
-		    (block b5
-		      (labels ((%f10 () (min -52 (return-from b5 10))))
-			20))))))))
+            '(lambda ()
+               (block b8
+                 (if (identity (return-from b8 30))
+                     1
+                   (identity
+                    (block b5
+                      (labels ((%f10 () (min -52 (return-from b5 10))))
+                        20))))))))
   30)
 
 (deftest misc.72
   (funcall
    (compile nil '(lambda ()
-		   (flet ((%f13 () (rem 1 (min 0 (return-from %f13 17)))))
-		     (%f13)))))
+                   (flet ((%f13 () (rem 1 (min 0 (return-from %f13 17)))))
+                     (%f13)))))
   17)
 
 (deftest misc.73
   (funcall
    (compile nil '(lambda (c)
-		   (declare (type (integer 46156191457 126998564334) c))
-		   (rem c (min -1 0))))
+                   (declare (type (integer 46156191457 126998564334) c))
+                   (rem c (min -1 0))))
    87723029763)
   0)
 
 (deftest misc.74
   (funcall (compile nil '(lambda ()
-			   (declare (optimize (safety 3) (speed 0) (debug 0)))
-			   (ash 6916244 (min 42 -185236061640)))))
+                           (declare (optimize (safety 3) (speed 0) (debug 0)))
+                           (ash 6916244 (min 42 -185236061640)))))
   0)
 
 ;;; Unwind-protect bug, from sbcl:
@@ -968,9 +968,9 @@
 (deftest misc.76
   (funcall
    (compile nil
-	    '(lambda (a c)
-		(if nil (unwind-protect (max 521739 (unwind-protect c)))
-		  (logandc2 3942 a))))
+            '(lambda (a c)
+                (if nil (unwind-protect (max 521739 (unwind-protect c)))
+                  (logandc2 3942 a))))
    0 0)
   3942)
 
@@ -984,12 +984,12 @@
 (deftest misc.78
   (funcall
    (compile nil '(lambda ()
-		   (declare (optimize (speed 0) (debug 0)))
-		   (let ((v4
-			  (case 227
-			    ((-11113 -106126) (unwind-protect 8473))
-			    (t 43916))))
-		     -12))))
+                   (declare (optimize (speed 0) (debug 0)))
+                   (let ((v4
+                          (case 227
+                            ((-11113 -106126) (unwind-protect 8473))
+                            (t 43916))))
+                     -12))))
   -12)
 
 ;;; Same as misc.78, but with no declarations
@@ -997,11 +997,11 @@
 (deftest misc.79
   (funcall
    (compile nil '(lambda ()
-		   (let ((v4
-			  (case 227
-			    ((-11113 -106126) (unwind-protect 8473))
-			    (t 43916))))
-		     -12))))
+                   (let ((v4
+                          (case 227
+                            ((-11113 -106126) (unwind-protect 8473))
+                            (t 43916))))
+                     -12))))
   -12)
 
 (deftest misc.79a
@@ -1011,11 +1011,11 @@
     '(lambda (a b)
        (declare (type (integer 72504 351460) a))
        (declare (type (integer 2383 108330) b))
-       (declare	(optimize (speed 2) (space 0) (safety 0)
-			  (debug 2) (compilation-speed 1)))
+       (declare        (optimize (speed 2) (space 0) (safety 0)
+                          (debug 2) (compilation-speed 1)))
        (if (or (or (/= b 0) (logbitp 0 0)) (logbitp 0 a))
-	   0
-	 (funcall (constantly 0) b 0 (catch 'ct4 b)))))
+           0
+         (funcall (constantly 0) b 0 (catch 'ct4 b)))))
    132318 12238)
   0)
 
@@ -1024,15 +1024,15 @@
 (deftest misc.80
   (funcall
    (compile nil
-	    '(lambda (b c)
-	       (declare (notinline > logior imagpart))
-	       (declare (optimize (speed 0) (debug 0)))
-	       (labels ((%f16 ()
-			      (imagpart
-			       (block b3
-				 (logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b))
-					 (return-from %f16 32186310))))))
-		 (lognor (%f16) b))))
+            '(lambda (b c)
+               (declare (notinline > logior imagpart))
+               (declare (optimize (speed 0) (debug 0)))
+               (labels ((%f16 ()
+                              (imagpart
+                               (block b3
+                                 (logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b))
+                                         (return-from %f16 32186310))))))
+                 (lognor (%f16) b))))
    -123886 -1656)
   57385)
 
@@ -1040,9 +1040,9 @@
 (deftest misc.81
   (funcall
    (compile nil '(lambda (b)
-		   (block b7
-		     (let ((v3 (return-from b7 b)))
-		       (unwind-protect b)))))
+                   (block b7
+                     (let ((v3 (return-from b7 b)))
+                       (unwind-protect b)))))
    17)
   17)
 
@@ -1050,11 +1050,11 @@
 (deftest misc.82
   (funcall
    (compile nil '(lambda (c)
-		   (labels ((%f15 ()
-				  (* (unwind-protect c)
-				     (max -5726369
-					  (return-from %f15 3099206)))))
-		     c)))
+                   (labels ((%f15 ()
+                                  (* (unwind-protect c)
+                                     (max -5726369
+                                          (return-from %f15 3099206)))))
+                     c)))
    0)
   0)
 
@@ -1062,57 +1062,57 @@
 (deftest misc.83
   (funcall
    (compile nil '(lambda (a c)
-		   (flet ((%f8 () (min c (min a (return-from %f8 c)))))
-		     c)))
+                   (flet ((%f8 () (min c (min a (return-from %f8 c)))))
+                     c)))
    0 -10)
   -10)
 
 (deftest misc.84
   (funcall
    (compile nil '(lambda (a b)
-		   (flet ((%f18 ()
-				(let ()
-				  (let ()
-				    (if (ldb-test (byte 20 23) b) a
-				      (return-from %f18 431))))))
-		     -674)))
+                   (flet ((%f18 ()
+                                (let ()
+                                  (let ()
+                                    (if (ldb-test (byte 20 23) b) a
+                                      (return-from %f18 431))))))
+                     -674)))
    0 0)
   -674)
 
 (deftest misc.85
   (funcall
    (compile nil
-	    '(lambda (c)
-	       (labels ((%f14 ()
-			      (let ()
-				(logandc1 (min -32 (return-from %f14 -69793))
-					  c))))
-		     156)))
+            '(lambda (c)
+               (labels ((%f14 ()
+                              (let ()
+                                (logandc1 (min -32 (return-from %f14 -69793))
+                                          c))))
+                     156)))
    0)
   156)
 
 ;;; Two tests showing bug(s) in clisp (2.31)
 (deftest misc.86
   (funcall (compile nil '(lambda (b)
-			   (flet ((%f10 nil :bad))
-			     (let ((v7 (let ((v2 (%f10))) b)))
-			       (unwind-protect b)))))
-	   :good)
+                           (flet ((%f10 nil :bad))
+                             (let ((v7 (let ((v2 (%f10))) b)))
+                               (unwind-protect b)))))
+           :good)
   :good)
 
 (deftest misc.87
   (apply (compile nil '(lambda (a b c)
-			 (let ((v9 a))
-			   (let ((v2 (setq v9 c)))
-			     (unwind-protect c)))))
-	 '(x y z))
+                         (let ((v9 a))
+                           (let ((v2 (setq v9 c)))
+                             (unwind-protect c)))))
+         '(x y z))
   z)
 
 ;;; cmucl bug (18e+ 10/15/03)
 (deftest misc.88
   (eval '(block b3
-	   (max (return-from b3 1)
-		(if (unwind-protect (unwind-protect 2)) 3 4))))
+           (max (return-from b3 1)
+                (if (unwind-protect (unwind-protect 2)) 3 4))))
   1)
 
 ;;;
@@ -1127,10 +1127,10 @@
 (deftest misc.89
   (funcall
    (compile nil
-	    '(lambda (c)
-	       (declare (type (integer 0 130304) c))
-	       (- (rem -26 (max 25 (load-time-value 505849129)))
-		  (* -15718867961526428520296254978781964 c))))
+            '(lambda (c)
+               (declare (type (integer 0 130304) c))
+               (- (rem -26 (max 25 (load-time-value 505849129)))
+                  (* -15718867961526428520296254978781964 c))))
    0)
   -26)
 
@@ -1146,8 +1146,8 @@
        (declare (type (integer -913299295156 3670905260104) d))
        (declare (ignorable a b c d))
        (declare
-	(optimize (safety 1) (space 1) (compilation-speed 2)
-		  (debug 0) (speed 2)))
+        (optimize (safety 1) (space 1) (compilation-speed 2)
+                  (debug 0) (speed 2)))
        (- (signum (catch 'ct6 0)) (numerator (* -1303 d -20527703 d c)))))
    -261283766805 41605749408 5110 1269102278886)
   -220139978315039892599545286437019126040)
@@ -1164,7 +1164,7 @@
        (declare (type (integer -12830115357 3027711346) d))
        (declare (ignorable a b c d))
        (declare (optimize (speed 2) (compilation-speed 1) (space 1)
-			  (safety 3) (debug 2)))
+                          (safety 3) (debug 2)))
        (floor (load-time-value 0) (min -18 (* a c b -12626)))))
    -78545446876 -460518205737 -38885914099 1598305189)
   0 0)
@@ -1172,132 +1172,132 @@
 ;;; acl bugs (version 6.2, linux x86 trial)
 (deftest misc.90
   (let* ((form '(- 0 (ignore-errors 20763)
-		   (logxor b 1 c -7672794) b))
-	 (fn1 `(lambda (b c)
-		 (declare (type (integer -148895 -46982) b))
-		 (declare (type (integer 0 1) c))
-		 (declare (optimize (speed 3)))
-		 (declare (optimize (safety 1)))
-		 ,form))
-	 (fn2 `(lambda (b c) ,form)))
+                   (logxor b 1 c -7672794) b))
+         (fn1 `(lambda (b c)
+                 (declare (type (integer -148895 -46982) b))
+                 (declare (type (integer 0 1) c))
+                 (declare (optimize (speed 3)))
+                 (declare (optimize (safety 1)))
+                 ,form))
+         (fn2 `(lambda (b c) ,form)))
     (let ((v1 (funcall (compile nil fn1) -76071 0))
-	  (v2 (funcall (compile nil fn2) -76071 0))
-	  (v3 (funcall (eval `(function ,fn2)) -76071 0)))
+          (v2 (funcall (compile nil fn2) -76071 0))
+          (v3 (funcall (eval `(function ,fn2)) -76071 0)))
       (if (= v1 v2 v3) :good
-	(list v1 v2 v3))))
+        (list v1 v2 v3))))
   :good)
 
 (deftest misc.91
   (let ((fn1 '(lambda ()
-		(declare (optimize (speed 3) (safety 1)))
-		(ash -10 (min 8 -481))))
-	(fn2 '(lambda () (ash -10 (min 8 -481)))))
+                (declare (optimize (speed 3) (safety 1)))
+                (ash -10 (min 8 -481))))
+        (fn2 '(lambda () (ash -10 (min 8 -481)))))
     (let ((v1 (funcall (compile nil fn1)))
-	  (v2 (funcall (compile nil fn2)))
-	  (v3 (funcall (eval `(function ,fn2)))))
+          (v2 (funcall (compile nil fn2)))
+          (v3 (funcall (eval `(function ,fn2)))))
       (if (= v1 v2 v3)
-	  :good
-	(list v1 v2 v3))))
+          :good
+        (list v1 v2 v3))))
   :good)
 
 (deftest misc.92
   (let* ((form '(- -16179207 b (lognor (let () 3) (logxor -17567197 c))))
-	 (fn1 `(lambda (b c)
-		 (declare (type (integer -621 30) c))
-		 (declare (optimize (speed 3)))
-		 (declare (optimize (safety 1)))
-		 ,form))
-	 (fn2 `(lambda (b c) ,form))
-	 (vals '(26291532469 -21)))
+         (fn1 `(lambda (b c)
+                 (declare (type (integer -621 30) c))
+                 (declare (optimize (speed 3)))
+                 (declare (optimize (safety 1)))
+                 ,form))
+         (fn2 `(lambda (b c) ,form))
+         (vals '(26291532469 -21)))
     (let ((v1 (apply (compile nil fn1) vals))
-	  (v2 (apply (compile nil fn2) vals))
-	  (v3 (apply (eval `(function ,fn2)) vals)))
+          (v2 (apply (compile nil fn2) vals))
+          (v3 (apply (eval `(function ,fn2)) vals)))
       (if (= v1 v2 v3)
-	  :good
-	(list v1 v2 v3))))
+          :good
+        (list v1 v2 v3))))
   :good)
 
 (deftest misc.93
   (let* ((form '(ash (1+ (flet ((%f5 (f5-1) c)) c))
-		     (min 69 (logxor a b))))
-	 (fn1 `(lambda (a b c)
-		 (declare (type (integer -128 -109) a)
-			  (type (integer -2 -1) b)
-			  (optimize (speed 3) (safety 1)))
-		 ,form))
-	 (fn2 `(lambda (a b c) ,form))
-	 (vals '(-123 -1 2590941967601)))
+                     (min 69 (logxor a b))))
+         (fn1 `(lambda (a b c)
+                 (declare (type (integer -128 -109) a)
+                          (type (integer -2 -1) b)
+                          (optimize (speed 3) (safety 1)))
+                 ,form))
+         (fn2 `(lambda (a b c) ,form))
+         (vals '(-123 -1 2590941967601)))
     (eqlt (apply (compile nil fn1) vals)
-	  (apply (compile nil fn2) vals)))
+          (apply (compile nil fn2) vals)))
   t)
 
 (deftest misc.94
   (not (funcall
-	(compile nil '(lambda ()
-			(declare (optimize (speed 3) (safety 1) (debug 1)))
-			(<= 268435280
-			    (load-time-value
-			     39763134374436777607194165739302560271120000))))))
+        (compile nil '(lambda ()
+                        (declare (optimize (speed 3) (safety 1) (debug 1)))
+                        (<= 268435280
+                            (load-time-value
+                             39763134374436777607194165739302560271120000))))))
   nil)
 
 (deftest misc.95
   (let* ((form '(+ 272 c (if (< b a) -49618 -29042) b))
-	 (fn1 `(lambda (a b c)
-		 (declare (type (integer -1585918 601848636) a))
-		 (declare (type (integer -4 16544323) b))
-		 (declare (optimize (speed 3)))
-		 (declare (optimize (safety 1)))
-		 ,form))
-	 (fn2 `(lambda (a b c) ,form))
-	 (vals '(601739317 10891850 17452477960)))
+         (fn1 `(lambda (a b c)
+                 (declare (type (integer -1585918 601848636) a))
+                 (declare (type (integer -4 16544323) b))
+                 (declare (optimize (speed 3)))
+                 (declare (optimize (safety 1)))
+                 ,form))
+         (fn2 `(lambda (a b c) ,form))
+         (vals '(601739317 10891850 17452477960)))
     (let ((v1 (apply (compile nil fn1) vals))
-	  (v2 (apply (compile nil fn2) vals)))
+          (v2 (apply (compile nil fn2) vals)))
       (if (eql v1 v2)
-	  :good
-	(list v1 v2))))
+          :good
+        (list v1 v2))))
   :good)
 
 (deftest misc.96
   (let* ((form '(max 26 (ceiling b (min -8 (max -1 c)))))
-	 (fn1 `(lambda (b c)
-		 (declare (type (integer 482134 96074347505) b))
-		 (declare (type (integer -4036 -50) c))
-		 (declare (optimize (speed 3)))
-		 (declare (optimize (safety 1)))
-		 ,form))
-	 (fn2 `(lambda (b c) ,form))
-	 (vals '(90244278480 -338)))
+         (fn1 `(lambda (b c)
+                 (declare (type (integer 482134 96074347505) b))
+                 (declare (type (integer -4036 -50) c))
+                 (declare (optimize (speed 3)))
+                 (declare (optimize (safety 1)))
+                 ,form))
+         (fn2 `(lambda (b c) ,form))
+         (vals '(90244278480 -338)))
     (let ((v1 (apply (compile nil fn1) vals))
-	  (v2 (apply (compile nil fn2) vals)))
+          (v2 (apply (compile nil fn2) vals)))
       (if (eql v1 v2)
-	  :good
-	(list v1 v2))))
+          :good
+        (list v1 v2))))
   :good)
 
 (deftest misc.97
   (let* ((form '(- 349708 (gcd c 0) (logand b b (if (> -8543459 c) 83328 1073))))
-	 (fn1 `(lambda (b c)
-		 (declare (type (integer 301653 329907) b))
-		 (declare (type (integer 171971491 1073721279) c))
-		 (declare (optimize (speed 3)))
-		 (declare (optimize (safety 1)))
-		 ,form))
-	 (fn2 `(lambda (b c) ,form))
-	 (vals '(321769 1073671227)))
+         (fn1 `(lambda (b c)
+                 (declare (type (integer 301653 329907) b))
+                 (declare (type (integer 171971491 1073721279) c))
+                 (declare (optimize (speed 3)))
+                 (declare (optimize (safety 1)))
+                 ,form))
+         (fn2 `(lambda (b c) ,form))
+         (vals '(321769 1073671227)))
     (let ((v1 (apply (compile nil fn1) vals))
-	  (v2 (apply (compile nil fn2) vals)))
+          (v2 (apply (compile nil fn2) vals)))
       (if (eql v1 v2)
-	  :good
-	(list v1 v2))))
+          :good
+        (list v1 v2))))
   :good)
 
 ;;; sbcl bugs (0.8.4.40, x86 linux)
 
 (deftest misc.98
   (funcall (compile nil '(lambda (x)
-			   (declare (type (integer -1000000 1000000) x))
-			   (logand x x 0)))
-	   12345)
+                           (declare (type (integer -1000000 1000000) x))
+                           (logand x x 0)))
+           12345)
   0)
 
 (deftest misc.99
@@ -1310,73 +1310,73 @@
 
 (deftest misc.100
   (funcall (compile nil '(lambda (c)
-			   (declare (type (integer -3924 1001809828) c))
-			   (declare (optimize (speed 3)))
-			   (min 47 (if (ldb-test (byte 2 14) c)
-				       -570344431
-				     (ignore-errors -732893970)))))
-	   705347625)
+                           (declare (type (integer -3924 1001809828) c))
+                           (declare (optimize (speed 3)))
+                           (min 47 (if (ldb-test (byte 2 14) c)
+                                       -570344431
+                                     (ignore-errors -732893970)))))
+           705347625)
   -570344431)
 
 (deftest misc.101
   (funcall
    (compile nil '(lambda (a c)
-		   (declare (type (integer 185501219873 303014665162) a))
-		   (declare (type (integer -160758 255724) c))
-		   (declare (optimize (speed 3)))
-		   (let ((v8
-			  (- -554046873252388011622614991634432
-			     (ignore-errors c)
-			     (unwind-protect 2791485))))
-		     (max (ignore-errors a)
-			  (let ((v6 (- v8 (restart-case 980))))
-			    (min v8 v6))))))
+                   (declare (type (integer 185501219873 303014665162) a))
+                   (declare (type (integer -160758 255724) c))
+                   (declare (optimize (speed 3)))
+                   (let ((v8
+                          (- -554046873252388011622614991634432
+                             (ignore-errors c)
+                             (unwind-protect 2791485))))
+                     (max (ignore-errors a)
+                          (let ((v6 (- v8 (restart-case 980))))
+                            (min v8 v6))))))
    259448422916 173715)
   259448422916)
 
 (deftest misc.102
   (funcall
    (compile nil '(lambda (b)
-		   (declare (type (integer -1598566306 2941) b))
-		   (declare (optimize (speed 3)))
-		   (max -148949 (ignore-errors b))))
+                   (declare (type (integer -1598566306 2941) b))
+                   (declare (optimize (speed 3)))
+                   (max -148949 (ignore-errors b))))
    0)
   0)
 
 (deftest misc.103
   (funcall
    (compile nil '(lambda (a b)
-		   (min -80
-			(abs
-			 (ignore-errors
-			   (+
-			    (logeqv b
-				    (block b6
-				      (return-from b6
-					(load-time-value -6876935))))
-			    (if (logbitp 1 a) b (setq a -1522022182249))))))))
+                   (min -80
+                        (abs
+                         (ignore-errors
+                           (+
+                            (logeqv b
+                                    (block b6
+                                      (return-from b6
+                                        (load-time-value -6876935))))
+                            (if (logbitp 1 a) b (setq a -1522022182249))))))))
    -1802767029877 -12374959963)
   -80)
 
 (deftest misc.104
   (funcall
    (compile nil '(lambda (a) (declare (type (integer 55400028 60748067) a))
-		   (lognand 1505 (ash a (let () 40)))))
+                   (lognand 1505 (ash a (let () 40)))))
    58194485)
   -1)
 
 (deftest misc.105
   (funcall
    (compile nil '(lambda (b c)
-		   (declare (type (integer -4 -3) c))
-		   (block b7
-		     (flet ((%f1 (f1-1 f1-2 f1-3)
-				 (if (logbitp 0 (return-from b7
-						  (- -815145138 f1-2)))
-				     (return-from b7 -2611670)
-				   99345)))
-		       (let ((v2 (%f1 -2464 (%f1 -1146 c c) -2)))
-			 b)))))
+                   (declare (type (integer -4 -3) c))
+                   (block b7
+                     (flet ((%f1 (f1-1 f1-2 f1-3)
+                                 (if (logbitp 0 (return-from b7
+                                                  (- -815145138 f1-2)))
+                                     (return-from b7 -2611670)
+                                   99345)))
+                       (let ((v2 (%f1 -2464 (%f1 -1146 c c) -2)))
+                         b)))))
    2950453607 -4)
   -815145134)
 
@@ -1385,10 +1385,10 @@
 (deftest misc.106
   (progn
     (eval '(defun misc.106-fn (a b c)
-	     (declare (optimize speed))
-	     (block b6
-	       (flet ((%f8 (f8-1 f8-2) b))
-		 (%f8 (%f8 c 338) (if t (return-from b6 a) c))))))
+             (declare (optimize speed))
+             (block b6
+               (flet ((%f8 (f8-1 f8-2) b))
+                 (%f8 (%f8 c 338) (if t (return-from b6 a) c))))))
     (misc.106-fn -30271 -1 -3043))
   -30271)
 
@@ -1396,16 +1396,16 @@
 (deftest misc.107
   (funcall
    (compile nil
-	    '(lambda (b c)
-	       (declare (type (integer -29742055786 23602182204) b))
-	       (declare (type (integer -7409 -2075) c))
-	       (declare (optimize (speed 3)))
-	       (floor
-		(labels ((%f2 ()
-			      (block b6
-				(ignore-errors (return-from b6
-						 (if (= c 8) b 82674))))))
-		  (%f2)))))
+            '(lambda (b c)
+               (declare (type (integer -29742055786 23602182204) b))
+               (declare (type (integer -7409 -2075) c))
+               (declare (optimize (speed 3)))
+               (floor
+                (labels ((%f2 ()
+                              (block b6
+                                (ignore-errors (return-from b6
+                                                 (if (= c 8) b 82674))))))
+                  (%f2)))))
    22992834060 -5833)
   82674 0)
 
@@ -1416,14 +1416,14 @@
     nil
     '(lambda ()
        (declare
-	(optimize (speed 2) (space 0) (safety 1)
-		  (debug 3) (compilation-speed 0)))
+        (optimize (speed 2) (space 0) (safety 1)
+                  (debug 3) (compilation-speed 0)))
        (flet ((%f14
-	       (f14-1
-		&optional (f14-2 (rationalize (catch 'ct4 0))) (f14-3 0)
-		(f14-4 0))
-	       (dotimes (iv2 0 0) (progn f14-2))))
-	 (apply #'%f14 0 0 0 nil)))))
+               (f14-1
+                &optional (f14-2 (rationalize (catch 'ct4 0))) (f14-3 0)
+                (f14-4 0))
+               (dotimes (iv2 0 0) (progn f14-2))))
+         (apply #'%f14 0 0 0 nil)))))
   0)
 
 ;;; "The value NIL is not of type SB-C::IR2-LVAR." (sbcl 0.8.14.18)
@@ -1438,26 +1438,26 @@
        (declare (type (integer -3798210806 -898) c))
        (declare (ignorable a b c))
        (declare
-	(optimize (speed 2)
-		  (space 2)
-		  (safety 2)
-		  (debug 3)
-		  (compilation-speed 1)))
+        (optimize (speed 2)
+                  (space 2)
+                  (safety 2)
+                  (debug 3)
+                  (compilation-speed 1)))
        (block b4
-	 (let ((*s7* (cons c 0)))
-	   (declare (special *s7*))
-	   (return-from b4
-	     (prog1 0
-	       (the integer
-		 (integer-length
-		  (1+
-		   (let ()
-		     (gcd (cdr *s7*)
-			  (case b
-			    ((31 38 20 0 5 45) 2)
-			    ((34 35 64 61 47) 39)
-			    ((58) a)
-			    (t 131788)))))))))))))
+         (let ((*s7* (cons c 0)))
+           (declare (special *s7*))
+           (return-from b4
+             (prog1 0
+               (the integer
+                 (integer-length
+                  (1+
+                   (let ()
+                     (gcd (cdr *s7*)
+                          (case b
+                            ((31 38 20 0 5 45) 2)
+                            ((34 35 64 61 47) 39)
+                            ((58) a)
+                            (t 131788)))))))))))))
    734649164 -3343 -2306504518)
   0)
 
@@ -1467,11 +1467,11 @@
     nil
     '(lambda (c)
        (declare (optimize (speed 2) (space 1) (safety 1) (debug 3)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (let* ((*s6*
-	       (unwind-protect 0 (the integer (ash 2914825 (min 8 c))))))
-	 (declare (special *s6*))
-	 0)))
+               (unwind-protect 0 (the integer (ash 2914825 (min 8 c))))))
+         (declare (special *s6*))
+         0)))
    -105)
   0)
 
@@ -1481,15 +1481,15 @@
     nil
     '(lambda (a b)
        (declare (optimize (speed 1) (space 1) (safety 1) (debug 3)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (catch 'ct4
-	 (logorc1
-	  (the integer
-	    (case (dotimes (iv2 2 2) (progn 203))
-	      ((-51) -59598)
-	      ((-31 -150) a)
-	      (t b)))
-	  (throw 'ct4 0)))))
+         (logorc1
+          (the integer
+            (case (dotimes (iv2 2 2) (progn 203))
+              ((-51) -59598)
+              ((-31 -150) a)
+              (t b)))
+          (throw 'ct4 0)))))
    10 20)
   0)
 
@@ -1499,9 +1499,9 @@
     nil
     '(lambda (a)
        (declare (optimize (speed 1) (space 0) (safety 1)
-			  (debug 3) (compilation-speed 1)))
+                          (debug 3) (compilation-speed 1)))
        (flet ((%f11 (&key (key1 (the integer (- a 245241933)))) 0))
-	 (%f11))))
+         (%f11))))
    1)
   0)
 
@@ -1510,23 +1510,23 @@
 (deftest misc.108
   (funcall
    (compile nil '(lambda (b)
-		   (block b7 (- b (ignore-errors (return-from b7 57876))))))
+                   (block b7 (- b (ignore-errors (return-from b7 57876))))))
    10)
   57876)
 
 ;;; "The assertion (C::CONSTANT-CONTINUATION-P C::CONT) failed." (cmucl)
 (deftest misc.109
   (funcall (compile
-	    nil
-	    '(lambda ()
-	       (load-time-value
-		(block b4
-		  (* (return-from b4 -27)
-		     (block b5
-		       (return-from b4
-			 (return-from b5
-			   (ignore-errors (unwind-protect
-					      (return-from b5 0))))))))))))
+            nil
+            '(lambda ()
+               (load-time-value
+                (block b4
+                  (* (return-from b4 -27)
+                     (block b5
+                       (return-from b4
+                         (return-from b5
+                           (ignore-errors (unwind-protect
+                                              (return-from b5 0))))))))))))
   -27)
 
 ;;; This bug was occuring a lot in sbcl, and now occurs in cmucl too
@@ -1534,10 +1534,10 @@
 (deftest misc.110
   (funcall
    (compile nil
-	    '(lambda (c)
-	       (declare (type (integer -1441970837 -427) c))
-	       (declare (optimize (speed 3)))
-	       (block b7 (abs (min c (ignore-errors (return-from b7 c)))))))
+            '(lambda (c)
+               (declare (type (integer -1441970837 -427) c))
+               (declare (optimize (speed 3)))
+               (block b7 (abs (min c (ignore-errors (return-from b7 c)))))))
    -500)
   -500)
 
@@ -1558,25 +1558,25 @@
        (declare (type (integer -1472 1979) f))
        (declare (ignorable a b c d e f))
        (declare
-	(optimize (speed 3)
-		  (space 3)
-		  (safety 0)
-		  (debug 0)
-		  (compilation-speed 3)))
+        (optimize (speed 3)
+                  (space 3)
+                  (safety 0)
+                  (debug 0)
+                  (compilation-speed 3)))
        (catch 'ct7
-	 (if
-	     (logbitp 0
-		      (if (/= 0 a)
-			  c
-			(ignore-errors
-			  (progn
-			    (if
-				(ldb-test (byte 0 0) (rational (throw 'ct7 0)))
-				0
+         (if
+             (logbitp 0
+                      (if (/= 0 a)
+                          c
+                        (ignore-errors
+                          (progn
+                            (if
+                                (ldb-test (byte 0 0) (rational (throw 'ct7 0)))
+                                0
                               0)
-			    0))))
-	     0
-	   0))))
+                            0))))
+             0
+           0))))
    391833530 36648101240 -32785211 91893 -4124561581760 1358)
   0)
 
@@ -1612,12 +1612,12 @@
 (deftest misc.113
   (funcall
    (compile nil '(lambda (b c)
-		   (if (or (ldb-test (byte 8 10) b) t)
-		       c
-		     (min (if (<= -6467 c) c 6)
-			  (flet ((%f3 (f3-1 f3-2)
-				      f3-1))
-			    (multiple-value-call #'%f3 (values b 107)))))))
+                   (if (or (ldb-test (byte 8 10) b) t)
+                       c
+                     (min (if (<= -6467 c) c 6)
+                          (flet ((%f3 (f3-1 f3-2)
+                                      f3-1))
+                            (multiple-value-call #'%f3 (values b 107)))))))
    -238 -23658556)
   -23658556)
 
@@ -1631,10 +1631,10 @@
                    (block b2
                      (flet ((%f1 nil b))
                        (logior (if a
-				   (if (ldb-test (byte 23 1) 253966182)
-				       (return-from b2 a)
-				     -103275090)
-				 62410)
+                                   (if (ldb-test (byte 23 1) 253966182)
+                                       (return-from b2 a)
+                                     -103275090)
+                                 62410)
                                (if (not (not (if (not nil) t (ldb-test (byte 2 27) 253671809))))
                                    (return-from b2 -22)
                                  (%f1))))))))
@@ -1647,38 +1647,38 @@
   (funcall
    (compile nil
             '(lambda (a b c)
-	       (declare (type (integer 0 1000) a b c))
-	       (if (and (if b (not (and (not (or a t)) nil)) nil)
-			(logbitp 6 c))
-		   c b)))
+               (declare (type (integer 0 1000) a b c))
+               (if (and (if b (not (and (not (or a t)) nil)) nil)
+                        (logbitp 6 c))
+                   c b)))
    0 100 600)
   600)
 
 (deftest misc.116
   (funcall
    (compile nil
-	    '(lambda (a c)
-	       (declare (type (integer 0 1000) a c))
-	       (if (if (and (not (and (not (or a t)) nil)) t) c nil)
-		   91 -1725615)))
+            '(lambda (a c)
+               (declare (type (integer 0 1000) a c))
+               (if (if (and (not (and (not (or a t)) nil)) t) c nil)
+                   91 -1725615)))
    0 0)
   91)
 
 (deftest misc.117
   (funcall
    (compile nil
-	    '(lambda (a c)
-	       (declare (type (integer 0 1000) a c))
-	       (if (or c (not (or nil (not (and (not (or a t)) nil)))))
-		   373146181 115)))
+            '(lambda (a c)
+               (declare (type (integer 0 1000) a c))
+               (if (or c (not (or nil (not (and (not (or a t)) nil)))))
+                   373146181 115)))
    0 0)
   373146181)
 
 (deftest misc.118
   (funcall
    (compile nil '(lambda (a)
-		   (declare (type (integer 0 10000) a))
-		   (if (or (or nil (not (or (not (or a nil)) t))) a) a 9376)))
+                   (declare (type (integer 0 10000) a))
+                   (if (or (or nil (not (or (not (or a nil)) t))) a) a 9376)))
    0)
   0)
 
@@ -1688,8 +1688,8 @@
     nil
     '(lambda ()
        (if (and (if (1+ 0) nil (not (and (not (and (<= 3) nil)) nil)))
-		(if (= -31) -20 -2371))
-	   1493 39720))))
+                (if (= -31) -20 -2371))
+           1493 39720))))
   39720)
 
 (deftest misc.120
@@ -1699,7 +1699,7 @@
     '(lambda (c)
        (declare (type (integer 377036 4184626) c))
        (if (or (and t (not (and (not (and c nil)) nil))) nil)
-	   3470653 c)))
+           3470653 c)))
    1000000)
   3470653)
 
@@ -1737,62 +1737,62 @@
 ;;; gcl bug (30 Oct 2003)
 (deftest misc.123
   (let* ((fn1 '(lambda (b)
-		 (declare (optimize (safety 1)))
-		 (labels ((%f7 (f7-1 f7-2)
-			       (let ((v2 (setq b 723149855)))
-				 25620)))
-		   (max b
-			(multiple-value-call #'%f7 (values b 2))))))
-	 (fn2 '(lambda (b)
-		 (labels ((%f7 (f7-1 f7-2)
-			       (let ((v2 (setq b 723149855)))
-				 25620)))
-		   (max b
-			(multiple-value-call #'%f7 (values b 2))))))
-	 (vals '(1439719153))
-	 (v1 (apply (compile nil fn1) vals))
-	 (v2 (apply (compile nil fn2) vals)))
+                 (declare (optimize (safety 1)))
+                 (labels ((%f7 (f7-1 f7-2)
+                               (let ((v2 (setq b 723149855)))
+                                 25620)))
+                   (max b
+                        (multiple-value-call #'%f7 (values b 2))))))
+         (fn2 '(lambda (b)
+                 (labels ((%f7 (f7-1 f7-2)
+                               (let ((v2 (setq b 723149855)))
+                                 25620)))
+                   (max b
+                        (multiple-value-call #'%f7 (values b 2))))))
+         (vals '(1439719153))
+         (v1 (apply (compile nil fn1) vals))
+         (v2 (apply (compile nil fn2) vals)))
     (if (eql v1 v2) :good (list v1 v2)))
   :good)
 
 (deftest misc.124
   (let* ((fn1 '(lambda (b)
-		 (declare (optimize (safety 1)))
-		 (labels ((%f7 (f7-1 f7-2)
-			       (let ((v2 (setq b 723149855)))
-				 25620)))
-		   (max b
-			(funcall #'%f7 b 2)))))
-	 (fn2 '(lambda (b)
-		 (labels ((%f7 (f7-1 f7-2)
-			       (let ((v2 (setq b 723149855)))
-				 25620)))
-		   (max b
-			(funcall #'%f7 b 2)))))
-	 (vals '(1439719153))
-	 (v1 (apply (compile nil fn1) vals))
-	 (v2 (apply (compile nil fn2) vals)))
+                 (declare (optimize (safety 1)))
+                 (labels ((%f7 (f7-1 f7-2)
+                               (let ((v2 (setq b 723149855)))
+                                 25620)))
+                   (max b
+                        (funcall #'%f7 b 2)))))
+         (fn2 '(lambda (b)
+                 (labels ((%f7 (f7-1 f7-2)
+                               (let ((v2 (setq b 723149855)))
+                                 25620)))
+                   (max b
+                        (funcall #'%f7 b 2)))))
+         (vals '(1439719153))
+         (v1 (apply (compile nil fn1) vals))
+         (v2 (apply (compile nil fn2) vals)))
     (if (eql v1 v2) :good (list v1 v2)))
   :good)
 
 ;;; This passed in gcl, but I added it for completeness.
 (deftest misc.125
   (let* ((fn1 '(lambda (b)
-		 (declare (optimize (safety 1)))
-		 (labels ((%f7 (f7-1 f7-2)
-			       (let ((v2 (setq b 723149855)))
-				 25620)))
-		   (max b
-			(%f7 b 2)))))
-	 (fn2 '(lambda (b)
-		 (labels ((%f7 (f7-1 f7-2)
-			       (let ((v2 (setq b 723149855)))
-				 25620)))
-		   (max b
-			(%f7 b 2)))))
-	 (vals '(1439719153))
-	 (v1 (apply (compile nil fn1) vals))
-	 (v2 (apply (compile nil fn2) vals)))
+                 (declare (optimize (safety 1)))
+                 (labels ((%f7 (f7-1 f7-2)
+                               (let ((v2 (setq b 723149855)))
+                                 25620)))
+                   (max b
+                        (%f7 b 2)))))
+         (fn2 '(lambda (b)
+                 (labels ((%f7 (f7-1 f7-2)
+                               (let ((v2 (setq b 723149855)))
+                                 25620)))
+                   (max b
+                        (%f7 b 2)))))
+         (vals '(1439719153))
+         (v1 (apply (compile nil fn1) vals))
+         (v2 (apply (compile nil fn2) vals)))
     (if (eql v1 v2) :good (list v1 v2)))
   :good)
 
@@ -1807,10 +1807,10 @@
        (declare (special *should-always-be-true*))
        (labels ((%f10 (f10-1 &optional
                              (f10-2 (cl:handler-bind nil
-						     (if *should-always-be-true*
-							 (progn 878)
-						       (should-never-be-called)
-						       )))
+                                                     (if *should-always-be-true*
+                                                         (progn 878)
+                                                       (should-never-be-called)
+                                                       )))
                              (f10-3 (cl:handler-case 10)))
                       -15))
          (%f10 -144)))))
@@ -1822,15 +1822,15 @@
     nil
     '(lambda (a c)
        (flet ((%f10 (f10-1 f10-2) 10))
-	 (flet ((%f4
-		 (&optional
-		  (f4-1 (ldb (byte 10 6)
-			     (* 828
-				(+ 30 (dpb c (byte 9 30) (%f10 1918433 34107)))
-				)))
-		  (f4-2 (setq a 0)))
-		 2))
-	   (%f4 -5)))))
+         (flet ((%f4
+                 (&optional
+                  (f4-1 (ldb (byte 10 6)
+                             (* 828
+                                (+ 30 (dpb c (byte 9 30) (%f10 1918433 34107)))
+                                )))
+                  (f4-2 (setq a 0)))
+                 2))
+           (%f4 -5)))))
    0 0)
   2)
 
@@ -1839,62 +1839,62 @@
 
 (deftest misc.128
   (flet ((%f14
-	  (f14-1 f14-2
-		 &optional
-		 (f14-3 (unwind-protect 13059412))
-		 (f14-4 452384)
-		 (f14-5 -6714))
-	  -1))
+          (f14-1 f14-2
+                 &optional
+                 (f14-3 (unwind-protect 13059412))
+                 (f14-4 452384)
+                 (f14-5 -6714))
+          -1))
     (%f14 -2 1 1279896 589726354 -11))
   -1)
 
 (deftest misc.129
   (labels ((%f17 (f17-1 f17-2 &optional (f17-3 (unwind-protect 178)))
-		 483633925))
+                 483633925))
     -661328075)
   -661328075)
 
 (deftest misc.130
   (let* ((fn1
-	  '(lambda (a c)
-	     (flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c)))
-			  a))
-	       (multiple-value-call #'%f10 (values -178858 a)))))
-	 (fn2
-	  '(lambda (a c)
-	     (declare (notinline values +) (optimize (speed 0) (debug 0)))
-	     (flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c)))
-			  a))
-	       (multiple-value-call #'%f10 (values -178858 a)))))
-	 (vals '(-13649921 -1813684177409))
-	 (v1 (apply (compile nil fn1) vals))
-	 (v2 (apply (compile nil fn2) vals)))
+          '(lambda (a c)
+             (flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c)))
+                          a))
+               (multiple-value-call #'%f10 (values -178858 a)))))
+         (fn2
+          '(lambda (a c)
+             (declare (notinline values +) (optimize (speed 0) (debug 0)))
+             (flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c)))
+                          a))
+               (multiple-value-call #'%f10 (values -178858 a)))))
+         (vals '(-13649921 -1813684177409))
+         (v1 (apply (compile nil fn1) vals))
+         (v2 (apply (compile nil fn2) vals)))
     (if (eql v1 v2) :good (list v1 v2)))
   :good)
 
 (deftest misc.131
   (let* ((fn1
-	  '(lambda (a b)
-	     (max
-	      (block b7
-		(abs
-		 (ignore-errors
-		   (if (ldb-test (byte 33 15) (return-from b7 a))
-		       b b)))))))
-	 (fn2
-	  '(lambda (a b)
-	     (declare (notinline abs max))
-	     (declare (optimize (speed 0)))
-	     (declare (optimize (debug 0)))
-	     (max
-	      (block b7
-		(abs
-		 (ignore-errors
-		   (if (ldb-test (byte 33 15) (return-from b7 a))
-		       b b)))))))
-	 (vals '(-823894140303 -3))
-	 (v1 (apply (compile nil fn1) vals))
-	 (v2 (apply (compile nil fn2) vals)))
+          '(lambda (a b)
+             (max
+              (block b7
+                (abs
+                 (ignore-errors
+                   (if (ldb-test (byte 33 15) (return-from b7 a))
+                       b b)))))))
+         (fn2
+          '(lambda (a b)
+             (declare (notinline abs max))
+             (declare (optimize (speed 0)))
+             (declare (optimize (debug 0)))
+             (max
+              (block b7
+                (abs
+                 (ignore-errors
+                   (if (ldb-test (byte 33 15) (return-from b7 a))
+                       b b)))))))
+         (vals '(-823894140303 -3))
+         (v1 (apply (compile nil fn1) vals))
+         (v2 (apply (compile nil fn2) vals)))
     (if (eql v1 v2) :good (list v1 v2)))
   :good) 
 
@@ -1906,25 +1906,25 @@
 (deftest misc.132
   (funcall
    (compile nil
-	    '(lambda (b c)
-	       (declare (type (integer -3358662 7782429) b))
-	       (declare (type (integer -513018 12740) c))
-	       (declare (optimize (speed 3)))
-	       (declare (optimize (safety 1)))
-	       (declare (optimize (debug 1)))
-	       (labels ((%f9
-			 (&optional
-			  (f9-1
-			   (labels
-			       ((%f5 (f5-1 f5-2)
-				     (floor (ignore-errors f5-1)
-					    (min -67 (if (equal -56 c)
-							 -11197265 f5-2)))))
-			     c))
-			  (f9-2 -439518)
-			  (f9-3 -2840573))
-			 f9-1))
-		 (%f9 -193644 b 1368))))
+            '(lambda (b c)
+               (declare (type (integer -3358662 7782429) b))
+               (declare (type (integer -513018 12740) c))
+               (declare (optimize (speed 3)))
+               (declare (optimize (safety 1)))
+               (declare (optimize (debug 1)))
+               (labels ((%f9
+                         (&optional
+                          (f9-1
+                           (labels
+                               ((%f5 (f5-1 f5-2)
+                                     (floor (ignore-errors f5-1)
+                                            (min -67 (if (equal -56 c)
+                                                         -11197265 f5-2)))))
+                             c))
+                          (f9-2 -439518)
+                          (f9-3 -2840573))
+                         f9-1))
+                 (%f9 -193644 b 1368))))
    10 20)
   -193644)
 
@@ -1935,18 +1935,18 @@
     '(lambda ()
        (declare (optimize (speed 2) (space 0) (safety 0) (debug 2) (compilation-speed 0)))
        (labels ((%f1 () 0))
-	 (if t 0 (dotimes (iv1 5 (if (%f1) 0 0)) (catch 'ct1 0)))))))
+         (if t 0 (dotimes (iv1 5 (if (%f1) 0 0)) (catch 'ct1 0)))))))
   0)
 
 ;;; cmucl (22 Oct 2003)  Default for optional parameter is improperly chosen
 (deftest misc.133
   (funcall
    (compile nil
-	    '(lambda (a b c)
-	       (declare (notinline values))
-	       (declare (optimize (speed 0) (debug 0)))
-	       (flet ((%f15 (&optional (f15-5 c)) f15-5))
-		 (multiple-value-call #'%f15 (values -2688612)))))
+            '(lambda (a b c)
+               (declare (notinline values))
+               (declare (optimize (speed 0) (debug 0)))
+               (flet ((%f15 (&optional (f15-5 c)) f15-5))
+                 (multiple-value-call #'%f15 (values -2688612)))))
    1 2 3)
   -2688612)
 
@@ -1958,34 +1958,34 @@
 (deftest misc.134
   (funcall
    (compile nil
-	    '(lambda (b)
-	       (labels ((%f5 (f5-1 f5-2 f5-3 &optional (f5-4 0)
-				   (f5-5
-				    (flet ((%f13 (f13-1)
-						 (return-from %f13 b))) b)))
-			     900654472))
-		 183301)))
+            '(lambda (b)
+               (labels ((%f5 (f5-1 f5-2 f5-3 &optional (f5-4 0)
+                                   (f5-5
+                                    (flet ((%f13 (f13-1)
+                                                 (return-from %f13 b))) b)))
+                             900654472))
+                 183301)))
    13775799184)
   183301)
 
 (deftest misc.135
   (funcall
    (compile nil
-	    '(lambda (a b)
-	       (labels ((%f4 (&optional (f4-1 (labels ((%f17 nil a)) b)))
-			     -14806404))
-		 190134)))
+            '(lambda (a b)
+               (labels ((%f4 (&optional (f4-1 (labels ((%f17 nil a)) b)))
+                             -14806404))
+                 190134)))
    1783745644 268410629)
   190134)
 
 (deftest misc.136
   (funcall
    (compile nil
-	    '(lambda (c)
-	       (flet ((%f17 (&optional
-			     (f17-1 (flet ((%f9 nil c)) 73574919)))
-			    643))
-		 1039017546)))
+            '(lambda (c)
+               (flet ((%f17 (&optional
+                             (f17-1 (flet ((%f9 nil c)) 73574919)))
+                            643))
+                 1039017546)))
    0)
   1039017546)
 
@@ -1994,28 +1994,28 @@
 (deftest misc.137
   (funcall
    (compile nil
-	    '(lambda ()
-	       (declare (optimize (speed 3)))
-	       (declare (optimize (safety 1)))
-	       (flet ((%f16 (&optional
-			     (f16-2 (lognor -3897747
-					    (if nil -1 -127228378))))
-			    10))
-		 20))))
+            '(lambda ()
+               (declare (optimize (speed 3)))
+               (declare (optimize (safety 1)))
+               (flet ((%f16 (&optional
+                             (f16-2 (lognor -3897747
+                                            (if nil -1 -127228378))))
+                            10))
+                 20))))
   20)
 
 (deftest misc.138
   (funcall
    (compile nil
-	    '(lambda (c)
-	       (declare (type (integer 2996 39280) c))
-	       (declare (optimize (speed 3)))
-	       (declare (optimize (safety 1)))
-	       (if (zerop (labels ((%f8 (&optional
-					 (f8-2 (logorc2 c -161957)))
-					2176))
-			    3))
-		   c c)))
+            '(lambda (c)
+               (declare (type (integer 2996 39280) c))
+               (declare (optimize (speed 3)))
+               (declare (optimize (safety 1)))
+               (if (zerop (labels ((%f8 (&optional
+                                         (f8-2 (logorc2 c -161957)))
+                                        2176))
+                            3))
+                   c c)))
    3000)
   3000)
 
@@ -2024,27 +2024,27 @@
 
 (deftest misc.139
   (let* ((fn1
-	  '(lambda (c)
-	     (declare (optimize (speed 3)))
-	     (logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1))
-		       (%f1 774 3616592)) c)))
-	 (fn2
-	  '(lambda (c)
-	     (logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1))
-		       (%f1 774 3616592)) c)))
-	 (vals '(-3))
-	 (v1 (apply (compile nil fn1) vals))
-	 (v2 (apply (compile nil fn2) vals)))
+          '(lambda (c)
+             (declare (optimize (speed 3)))
+             (logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1))
+                       (%f1 774 3616592)) c)))
+         (fn2
+          '(lambda (c)
+             (logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1))
+                       (%f1 774 3616592)) c)))
+         (vals '(-3))
+         (v1 (apply (compile nil fn1) vals))
+         (v2 (apply (compile nil fn2) vals)))
     (if (eql v1 v2) :good (list v1 v2)))
   :good)
 
 (deftest misc.140
   (funcall
    (compile nil
-	    '(lambda (a)
-	       (ldb (byte 24 20)
-		    (labels ((%f12 (&optional (f12-1 149) (f12-2 -3894159)) 34068))
-		      (let* ((v4 (%f12))) a)))))
+            '(lambda (a)
+               (ldb (byte 24 20)
+                    (labels ((%f12 (&optional (f12-1 149) (f12-2 -3894159)) 34068))
+                      (let* ((v4 (%f12))) a)))))
    -1)
   16777215)
  
@@ -2055,17 +2055,17 @@
 (deftest misc.141
   (funcall
    (compile nil
-	    '(lambda () (labels ((%f11 (&optional (f11-3 (restart-case 0))) f11-3))
-			  (%f11 1)))))
+            '(lambda () (labels ((%f11 (&optional (f11-3 (restart-case 0))) f11-3))
+                          (%f11 1)))))
   1)
 
 (deftest misc.142
   (funcall
    (compile nil
-	    '(lambda ()
-	       (labels ((%f15 (&optional (f15-3 (block b1 (+ 1 (return-from b1 -10)))))
-			      f15-3))
-		 (%f15)))))
+            '(lambda ()
+               (labels ((%f15 (&optional (f15-3 (block b1 (+ 1 (return-from b1 -10)))))
+                              f15-3))
+                 (%f15)))))
   -10)
 
 ;;; cmucl (22 Oct 2003):  NIL is not of type C::REF
@@ -2085,24 +2085,24 @@
 (deftest misc.144
   (funcall
    (compile nil
-	    '(lambda (a b c)
-	       (declare (type (integer 9739325 14941321) c))
-	       (labels ((%f7 (f7-1 f7-2 f7-3 &optional (f7-4 b))
-			     (return-from %f7 f7-4)))
-		 (if (= -76482 c)
-		     (if (>= c 10986082) (%f7 a b (%f7 -8088 c -147106 2)) -10502)
-		   (%f7 509252 b b)))))
+            '(lambda (a b c)
+               (declare (type (integer 9739325 14941321) c))
+               (labels ((%f7 (f7-1 f7-2 f7-3 &optional (f7-4 b))
+                             (return-from %f7 f7-4)))
+                 (if (= -76482 c)
+                     (if (>= c 10986082) (%f7 a b (%f7 -8088 c -147106 2)) -10502)
+                   (%f7 509252 b b)))))
    -200 17 10000000)
   17)
 
 (deftest misc.145
   (funcall
    (compile nil
-	    '(lambda (a b c)
-	       (declare (optimize (safety 3)))
-	       (block b5
-		 (return-from b5
-		   (logior (if (or c t) b (load-time-value -61)) (return-from b5 -3))))))
+            '(lambda (a b c)
+               (declare (optimize (safety 3)))
+               (block b5
+                 (return-from b5
+                   (logior (if (or c t) b (load-time-value -61)) (return-from b5 -3))))))
    1 2 3)
   -3)
 
@@ -2110,12 +2110,12 @@
 (deftest misc.146
   (funcall
    (compile nil
-	    '(lambda (b)
-	       (declare (optimize (speed 3)))
-	       (flet ((%f14 (&optional (f14-1 301917227)
-				       (f14-2 (setq b 995196571)))
-			    f14-1))
-		 (%f14 b (block b3 (%f14 -64))))))
+            '(lambda (b)
+               (declare (optimize (speed 3)))
+               (flet ((%f14 (&optional (f14-1 301917227)
+                                       (f14-2 (setq b 995196571)))
+                            f14-1))
+                 (%f14 b (block b3 (%f14 -64))))))
    10)
   10)
 
@@ -2133,7 +2133,7 @@
 (deftest misc.149
   (funcall
    (compile nil '(lambda (b)
-		   (block b1 (- (logand 0 -34 1026491) (ignore-errors (return-from b1 b))))))
+                   (block b1 (- (logand 0 -34 1026491) (ignore-errors (return-from b1 b))))))
    0)
   0)
 
@@ -2150,13 +2150,13 @@
     nil
     '(lambda (a b c)
        (flet ((%f17
-	       (&optional
-		(f17-4
-		 (labels ((%f13 (f13-1 &optional (f13-2 (multiple-value-prog1 b)))
-				-4))
-		   (%f13 b (%f13 190)))))
-	       -157596))
-	 (labels ((%f6 () (%f17))) c))))
+               (&optional
+                (f17-4
+                 (labels ((%f13 (f13-1 &optional (f13-2 (multiple-value-prog1 b)))
+                                -4))
+                   (%f13 b (%f13 190)))))
+               -157596))
+         (labels ((%f6 () (%f17))) c))))
    10 20 30000)
   30000)
 
@@ -2166,7 +2166,7 @@
     nil
     '(lambda ()
        (declare (optimize (speed 3) (space 2) (safety 3)
-			  (debug 3) (compilation-speed 2)))
+                          (debug 3) (compilation-speed 2)))
        (catch 'ct6 (apply (constantly 0) (list))))))
   0)
 
@@ -2177,7 +2177,7 @@
     '(lambda (a)
        (declare (type integer a))
        (declare (optimize (speed 3) (space 0) (safety 3) (debug 2)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (if (= a 0) 0 (truncate a))))
    0)
   0)
@@ -2189,15 +2189,15 @@
     '(lambda (a b)
        (declare (optimize (speed 1) (space 3) (safety 2) (debug 3) (compilation-speed 3)))
        (labels ((%f4 (f4-1)
-		     0))
-	 (labels ((%f15
-		   (f15-1 f15-2
-			  &optional (f15-3 (apply #'%f4 0 nil)) (f15-4 0)
-			  (f15-5 (%f4 (%f4 (if (/= 0 0) a 0)))))
-		   0))
-	   (labels ((%f13 (f13-1)
-			  (%f15 b 0 0 0)))
-	     0)))))
+                     0))
+         (labels ((%f15
+                   (f15-1 f15-2
+                          &optional (f15-3 (apply #'%f4 0 nil)) (f15-4 0)
+                          (f15-5 (%f4 (%f4 (if (/= 0 0) a 0)))))
+                   0))
+           (labels ((%f13 (f13-1)
+                          (%f15 b 0 0 0)))
+             0)))))
    1 2)
   0)
 
@@ -2222,10 +2222,10 @@
        (declare (type (integer -249 97) b))
        (declare (type (integer 3565969 6559088) c))
        (let* ((v7
-	       (if (not (= 1030 4))
-		   c
-		 (logand (if (/= b c) b 34945725) (unwind-protect -12443701)))))
-	 5520737)))
+               (if (not (= 1030 4))
+                   c
+                 (logand (if (/= b c) b 34945725) (unwind-protect -12443701)))))
+         5520737)))
    -24 5657943)
   5520737)
 
@@ -2235,7 +2235,7 @@
     nil
     '(lambda ()
        (declare
-	(optimize (speed 3) (space 3) (safety 1) (debug 1) (compilation-speed 0)))
+        (optimize (speed 3) (space 3) (safety 1) (debug 1) (compilation-speed 0)))
        (case 0 ((-12 -9 -12 -2 -5 -2 15) (catch 'ct7 (throw 'ct7 0))) (t 0)))))
   0)  
 
@@ -2245,41 +2245,41 @@
 (deftest misc.152
   (funcall
    (compile nil
-	    '(lambda (a)
-	       (block b5
-		 (let ((v1 (let ((v8 (unwind-protect 9365)))
-			     8862008)))
-		   (*
-		    (return-from b5
-		      (labels ((%f11 (f11-1) f11-1))
-			(%f11 87246015)))
-		    (return-from b5
-		      (setq v1
-			    (labels ((%f6 (f6-1 f6-2 f6-3) v1))
-			      (dpb (unwind-protect a)
-				   (byte 18 13)
-				   (labels ((%f4 () 27322826))
-				     (%f6 -2 -108626545 (%f4))))))))))))
+            '(lambda (a)
+               (block b5
+                 (let ((v1 (let ((v8 (unwind-protect 9365)))
+                             8862008)))
+                   (*
+                    (return-from b5
+                      (labels ((%f11 (f11-1) f11-1))
+                        (%f11 87246015)))
+                    (return-from b5
+                      (setq v1
+                            (labels ((%f6 (f6-1 f6-2 f6-3) v1))
+                              (dpb (unwind-protect a)
+                                   (byte 18 13)
+                                   (labels ((%f4 () 27322826))
+                                     (%f6 -2 -108626545 (%f4))))))))))))
    -6)
   87246015)
 
 (deftest misc.153
   (funcall
    (compile nil
-	    '(lambda (a)
-	       (if (logbitp 3
-			    (case -2
-			      ((-96879 -1035 -57680 -106404 -94516 -125088)
-			       (unwind-protect 90309179))
-			      ((-20811 -86901 -9368 -98520 -71594)
-			       (let ((v9 (unwind-protect 136707)))
-				 (block b3
-				   (setq v9
-					 (let ((v4 (return-from b3 v9)))
-					   (- (ignore-errors (return-from b3 v4))))))))
-			      (t -50)))
-		   -20343
-		 a)))
+            '(lambda (a)
+               (if (logbitp 3
+                            (case -2
+                              ((-96879 -1035 -57680 -106404 -94516 -125088)
+                               (unwind-protect 90309179))
+                              ((-20811 -86901 -9368 -98520 -71594)
+                               (let ((v9 (unwind-protect 136707)))
+                                 (block b3
+                                   (setq v9
+                                         (let ((v4 (return-from b3 v9)))
+                                           (- (ignore-errors (return-from b3 v4))))))))
+                              (t -50)))
+                   -20343
+                 a)))
    0)
   -20343)
 
@@ -2289,11 +2289,11 @@
 (deftest misc.154
   (funcall
    (compile nil
-	    '(lambda (b)
-	       (labels ((%f8 nil -39011))
-		 (flet ((%f4 (f4-1 f4-2 &optional (f4-3 (%f8)) (f4-4 b))
-			     (%f8)))
-		   (%f4 -260093 -75538 -501684 (let ((v9 (%f8))) -3))))))
+            '(lambda (b)
+               (labels ((%f8 nil -39011))
+                 (flet ((%f4 (f4-1 f4-2 &optional (f4-3 (%f8)) (f4-4 b))
+                             (%f8)))
+                   (%f4 -260093 -75538 -501684 (let ((v9 (%f8))) -3))))))
    0)
   -39011)
 
@@ -2302,9 +2302,9 @@
 (deftest misc.155
   (funcall
    (compile nil
-	    '(lambda (a b c)
-	       (labels ((%f6 (f6-1 f6-2) c))
-		 (multiple-value-call #'%f6 (values a c)))))
+            '(lambda (a b c)
+               (labels ((%f6 (f6-1 f6-2) c))
+                 (multiple-value-call #'%f6 (values a c)))))
    0 10 20)
   20)
 
@@ -2313,8 +2313,8 @@
 (deftest misc.156
   (funcall
    (compile nil
-	    '(lambda ()
-	       (let ((v6 (ldb (byte 30 1) 1473))) (let ((v8 v6)) 2395)))))
+            '(lambda ()
+               (let ((v6 (ldb (byte 30 1) 1473))) (let ((v8 v6)) 2395)))))
   2395)
 
 ;;; "/tmp/ecl9CEiD1RL5.c:36: `lex0' undeclared (first use in this function)"
@@ -2322,11 +2322,11 @@
 (deftest misc.157
   (funcall
    (compile nil
-	    ' (lambda (c)
-		(labels ((%f11 nil 1))
-		  (flet ((%f9 (f9-1 f9-2)
-			      (case 17466182 ((-12) (%f11)) (t c))))
-		    (%f9 -9913 c)))))
+            ' (lambda (c)
+                (labels ((%f11 nil 1))
+                  (flet ((%f9 (f9-1 f9-2)
+                              (case 17466182 ((-12) (%f11)) (t c))))
+                    (%f9 -9913 c)))))
    17)
   17)
 
@@ -2378,19 +2378,19 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (block b5
-	 (let ((v2
-		(if (or (>= 34 a) 108361696)
-		    (return-from b5 -1)
-		  (lognand b -16023672))))
-	   (flet ((%f10
-		   (f10-1
-		    &optional (f10-2 (if (eql -30 v2) v2 -5)) (f10-3 v2)
-		    (f10-4 14))
-		   (if (equal a f10-2) f10-4 380663047)))
-	     (flet ((%f6 (f6-1 f6-2 f6-3)
-			 f6-1))
-	       (multiple-value-call #'%f6
-				    (values a (%f10 -37243) -47691))))))))
+         (let ((v2
+                (if (or (>= 34 a) 108361696)
+                    (return-from b5 -1)
+                  (lognand b -16023672))))
+           (flet ((%f10
+                   (f10-1
+                    &optional (f10-2 (if (eql -30 v2) v2 -5)) (f10-3 v2)
+                    (f10-4 14))
+                   (if (equal a f10-2) f10-4 380663047)))
+             (flet ((%f6 (f6-1 f6-2 f6-3)
+                         f6-1))
+               (multiple-value-call #'%f6
+                                    (values a (%f10 -37243) -47691))))))))
    100 -1200)
   -1)
 
@@ -2400,10 +2400,10 @@
 (deftest misc.160
   (funcall
    (compile nil
-	    '(lambda (c)
-	       (declare (notinline + funcall))
-	       (+ (labels ((%f1 () -14)) (funcall #'%f1))
-		  (flet ((%f2 () (floor c))) (funcall #'%f2)))))
+            '(lambda (c)
+               (declare (notinline + funcall))
+               (+ (labels ((%f1 () -14)) (funcall #'%f1))
+                  (flet ((%f2 () (floor c))) (funcall #'%f2)))))
    0)
   -14)
 
@@ -2413,27 +2413,27 @@
 (deftest misc.161
   (funcall
    (compile nil
-	    '(lambda (a b c)
-	       (flet ((%f17 (f17-1 f17-2 f17-3)
-			    (flet ((%f2
-				    (f2-1 f2-2
-					  &optional (f2-3 (return-from %f17 f17-1))
-					  (f2-4 (return-from %f17 -57)))
-				    b))
-			      (multiple-value-call #'%f2 (values c -588 55101157)))))
-		 (if nil
-		     (let* ((v6 (%f17 102136 3096194 a)))
-		       b)
-		   c))))
+            '(lambda (a b c)
+               (flet ((%f17 (f17-1 f17-2 f17-3)
+                            (flet ((%f2
+                                    (f2-1 f2-2
+                                          &optional (f2-3 (return-from %f17 f17-1))
+                                          (f2-4 (return-from %f17 -57)))
+                                    b))
+                              (multiple-value-call #'%f2 (values c -588 55101157)))))
+                 (if nil
+                     (let* ((v6 (%f17 102136 3096194 a)))
+                       b)
+                   c))))
    -511 -2269809964 250738)
   250738)
 
 (deftest misc.161a
   (funcall
    (compile nil
-	    '(lambda (a)
-	       (declare (optimize (speed 3) (space 2) (safety 3) (debug 0) (compilation-speed 0)))
-	       (progn (abs 0) (- a) 0)))
+            '(lambda (a)
+               (declare (optimize (speed 3) (space 2) (safety 3) (debug 0) (compilation-speed 0)))
+               (progn (abs 0) (- a) 0)))
    1)
   0)
 
@@ -2441,11 +2441,11 @@
 
 (deftest misc.162
   (let* ((fn `(lambda (a c)
-		(declare (notinline funcall)
-			 (optimize (speed 0) (debug 0)))
-		(labels ((%f17 (f17-1 &optional (f17-4 c))
-			       (return-from %f17 (if f17-4 f17-1 49572640))))
-		  (funcall #'%f17 15128425 a)))))
+                (declare (notinline funcall)
+                         (optimize (speed 0) (debug 0)))
+                (labels ((%f17 (f17-1 &optional (f17-4 c))
+                               (return-from %f17 (if f17-4 f17-1 49572640))))
+                  (funcall #'%f17 15128425 a)))))
     (funcall (compile nil fn) 1 3))
   15128425)
 
@@ -2455,12 +2455,12 @@
 (deftest misc.163
   (funcall
    (compile nil
-	    '(lambda (b)
-	       (declare (type (integer -15716 3947) b))
-	       (case b
-		 ((-7 -6 -6) :good)
-		 ((-5 -6) :bad)
-		 )))
+            '(lambda (b)
+               (declare (type (integer -15716 3947) b))
+               (case b
+                 ((-7 -6 -6) :good)
+                 ((-5 -6) :bad)
+                 )))
 
    -6)
   :good)
@@ -2474,12 +2474,12 @@
     nil
     '(lambda (a)
      (labels ((%f6 (f6-1 f6-2)
-		   (cl:handler-case
-		    (labels ((%f2 nil (logior a)))
-		      (if (eql (%f2) (%f2))
-			  2829254 -10723))
-		    (error (c) (error c))
-		    )))
+                   (cl:handler-case
+                    (labels ((%f2 nil (logior a)))
+                      (if (eql (%f2) (%f2))
+                          2829254 -10723))
+                    (error (c) (error c))
+                    )))
        (funcall #'%f6 10 20)
        )))
    0)
@@ -2494,19 +2494,19 @@
     nil
     '(lambda (a b c)
        (block b3
-	 (flet ((%f15
-		 (f15-1 f15-2 f15-3
-			&optional
-			(f15-4
-			 (flet ((%f17
-				 (f17-1 f17-2 f17-3
-					&optional (f17-4 185155520) (f17-5 c)
-					(f17-6 37))
+         (flet ((%f15
+                 (f15-1 f15-2 f15-3
+                        &optional
+                        (f15-4
+                         (flet ((%f17
+                                 (f17-1 f17-2 f17-3
+                                        &optional (f17-4 185155520) (f17-5 c)
+                                        (f17-6 37))
                                  c))
-			   (%f17 -1046 a 1115306 (%f17 b -146330 422) -337817)))
-			(f15-5 a) (f15-6 -40))
-		 (return-from b3 -16)))
-	   (multiple-value-call #'%f15 (values -519354 a 121 c -1905))))))
+                           (%f17 -1046 a 1115306 (%f17 b -146330 422) -337817)))
+                        (f15-5 a) (f15-6 -40))
+                 (return-from b3 -16)))
+           (multiple-value-call #'%f15 (values -519354 a 121 c -1905))))))
    0 0 -5)
   -16)
 
@@ -2522,18 +2522,18 @@
     nil
     '(lambda (a b c)
        (labels ((%f4
-		 (f4-1 f4-2 &optional (f4-3 b) (f4-4 c) (f4-5 -170))
-		 (let ((v2
-			(flet ((%f3
-				(f3-1
-				 &optional (f3-2 28476586) (f3-3 c)
-				 (f3-4 -9240))
-				(return-from %f4 1)))
-			  (multiple-value-call
-			   #'%f3
-			   (values -479909 19843799 f4-5 -463858)))))
-		       b)))
-	 c)))
+                 (f4-1 f4-2 &optional (f4-3 b) (f4-4 c) (f4-5 -170))
+                 (let ((v2
+                        (flet ((%f3
+                                (f3-1
+                                 &optional (f3-2 28476586) (f3-3 c)
+                                 (f3-4 -9240))
+                                (return-from %f4 1)))
+                          (multiple-value-call
+                           #'%f3
+                           (values -479909 19843799 f4-5 -463858)))))
+                       b)))
+         c)))
    0 0 -223721124)
   -223721124)
 
@@ -2543,41 +2543,41 @@
     nil
     '(lambda (a b c)
        (flet ((%f5 (f5-1 f5-2)
-		   (return-from %f5 604245664)))
-	 (flet ((%f12
-		 (f12-1 f12-2
-			&optional (f12-3 c) (f12-4 -579456)
-			(f12-5
-			 (labels ((%f9
-				   (f9-1
-				    &optional
-				    (f9-2
-				     (%f5 1
-					  (let ((v4 (%f5 30732606 a)))
-					    b)))
-				    (f9-3 -29)
-				    (f9-4
-				     (block b4
-				       (labels ((%f14 ()
-						      (labels ((%f18
-								(&optional
-								 (f18-1
-								  (locally
-								   592928))
-								 (f18-2 -3)
-								 (f18-3
-								  (return-from
-								      b4 a)))
-								f18-1))
-							(%f18 74214190 a))))
-					 (%f14)))))
+                   (return-from %f5 604245664)))
+         (flet ((%f12
+                 (f12-1 f12-2
+                        &optional (f12-3 c) (f12-4 -579456)
+                        (f12-5
+                         (labels ((%f9
+                                   (f9-1
+                                    &optional
+                                    (f9-2
+                                     (%f5 1
+                                          (let ((v4 (%f5 30732606 a)))
+                                            b)))
+                                    (f9-3 -29)
+                                    (f9-4
+                                     (block b4
+                                       (labels ((%f14 ()
+                                                      (labels ((%f18
+                                                                (&optional
+                                                                 (f18-1
+                                                                  (locally
+                                                                   592928))
+                                                                 (f18-2 -3)
+                                                                 (f18-3
+                                                                  (return-from
+                                                                      b4 a)))
+                                                                f18-1))
+                                                        (%f18 74214190 a))))
+                                         (%f14)))))
                                    -1))
-			   (flet ((%f17
-				   (f17-1 f17-2 &optional (f17-3 -136045032))
+                           (flet ((%f17
+                                   (f17-1 f17-2 &optional (f17-3 -136045032))
                                    -38655))
-			     (%f17 43873 -138030706 -1372492)))))
-		 (return-from %f12 -15216677)))
-	   (%f12 (%f5 b 2329383) a)))))
+                             (%f17 43873 -138030706 -1372492)))))
+                 (return-from %f12 -15216677)))
+           (%f12 (%f5 b 2329383) a)))))
    1 2 3)
   -15216677)
 
@@ -2587,25 +2587,25 @@
     nil
     '(lambda (a b c)
        (block b3
-	 (flet ((%f11
-		 (f11-1 f11-2
-			&optional
-			(f11-3
-			 (block b6
-			   (labels ((%f11
-				     (f11-1
-				      &optional (f11-2 c)
-				      (f11-3 (return-from b6 -1806)))
+         (flet ((%f11
+                 (f11-1 f11-2
+                        &optional
+                        (f11-3
+                         (block b6
+                           (labels ((%f11
+                                     (f11-1
+                                      &optional (f11-2 c)
+                                      (f11-3 (return-from b6 -1806)))
                                      (return-from b3 -28432)))
-			     (apply #'%f11 (list -114))))))
-		 (return-from %f11 f11-2)))
-	   (%f11 b
-		 c
-		 (labels ((%f10
-			   (f10-1 f10-2
-				  &optional (f10-3 a) (f10-4 (%f11 -3931 170)))
-			   -1704759))
-		   c))))))
+                             (apply #'%f11 (list -114))))))
+                 (return-from %f11 f11-2)))
+           (%f11 b
+                 c
+                 (labels ((%f10
+                           (f10-1 f10-2
+                                  &optional (f10-3 a) (f10-4 (%f11 -3931 170)))
+                           -1704759))
+                   c))))))
    1 2 3)
   3)
 
@@ -2615,17 +2615,17 @@
     nil
     '(lambda (a b c)
        (if t -21705
-	 (flet ((%f15 (f15-1 f15-2)
+         (flet ((%f15 (f15-1 f15-2)
                       b))
-	   (block b4
-	     (%f15 -11112264
-		   (labels ((%f2
-			     (f2-1
-			      &optional (f2-2 (if b -5485340 -1534))
-			      (f2-3 -6))
-			     (return-from b4 f2-1)))
-		     (return-from b4
-		       (if b (%f2 c -320813) (%f2 b a a))))))))))
+           (block b4
+             (%f15 -11112264
+                   (labels ((%f2
+                             (f2-1
+                              &optional (f2-2 (if b -5485340 -1534))
+                              (f2-3 -6))
+                             (return-from b4 f2-1)))
+                     (return-from b4
+                       (if b (%f2 c -320813) (%f2 b a a))))))))))
    1 2 3)
   -21705)
 
@@ -2661,31 +2661,31 @@
        (declare (type (integer -281 30570) a))
        (declare (type (integer -4247786 -199821) b))
        (declare
-	(optimize (speed 3)
-		  (space 0)
-		  (safety 0)
-		  (debug 2)
-		  (compilation-speed 1)))
+        (optimize (speed 3)
+                  (space 0)
+                  (safety 0)
+                  (debug 2)
+                  (compilation-speed 1)))
        (flet ((%f14 (f14-1 f14-2)
-		    (coerce 0 'integer)))
-	 (labels ((%f3 (f3-1 f3-2 f3-3)
-		       (if
-			   (if
-			       (typep (%f14 -864 -10620) '(integer -11672107617 -2))
-			       t
-			     (typep
-			      (imagpart
-			       (lcm 2120258 0 (logandc2 -6222 -1057382553)))
-			      '(integer * -113)))
-			   (dotimes
-			       (iv3 5
-				    (flet ((%f11 (f11-1 f11-2 f11-3)
-						 b))
-				      (multiple-value-call #'%f11
-							   (values a a f3-3))))
-			     0)
-			 0)))
-	   (case (%f3 a a 0) (t 0))))))
+                    (coerce 0 'integer)))
+         (labels ((%f3 (f3-1 f3-2 f3-3)
+                       (if
+                           (if
+                               (typep (%f14 -864 -10620) '(integer -11672107617 -2))
+                               t
+                             (typep
+                              (imagpart
+                               (lcm 2120258 0 (logandc2 -6222 -1057382553)))
+                              '(integer * -113)))
+                           (dotimes
+                               (iv3 5
+                                    (flet ((%f11 (f11-1 f11-2 f11-3)
+                                                 b))
+                                      (multiple-value-call #'%f11
+                                                           (values a a f3-3))))
+                             0)
+                         0)))
+           (case (%f3 a a 0) (t 0))))))
    22087 -1787181)
   0)
 
@@ -2697,16 +2697,16 @@
     nil
     '(lambda (b)
        (block b6
-	 (flet ((%f11 (f11-1 f11-2 &optional (f11-3 -2369157) (f11-4 409468))
-		      (return-from b6 1)))
-	   (block b2
-	     (flet ((%f10 (f10-1 f10-2
+         (flet ((%f11 (f11-1 f11-2 &optional (f11-3 -2369157) (f11-4 409468))
+                      (return-from b6 1)))
+           (block b2
+             (flet ((%f10 (f10-1 f10-2
                             &optional (f10-3 (return-from b6 (return-from b6 -3))))
-		     -8))
-	       (%f10
-		(multiple-value-call #'%f11 (values -5945959 1654846427 -22))
-		(return-from b2 b)
-		(return-from b2 31258361))))))))
+                     -8))
+               (%f10
+                (multiple-value-call #'%f11 (values -5945959 1654846427 -22))
+                (return-from b2 b)
+                (return-from b2 31258361))))))))
    10)
   1)
 
@@ -2723,28 +2723,28 @@
        (declare (optimize (speed 0)))
        (declare (optimize (debug 0)))
        (labels ((%f12 (f12-1 f12-2)
-		      (labels ((%f2 (f2-1 f2-2)
-				    (flet ((%f6 ()
-						(flet ((%f18
-							(f18-1
-							 &optional (f18-2 a)
-							 (f18-3 -207465075)
-							 (f18-4 a))
-							(return-from %f12 b)))
-						  (%f18 -3489553
-							-7
-							(%f18 (%f18 150 -64 f12-1)
-							      (%f18 (%f18 -8531)
-								    11410)
-							      b)
-							56362666))))
-				      (labels ((%f7
-						(f7-1 f7-2
-						      &optional (f7-3 (%f6)))
-						7767415))
-					f12-1))))
-			(%f2 b -36582571))))
-	 (apply #'%f12 (list 774 -4413)))))
+                      (labels ((%f2 (f2-1 f2-2)
+                                    (flet ((%f6 ()
+                                                (flet ((%f18
+                                                        (f18-1
+                                                         &optional (f18-2 a)
+                                                         (f18-3 -207465075)
+                                                         (f18-4 a))
+                                                        (return-from %f12 b)))
+                                                  (%f18 -3489553
+                                                        -7
+                                                        (%f18 (%f18 150 -64 f12-1)
+                                                              (%f18 (%f18 -8531)
+                                                                    11410)
+                                                              b)
+                                                        56362666))))
+                                      (labels ((%f7
+                                                (f7-1 f7-2
+                                                      &optional (f7-3 (%f6)))
+                                                7767415))
+                                        f12-1))))
+                        (%f2 b -36582571))))
+         (apply #'%f12 (list 774 -4413)))))
    0 1 2)
   774)
 
@@ -2761,18 +2761,18 @@
        (declare (optimize (speed 0)))
        (declare (optimize (debug 0)))
        (flet ((%f11
-	       (f11-1 f11-2
-		      &optional (f11-3 c) (f11-4 7947114)
-		      (f11-5
-		       (flet ((%f3 (f3-1 &optional (f3-2 b) (f3-3 5529))
-				   8134))
-			 (multiple-value-call #'%f3
-					      (values (%f3 -30637724 b) c)))))
-	       (setq c 555910)))
-	 (if (and nil (%f11 a a))
-	     (if (%f11 a 421778 4030 1)
-		 (labels ((%f7
-			   (f7-1 f7-2
+               (f11-1 f11-2
+                      &optional (f11-3 c) (f11-4 7947114)
+                      (f11-5
+                       (flet ((%f3 (f3-1 &optional (f3-2 b) (f3-3 5529))
+                                   8134))
+                         (multiple-value-call #'%f3
+                                              (values (%f3 -30637724 b) c)))))
+               (setq c 555910)))
+         (if (and nil (%f11 a a))
+             (if (%f11 a 421778 4030 1)
+                 (labels ((%f7
+                           (f7-1 f7-2
                                  &optional
                                  (f7-3
                                   (%f11 -79192293
@@ -2781,10 +2781,10 @@
                                         b
                                         (%f11 b 985)))
                                  (f7-4 a))
-			   b))
-		   (%f11 c b -25644))
-	       54)
-	   -32326608))))
+                           b))
+                   (%f11 c b -25644))
+               54)
+           -32326608))))
    1 2 3)
   -32326608)
 
@@ -2826,12 +2826,12 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (if (not (if (/= b 7) t (not (not a))))
-	   (case (setq b -5880)
-	     ((8382 3401 2058 39167 62228)
-	      (flet ((%f7 (f7-1 f7-2 f7-3) f7-1))
-		(multiple-value-call #'%f7 (values -135629 a -410168200))))
-	     (t a))
-	 15173)))
+           (case (setq b -5880)
+             ((8382 3401 2058 39167 62228)
+              (flet ((%f7 (f7-1 f7-2 f7-3) f7-1))
+                (multiple-value-call #'%f7 (values -135629 a -410168200))))
+             (t a))
+         15173)))
    30 0)
   15173)
 
@@ -2846,24 +2846,24 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (if
-	   (and
-	    (if (if (equal b 9) nil t)
-		nil
-	      (not
-	       (logbitp 5
-			(labels ((%f5 (f5-1 f5-2 f5-3)
-				      4057223))
-			  (let ((v9 (%f5 -42 -27504 45026809)))
-			    15011)))))
-	    (if
-		(or a
-		    (labels ((%f16 (f16-1)
-				   61))
-		      (apply #'%f16 275 (list))))
-		a
-	      t))
-	   (setq a -4803)
-	 (rem a (max 47 b)))))
+           (and
+            (if (if (equal b 9) nil t)
+                nil
+              (not
+               (logbitp 5
+                        (labels ((%f5 (f5-1 f5-2 f5-3)
+                                      4057223))
+                          (let ((v9 (%f5 -42 -27504 45026809)))
+                            15011)))))
+            (if
+                (or a
+                    (labels ((%f16 (f16-1)
+                                   61))
+                      (apply #'%f16 275 (list))))
+                a
+              t))
+           (setq a -4803)
+         (rem a (max 47 b)))))
    0 0)
   0)
 
@@ -2880,37 +2880,37 @@
        (declare (optimize (speed 0)))
        (declare (optimize (debug 0)))
        (labels ((%f4 (f4-1 f4-2 f4-3)
-		     (labels ((%f1 (f1-1 f1-2 f1-3)
-				   2))
-		       (labels ((%f11
-				 (f11-1
-				  &optional
-				  (f11-2
-				   (return-from %f4
-				     (labels ((%f8
-					       (f8-1 f8-2 f8-3
+                     (labels ((%f1 (f1-1 f1-2 f1-3)
+                                   2))
+                       (labels ((%f11
+                                 (f11-1
+                                  &optional
+                                  (f11-2
+                                   (return-from %f4
+                                     (labels ((%f8
+                                               (f8-1 f8-2 f8-3
                                                      &optional (f8-4 -35)
                                                      (f8-5 f4-2))
-					       f4-1))
-				       (funcall #'%f8 53 b f4-1)))))
+                                               f4-1))
+                                       (funcall #'%f8 53 b f4-1)))))
                                  (return-from %f4 a)))
-			 (signum
-			  (let ((v4
-				 (flet ((%f8
-					 (f8-1 f8-2 f8-3
-					       &optional (f8-4 b) (f8-5 -560367))
+                         (signum
+                          (let ((v4
+                                 (flet ((%f8
+                                         (f8-1 f8-2 f8-3
+                                               &optional (f8-4 b) (f8-5 -560367))
                                          f8-4))
-				   (%f8 -27 35395 c -69))))
-			    (%f11
-			     (multiple-value-call #'%f11
-						  (values (%f1 (%f11 b (%f11 v4 f4-3)) f4-3 77936)
-							  1628490976))
-			     (return-from %f4 (%f1 -9432 f4-1 f4-1)))))))))
-	 (flet ((%f7 (f7-1 f7-2 f7-3)
-		     (%f4 b f7-3 f7-3)))
-	   (flet ((%f14 (f14-1)
-			(apply #'%f7 -252 -56169265 -7322946 (list))))
-	     (%f14 a))))))
+                                   (%f8 -27 35395 c -69))))
+                            (%f11
+                             (multiple-value-call #'%f11
+                                                  (values (%f1 (%f11 b (%f11 v4 f4-3)) f4-3 77936)
+                                                          1628490976))
+                             (return-from %f4 (%f1 -9432 f4-1 f4-1)))))))))
+         (flet ((%f7 (f7-1 f7-2 f7-3)
+                     (%f4 b f7-3 f7-3)))
+           (flet ((%f14 (f14-1)
+                        (apply #'%f7 -252 -56169265 -7322946 (list))))
+             (%f14 a))))))
    -70313091 577425217 28052774417)
   -70313091)
 
@@ -2930,9 +2930,9 @@
                           (f17-3 (let () 6857))
                           (f17-4
                            (labels ((%f3 (f3-1 f3-2 f3-3  &optional (f3-4 a) (f3-5 877))
-					 139))
+                                         139))
                              (apply #'%f3 (list -33052082 b a 1572)))))
-			   b))
+                           b))
                 (multiple-value-call #'%f17 (values 31 b a b))))
              392)))
    0 0)
@@ -2950,21 +2950,21 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (lognor (unwind-protect -1248)
-	       (flet ((%f7
-		       (&optional
-			(f7-1
-			 (flet ((%f1 (f1-1 f1-2 f1-3) 121426))
-			   (%f1 b 2337452 (%f1 61767 b a))))
-			(f7-2
-			 (block b8
-			   (logandc1
-			    (labels ((%f10 (f10-1 f10-2 f10-3) 323734600))
-			      (%f10 (%f10 323734600 323734600 -10165)
-				    -607741 (ignore-errors 971588)))
-			    (if (>= b -27) (return-from b8 -2)
-			      (ignore-errors 237138926))))))
-		       f7-2))
-		 (apply #'%f7 (list 761316125 b))))))
+               (flet ((%f7
+                       (&optional
+                        (f7-1
+                         (flet ((%f1 (f1-1 f1-2 f1-3) 121426))
+                           (%f1 b 2337452 (%f1 61767 b a))))
+                        (f7-2
+                         (block b8
+                           (logandc1
+                            (labels ((%f10 (f10-1 f10-2 f10-3) 323734600))
+                              (%f10 (%f10 323734600 323734600 -10165)
+                                    -607741 (ignore-errors 971588)))
+                            (if (>= b -27) (return-from b8 -2)
+                              (ignore-errors 237138926))))))
+                       f7-2))
+                 (apply #'%f7 (list 761316125 b))))))
    1792769319 -60202244870)
   5)
 
@@ -2984,37 +2984,37 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (block b6
-	 (flet ((%f10 (f10-1 f10-2)
-		      (labels ((%f6 (f6-1 f6-2)
-				    f6-1))
-			(let ((v2
-			       (flet ((%f1 (f1-1 f1-2 f1-3)
-					   f1-3))
-				 (let ((v8
-					(%f1 -11350578
-					     (%f6 10414199 13)
-					     -58931837)))
-				   -239755))))
-			  323))))
-	   (labels ((%f4
-		     (f4-1
-		      &optional (f4-2 204) (f4-3 -1)
-		      (f4-4
-		       (flet ((%f2 (f2-1)
-				   (if t (return-from b6 c) a)))
-			 (logorc2 (multiple-value-call #'%f2 (values 1))
-				  (let* ((v5 (floor (%f2 -1260))))
-				    (case (abs (logxor 185664 a))
-				      ((-2 5975)
-				       (if (or (< b v5) nil)
-					   (return-from b6
-					     (let ((v10 (%f2 c)))
-					       0))
-					 (multiple-value-call #'%f10
-							      (values -3 a))))
-				      (t b)))))))
-		     1503938))
-	     (multiple-value-call #'%f4 (values -1 a 1853966)))))))
+         (flet ((%f10 (f10-1 f10-2)
+                      (labels ((%f6 (f6-1 f6-2)
+                                    f6-1))
+                        (let ((v2
+                               (flet ((%f1 (f1-1 f1-2 f1-3)
+                                           f1-3))
+                                 (let ((v8
+                                        (%f1 -11350578
+                                             (%f6 10414199 13)
+                                             -58931837)))
+                                   -239755))))
+                          323))))
+           (labels ((%f4
+                     (f4-1
+                      &optional (f4-2 204) (f4-3 -1)
+                      (f4-4
+                       (flet ((%f2 (f2-1)
+                                   (if t (return-from b6 c) a)))
+                         (logorc2 (multiple-value-call #'%f2 (values 1))
+                                  (let* ((v5 (floor (%f2 -1260))))
+                                    (case (abs (logxor 185664 a))
+                                      ((-2 5975)
+                                       (if (or (< b v5) nil)
+                                           (return-from b6
+                                             (let ((v10 (%f2 c)))
+                                               0))
+                                         (multiple-value-call #'%f10
+                                                              (values -3 a))))
+                                      (t b)))))))
+                     1503938))
+             (multiple-value-call #'%f4 (values -1 a 1853966)))))))
    173549795 725346738048 993243799)
   993243799)
 
@@ -3023,37 +3023,37 @@
 
 (deftest misc.177
   (let* ((form '(flet ((%f11
-			(f11-1 f11-2)
-			(labels ((%f4 () (round 200048 (max 99 c))))
-			  (logand
-			   f11-1
-			   (labels ((%f3 (f3-1) -162967612))
-			     (%f3 (let* ((v8 (%f4)))
-				    (setq f11-1 (%f4)))))))))
-		  (%f11 -120429363 (%f11 62362 b))))
-	 (vars '(a b c))
-	 (vals '(6714367 9645616 -637681868))
-	 (fn1 `(lambda ,vars
-		  (declare (type (integer 804561 7640697) a))
-		  (declare (type (integer -1 10441401) b))
-		  (declare (type (integer -864634669 55189745) c))
-		  (declare (ignorable a b c))
-		  (declare (optimize (speed 3)))
-		  (declare (optimize (safety 1)))
-		  (declare (optimize (debug 1)))
-		  ,form))
-	 (fn2 `(lambda ,vars
-		 (declare (notinline list apply logand max round))
-		 (declare (optimize (safety 3)))
-		 (declare (optimize (speed 0)))
-		 (declare (optimize (debug 0)))
-		 ,form))
-	 (compiled-fn1 (compile nil fn1))
-	 (compiled-fn2 (compile nil fn2))
-	 (results1 (multiple-value-list (apply compiled-fn1 vals)))
-	 (results2 (multiple-value-list (apply compiled-fn2 vals))))
+                        (f11-1 f11-2)
+                        (labels ((%f4 () (round 200048 (max 99 c))))
+                          (logand
+                           f11-1
+                           (labels ((%f3 (f3-1) -162967612))
+                             (%f3 (let* ((v8 (%f4)))
+                                    (setq f11-1 (%f4)))))))))
+                  (%f11 -120429363 (%f11 62362 b))))
+         (vars '(a b c))
+         (vals '(6714367 9645616 -637681868))
+         (fn1 `(lambda ,vars
+                  (declare (type (integer 804561 7640697) a))
+                  (declare (type (integer -1 10441401) b))
+                  (declare (type (integer -864634669 55189745) c))
+                  (declare (ignorable a b c))
+                  (declare (optimize (speed 3)))
+                  (declare (optimize (safety 1)))
+                  (declare (optimize (debug 1)))
+                  ,form))
+         (fn2 `(lambda ,vars
+                 (declare (notinline list apply logand max round))
+                 (declare (optimize (safety 3)))
+                 (declare (optimize (speed 0)))
+                 (declare (optimize (debug 0)))
+                 ,form))
+         (compiled-fn1 (compile nil fn1))
+         (compiled-fn2 (compile nil fn2))
+         (results1 (multiple-value-list (apply compiled-fn1 vals)))
+         (results2 (multiple-value-list (apply compiled-fn2 vals))))
     (if (equal results1 results2)
-	:good
+        :good
       (values results1 results2)))
   :good)
 
@@ -3115,13 +3115,13 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (block b3
-	 (return-from b3
-	   (flet ((%f17 (f17-1 &optional (f17-2 b) (f17-3 b))
-			(+ (if t (return-from b3 -64796) a))))
-	     (case (%f17 -3908648 -7026139 a)
-	       ((41771 -113272 -48004 -39699 50691 -13222)
-		(multiple-value-call #'%f17 (values -1963404294 -105)))
-	       (t -7026139)))))))
+         (return-from b3
+           (flet ((%f17 (f17-1 &optional (f17-2 b) (f17-3 b))
+                        (+ (if t (return-from b3 -64796) a))))
+             (case (%f17 -3908648 -7026139 a)
+               ((41771 -113272 -48004 -39699 50691 -13222)
+                (multiple-value-call #'%f17 (values -1963404294 -105)))
+               (t -7026139)))))))
    2000 -10000)
   -64796)
 
@@ -3136,17 +3136,17 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (if (and (ldb-test (byte 30 10) b) nil)
-	   (labels ((%f7 (f7-1 f7-2 &optional (f7-3 -508405733))
+           (labels ((%f7 (f7-1 f7-2 &optional (f7-3 -508405733))
                          390004056))
-	     (let* ((v4 (multiple-value-call #'%f7 (values b (%f7 b b)))))
-	       (multiple-value-call #'%f7
-				    (values (%f7 80199 a)
-					    (%f7
-					     (%f7 a
-						  (let* ((v6 (%f7 -226 250)))
-						    a))
-					     (abs (ceiling v4)))))))
-	 -6001)))
+             (let* ((v4 (multiple-value-call #'%f7 (values b (%f7 b b)))))
+               (multiple-value-call #'%f7
+                                    (values (%f7 80199 a)
+                                            (%f7
+                                             (%f7 a
+                                                  (let* ((v6 (%f7 -226 250)))
+                                                    a))
+                                             (abs (ceiling v4)))))))
+         -6001)))
    50 0)
   -6001)
 
@@ -3167,7 +3167,7 @@
                   (if 1
                       (return-from %f14 a)
                       (labels ((%f10 (f10-1 f10-2 f10-3
-					    &optional (f10-4 (let* ((v7 a)) 915)))
+                                            &optional (f10-4 (let* ((v7 a)) 915)))
                                  -1268205049))
                         (labels ((%f18 (f18-1)
                                    (multiple-value-call #'%f10
@@ -3193,7 +3193,7 @@
                                              -58
                                              320))))
                           (let* ((v3 (let ((v7 (return-from %f14 (%f18 -418731))))
-				       (%f10 104871 -1196 -21 a))))
+                                       (%f10 104871 -1196 -21 a))))
                             (labels ((%f1 () (%f18 (%f18 -794761))))
                               (return-from %f14 b))))))))
            (if (%f14) b 887481))))
@@ -3211,36 +3211,36 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (labels ((%f1 (f1-1 &optional (f1-2 -34) (f1-3 3318057) (f1-4 117))
-		     (let ((v9 (let ((v9 (if t (return-from %f1 f1-2) 606042)))
-				 f1-1)))
-		       (flet ((%f16 (f16-1 f16-2)  292))
-			 (labels ((%f2 (f2-1 f2-2 f2-3
-					     &optional (f2-4 f1-3) (f2-5 f1-4)
-					     (f2-6 -418207187))
-				       (%f16 2099 (%f16 f1-2 1157))))
-			   (return-from %f1 (%f2 f1-4 -12066040 v9 122107)))))))
-	 (flet ((%f5
-		 (f5-1
-		  &optional
-		  (f5-2 (labels ((%f13 (f13-1 f13-2 f13-3
-					      &optional (f13-4 a) (f13-5 b))
-				       1054213657))
-			  (%f13 b 166441 -3)))
-		  (f5-3 20102220)
-		  (f5-4 (labels ((%f11 (f11-1 f11-2 f11-3)
-				       (%f1 -110148 (%f1 -12336576 f11-1 -61))))
-			  (let ((v1 (apply #'%f11 -29706 a b (list))))
-			    a))))
-		 b))
-	   (labels ((%f17 (f17-1 f17-2 f17-3
-				 &optional (f17-4 -107566292) (f17-5 63) (f17-6 -2))
-			  105656))
-	     (%f5
-	      (%f17 185703492 a a -511
-		    (%f1 b b -218142
-			 (%f17 -240978 2923208 22 (%f5 1542 68917407 a) b)))
-	      -2018
-	      -1))))))
+                     (let ((v9 (let ((v9 (if t (return-from %f1 f1-2) 606042)))
+                                 f1-1)))
+                       (flet ((%f16 (f16-1 f16-2)  292))
+                         (labels ((%f2 (f2-1 f2-2 f2-3
+                                             &optional (f2-4 f1-3) (f2-5 f1-4)
+                                             (f2-6 -418207187))
+                                       (%f16 2099 (%f16 f1-2 1157))))
+                           (return-from %f1 (%f2 f1-4 -12066040 v9 122107)))))))
+         (flet ((%f5
+                 (f5-1
+                  &optional
+                  (f5-2 (labels ((%f13 (f13-1 f13-2 f13-3
+                                              &optional (f13-4 a) (f13-5 b))
+                                       1054213657))
+                          (%f13 b 166441 -3)))
+                  (f5-3 20102220)
+                  (f5-4 (labels ((%f11 (f11-1 f11-2 f11-3)
+                                       (%f1 -110148 (%f1 -12336576 f11-1 -61))))
+                          (let ((v1 (apply #'%f11 -29706 a b (list))))
+                            a))))
+                 b))
+           (labels ((%f17 (f17-1 f17-2 f17-3
+                                 &optional (f17-4 -107566292) (f17-5 63) (f17-6 -2))
+                          105656))
+             (%f5
+              (%f17 185703492 a a -511
+                    (%f1 b b -218142
+                         (%f17 -240978 2923208 22 (%f5 1542 68917407 a) b)))
+              -2018
+              -1))))))
    -100 1)
   1)
 
@@ -3249,35 +3249,35 @@
 
 (deftest misc.182
   (let* ((form '(labels ((%f14 (f14-1 f14-2)
-			       (labels ((%f16
-					 (f16-1 f16-2
-						&optional
-						(f16-3 (setq f14-1 (ash f14-1 (min 77 b)))))
-					 (logandc2 c -100)))
-				 (return-from %f14 (* 2 (gcd f14-1 (%f16 c f14-1)))))))
-		  (round (%f14 c c)
-			 (max 83 (%f14 (multiple-value-call #'%f14 (values 0 2)) 0)))))
-	 (fn1 `(lambda (a b c)
-		 (declare (type (integer 5628 8762) a))
-		 (declare (type (integer 778 33310188747) b))
-		 (declare (type (integer -6699 4554) c))
-		 (declare (optimize (speed 3)))
-		 (declare (optimize (safety 1)))
-		 (declare (optimize (debug 1)))
-		 ,form))
-	 (fn2 `(lambda (a b c)
-		 (declare (notinline values max round gcd * logandc2 min ash))
-		 (declare (optimize (safety 3)))
-		 (declare (optimize (speed 0)))
-		 (declare (optimize (debug 0)))
-		 ,form))
-	 (vals '(7395 1602862793 -2384))
-	 (cfn1 (compile nil fn1))
-	 (cfn2 (compile nil fn2))
-	 (result1 (multiple-value-list (apply cfn1 vals)))
-	 (result2 (multiple-value-list (apply cfn2 vals))))
+                               (labels ((%f16
+                                         (f16-1 f16-2
+                                                &optional
+                                                (f16-3 (setq f14-1 (ash f14-1 (min 77 b)))))
+                                         (logandc2 c -100)))
+                                 (return-from %f14 (* 2 (gcd f14-1 (%f16 c f14-1)))))))
+                  (round (%f14 c c)
+                         (max 83 (%f14 (multiple-value-call #'%f14 (values 0 2)) 0)))))
+         (fn1 `(lambda (a b c)
+                 (declare (type (integer 5628 8762) a))
+                 (declare (type (integer 778 33310188747) b))
+                 (declare (type (integer -6699 4554) c))
+                 (declare (optimize (speed 3)))
+                 (declare (optimize (safety 1)))
+                 (declare (optimize (debug 1)))
+                 ,form))
+         (fn2 `(lambda (a b c)
+                 (declare (notinline values max round gcd * logandc2 min ash))
+                 (declare (optimize (safety 3)))
+                 (declare (optimize (speed 0)))
+                 (declare (optimize (debug 0)))
+                 ,form))
+         (vals '(7395 1602862793 -2384))
+         (cfn1 (compile nil fn1))
+         (cfn2 (compile nil fn2))
+         (result1 (multiple-value-list (apply cfn1 vals)))
+         (result2 (multiple-value-list (apply cfn2 vals))))
     (if (equal result1 result2)
-	:good
+        :good
       (values result1 result2)))
   :good)
 
@@ -3298,8 +3298,8 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (block b7
-	 (flet ((%f3 (f3-1 f3-2 f3-3) 0))
-	   (apply #'%f3 0 (catch 'foo (return-from b7 (%f3 0 b c))) c nil)))))
+         (flet ((%f3 (f3-1 f3-2 f3-3) 0))
+           (apply #'%f3 0 (catch 'foo (return-from b7 (%f3 0 b c))) c nil)))))
    0 6000 -9000000)
   0)
 
@@ -3322,17 +3322,17 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (if nil
-	   (flet ((%f15 (f15-1 &optional (f15-2 c))
-			(labels ((%f1 (f1-1 f1-2) 0))
-			  (%f1 a 0))))
-	     (flet ((%f4 ()
-			 (multiple-value-call #'%f15
-					      (values (%f15 c 0) (%f15 0)))))
-	       (if nil (%f4)
-		 (flet ((%f8 (f8-1 &optional (f8-2 (%f4)) (f8-3 0))
-			     f8-3))
-		   0))))
-	 0)))
+           (flet ((%f15 (f15-1 &optional (f15-2 c))
+                        (labels ((%f1 (f1-1 f1-2) 0))
+                          (%f1 a 0))))
+             (flet ((%f4 ()
+                         (multiple-value-call #'%f15
+                                              (values (%f15 c 0) (%f15 0)))))
+               (if nil (%f4)
+                 (flet ((%f8 (f8-1 &optional (f8-2 (%f4)) (f8-3 0))
+                             f8-3))
+                   0))))
+         0)))
    3040851270 1664281 -1340106197)
   0)
 
@@ -3352,19 +3352,19 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (flet ((%f3
-	       (f3-1 f3-2 f3-3
+               (f3-1 f3-2 f3-3
                      &optional (f3-4 a) (f3-5 0)
                      (f3-6
                       (labels ((%f10 (f10-1 f10-2 f10-3)
-				     0))
+                                     0))
                         (apply #'%f10
                                0
                                a
                                (- (if (equal a b) b (%f10 c a 0))
                                   (catch 'ct2 (throw 'ct2 c)))
                                nil))))
-	       0))
-	 (%f3 (%f3 (%f3 b 0 0 0) a 0) a b b b c))))
+               0))
+         (%f3 (%f3 (%f3 b 0 0 0) a 0) a b b b c))))
    5 0 7)
   0)
 
@@ -3380,12 +3380,12 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (flet ((%f13 (f13-1 f13-2 f13-3)
-		    0))
-	 (apply #'%f13
-		(%f13 b 0 0)
-		(catch 'ct1 0)
-		(catch 'ct2 (throw 'ct2 c))
-		nil))))
+                    0))
+         (apply #'%f13
+                (%f13 b 0 0)
+                (catch 'ct1 0)
+                (catch 'ct2 (throw 'ct2 c))
+                nil))))
    0 0 0)
   0)
 
@@ -3394,23 +3394,23 @@
 
 (deftest misc.186
   (let* ((form '(labels ((%f3 (f3-1 f3-2) f3-1))
-		  (apply #'%f3 b (catch 'ct8 (throw 'ct8 (logeqv (%f3 c 0)))) nil)))
-	 (vars '(b c))
-	 (fn1 `(lambda ,vars
-		 (declare (type (integer -2 19) b)
-			  (type (integer -1520 218978) c)
-			  (optimize (speed 3) (safety 1) (debug 1)))
-		 ,form))
-	 (fn2 `(lambda ,vars
-		 (declare (notinline logeqv apply)
-			  (optimize (safety 3) (speed 0) (debug 0)))
-		 ,form))
-	 (cf1 (compile nil fn1))
-	 (cf2 (compile nil fn2))
-	 (result1 (multiple-value-list (funcall cf1 2 18886)))
-	 (result2 (multiple-value-list (funcall cf2 2 18886))))
+                  (apply #'%f3 b (catch 'ct8 (throw 'ct8 (logeqv (%f3 c 0)))) nil)))
+         (vars '(b c))
+         (fn1 `(lambda ,vars
+                 (declare (type (integer -2 19) b)
+                          (type (integer -1520 218978) c)
+                          (optimize (speed 3) (safety 1) (debug 1)))
+                 ,form))
+         (fn2 `(lambda ,vars
+                 (declare (notinline logeqv apply)
+                          (optimize (safety 3) (speed 0) (debug 0)))
+                 ,form))
+         (cf1 (compile nil fn1))
+         (cf2 (compile nil fn2))
+         (result1 (multiple-value-list (funcall cf1 2 18886)))
+         (result2 (multiple-value-list (funcall cf2 2 18886))))
     (if (equal result1 result2)
-	:good
+        :good
       (values result1 result2)))
   :good)
 
@@ -3420,18 +3420,18 @@
 (deftest misc.187
   (apply
    (eval '(function
-	   (lambda (a b c)
-	     (declare (notinline))
-	     (declare (optimize (safety 3)))
-	     (declare (optimize (speed 0)))
-	     (declare (optimize (debug 0)))
-	     (flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0))
-			 c))
-	       (let ((v8
-		      (flet ((%f14 (f14-1 &optional (f14-2 (%f7 b)))
-				   0))
-			0)))
-		 (%f7 b))))))
+           (lambda (a b c)
+             (declare (notinline))
+             (declare (optimize (safety 3)))
+             (declare (optimize (speed 0)))
+             (declare (optimize (debug 0)))
+             (flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0))
+                         c))
+               (let ((v8
+                      (flet ((%f14 (f14-1 &optional (f14-2 (%f7 b)))
+                                   0))
+                        0)))
+                 (%f7 b))))))
    '(2374299 70496 -6321798384))
   -6321798384)
 
@@ -3460,8 +3460,8 @@
     '(lambda (a b c)
        (declare (optimize (speed 3) (safety 1) (debug 1)))
        (let* ((v7 (labels ((%f13 (f13-1 f13-2 f13-3) 0))
-		    (multiple-value-call #'%f13 (values a a a)))))
-	 (flet ((%f10 nil v7)) (%f10)))))
+                    (multiple-value-call #'%f13 (values a a a)))))
+         (flet ((%f10 nil v7)) (%f10)))))
    1733 3000 1314076)
   0)
 
@@ -3470,23 +3470,23 @@
 
 (deftest misc.190
   (let* ((form '(flet ((%f15 ()
-			     (labels ((%f4 (f4-1) 0))
-			       (flet ((%f6 (&optional
-					    (f6-2
-					     (logand (apply #'%f4 (list (%f4 0)))
-						     (round (* a)))))
-					   -284))
-				 (%f6)))))
-		  (funcall #'%f15)))
-	 (fn `(lambda (a b c)
-		(declare (notinline values equal abs isqrt < >= byte
-				    mask-field funcall + * logcount logand logior
-				    round list apply min))
-		(declare (optimize (safety 3)))
-		(declare (optimize (speed 0)))
-		(declare (optimize (debug 0)))
-		,form))
-	 (vals '(538754530150 -199250645748 105109641)))
+                             (labels ((%f4 (f4-1) 0))
+                               (flet ((%f6 (&optional
+                                            (f6-2
+                                             (logand (apply #'%f4 (list (%f4 0)))
+                                                     (round (* a)))))
+                                           -284))
+                                 (%f6)))))
+                  (funcall #'%f15)))
+         (fn `(lambda (a b c)
+                (declare (notinline values equal abs isqrt < >= byte
+                                    mask-field funcall + * logcount logand logior
+                                    round list apply min))
+                (declare (optimize (safety 3)))
+                (declare (optimize (speed 0)))
+                (declare (optimize (debug 0)))
+                ,form))
+         (vals '(538754530150 -199250645748 105109641)))
     (apply (compile nil fn) vals))
   -284)
 
@@ -3519,33 +3519,33 @@
        (declare (optimize (safety 1)))
        (declare (optimize (debug 1)))
        (flet ((%f8 (f8-1 f8-2 f8-3) f8-2))
-	 (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a)))))))
+         (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a)))))))
    1 2)
   2)
 
 (deftest misc.193
   (let* ((form '(if (if (<= a (truncate c (min -43 b)))
-			(logbitp 0 0) (logbitp 0 -1))
-		    0 -36223))
-	 (fn1 `(lambda (a b c)
-		 (declare (type (integer -3 15350342) a))
-		 (declare (type (integer -4357 -1555) b))
-		 (declare (type (integer 5389300879793 6422214587951) c))
-		 (declare (optimize (speed 3)))
-		 (declare (optimize (safety 1)))
-		 (declare (optimize (debug 1)))
-		 ,form))
-	 (fn2 `(lambda (a b c)
-		 (declare (notinline logbitp min truncate <=))
-		 (declare (optimize (safety 3)))
-		 (declare (optimize (speed 0)))
-		 (declare (optimize (debug 0)))
-		 ,form))
-	 (vals '(7792101 -1615 6070931814551))
-	 (result1 (multiple-value-list (apply (compile nil fn1) vals)))
-	 (result2 (multiple-value-list (apply (compile nil fn2) vals))))
+                        (logbitp 0 0) (logbitp 0 -1))
+                    0 -36223))
+         (fn1 `(lambda (a b c)
+                 (declare (type (integer -3 15350342) a))
+                 (declare (type (integer -4357 -1555) b))
+                 (declare (type (integer 5389300879793 6422214587951) c))
+                 (declare (optimize (speed 3)))
+                 (declare (optimize (safety 1)))
+                 (declare (optimize (debug 1)))
+                 ,form))
+         (fn2 `(lambda (a b c)
+                 (declare (notinline logbitp min truncate <=))
+                 (declare (optimize (safety 3)))
+                 (declare (optimize (speed 0)))
+                 (declare (optimize (debug 0)))
+                 ,form))
+         (vals '(7792101 -1615 6070931814551))
+         (result1 (multiple-value-list (apply (compile nil fn1) vals)))
+         (result2 (multiple-value-list (apply (compile nil fn2) vals))))
     (if (equal result1 result2)
-	:good
+        :good
       (values result1 result2)))
   :good)
 
@@ -3560,11 +3560,11 @@
        (declare (notinline funcall))
        (declare (optimize (safety 3) (speed 0) (debug 3)))
        (flet ((%f14
-	       (f14-1 f14-2
-		      &optional (f14-3 0) (f14-4 (catch 'ct8 0))
-		      (f14-5 (unwind-protect c)))
-	       0))
-	 (funcall #'%f14 0 0))))
+               (f14-1 f14-2
+                      &optional (f14-3 0) (f14-4 (catch 'ct8 0))
+                      (f14-5 (unwind-protect c)))
+               0))
+         (funcall #'%f14 0 0))))
    1 2 3)
   0)
 
@@ -3579,9 +3579,9 @@
        (declare (ignorable a b))
        (declare (optimize (speed 3) (safety 1) (debug 1)))
        (block b8
-	 (labels ((%f6 (f6-1 &optional (f6-2 0) (f6-3 0) (f6-4 0))
-		       0))
-	   (multiple-value-call #'%f6 (values 0))))))
+         (labels ((%f6 (f6-1 &optional (f6-2 0) (f6-3 0) (f6-4 0))
+                       0))
+           (multiple-value-call #'%f6 (values 0))))))
    100 -100000)
   0)
 
@@ -3596,10 +3596,10 @@
        (declare (ignorable a b))
        (declare (optimize (speed 3) (safety 1) (debug 1)))
        (if (not (logbitp 0 0))
-	   0
-	 (labels ((%f9 (f9-1 f9-2 f9-3)
-		       0))
-	   (%f9 (catch 'ct6 a) (catch 'ct4 0) 0)))))
+           0
+         (labels ((%f9 (f9-1 f9-2 f9-3)
+                       0))
+           (%f9 (catch 'ct6 a) (catch 'ct4 0) 0)))))
    1 -200)
   0)
 
@@ -3612,8 +3612,8 @@
        (declare (notinline logcount))
        (declare (optimize (safety 3) (speed 0) (debug 3)))
        (labels ((%f5 (&optional (f5-1 b) (f5-2 0) (f5-3 (catch (quote ct2) 0)))
-		     (prog1 (logcount (block b1 f5-1)))))
-	 (if (%f5 0 0 0) (%f5 a) 0))))
+                     (prog1 (logcount (block b1 f5-1)))))
+         (if (%f5 0 0 0) (%f5 a) 0))))
    1 2)
   1)
 
@@ -3632,12 +3632,12 @@
 
 (deftest misc.199
   (let* ((fn '(lambda (b)
-		(declare (type (integer 3352138624 13120037248) b))
-		(declare (optimize (speed 3) (safety 1) (space 1)))
-		(progn (catch 'ct1
-			 (progn (setq b 11159349376)
-				(throw 'ct1 0)))
-		       b))))
+                (declare (type (integer 3352138624 13120037248) b))
+                (declare (optimize (speed 3) (safety 1) (space 1)))
+                (progn (catch 'ct1
+                         (progn (setq b 11159349376)
+                                (throw 'ct1 0)))
+                       b))))
     (funcall (compile nil fn) 4108962100))
   11159349376)
 
@@ -3647,10 +3647,10 @@
 (deftest misc.200
   (funcall
    (compile nil '(lambda ()
-		   (declare (optimize (speed 1) (space 0) (safety 3) (debug 3) (compilation-speed 1)))
-		   (ceiling
-		    (ceiling
-		     (flet ((%f16 () 0)) (%f16)))))))
+                   (declare (optimize (speed 1) (space 0) (safety 3) (debug 3) (compilation-speed 1)))
+                   (ceiling
+                    (ceiling
+                     (flet ((%f16 () 0)) (%f16)))))))
   0 0)
 
 ;;; ecl 5 Dec 2003
@@ -3663,9 +3663,9 @@
     nil
     '(lambda (a b)
        (declare (optimize (speed 1) (space 0) (safety 0) (debug 2)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (flet ((%f10 (f10-1) (return-from %f10 a)))
-	 (multiple-value-call #'%f10 (values b)))))
+         (multiple-value-call #'%f10 (values b)))))
    10 -100)
   ;; expected return value
   10)
@@ -3676,15 +3676,15 @@
    (compile
     nil
     '(lambda (a b c)
-	     (declare (type (integer -363953100 5324773015552) a))
-	     (declare (type (integer -5744998440960 59520311) b))
-	     (declare (type (integer -1864645998 -14608) c))
-	     (declare (ignorable a b c))
-	     (declare (optimize (speed 3) (space 0) (safety 2) (debug 0)
-				(compilation-speed 2)))
-	     (flet ((%f1 (f1-1 f1-2)
-			 (labels ((%f1 (f1-1 f1-2) 0)) (%f1 a f1-2))))
-		   (%f1 0 c))))
+             (declare (type (integer -363953100 5324773015552) a))
+             (declare (type (integer -5744998440960 59520311) b))
+             (declare (type (integer -1864645998 -14608) c))
+             (declare (ignorable a b c))
+             (declare (optimize (speed 3) (space 0) (safety 2) (debug 0)
+                                (compilation-speed 2)))
+             (flet ((%f1 (f1-1 f1-2)
+                         (labels ((%f1 (f1-1 f1-2) 0)) (%f1 a f1-2))))
+                   (%f1 0 c))))
    10 20 -20000)
   0)
 
@@ -3695,10 +3695,10 @@
     nil
     '(lambda (a)
        (declare (optimize (speed 3) (space 1) (safety 2) (debug 0)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (labels ((%f18 (f18-1 f18-2 &optional (f18-3 a) (f18-4 a))
-		      f18-2))
-	 (multiple-value-call #'%f18 (values a 0)))))
+                      f18-2))
+         (multiple-value-call #'%f18 (values a 0)))))
    100)
   0)
 
@@ -3729,13 +3729,13 @@
     nil
     '(lambda (a b)
        (declare (optimize (speed 3) (space 1) (safety 1) (debug 0)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (labels ((%f1 nil b))
-	 (flet ((%f11 (f11-1 f11-2 f11-3) 0))
-	   (apply #'%f11 a (logand (%f1))
-		  (flet ((%f13 (f13-1 f13-2) b))
-		    (apply #'%f13 0 0 nil))
-		  nil)))))
+         (flet ((%f11 (f11-1 f11-2 f11-3) 0))
+           (apply #'%f11 a (logand (%f1))
+                  (flet ((%f13 (f13-1 f13-2) b))
+                    (apply #'%f13 0 0 nil))
+                  nil)))))
    100 200)
   0)
 
@@ -3745,10 +3745,10 @@
    #'(lambda (a b)
        (declare (notinline mask-field byte))
        (declare (optimize (speed 1) (space 1) (safety 2) (debug 1)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (mask-field (byte 0 0)
-		   (block b3
-		     (labels ((%f14 nil (return-from b3 a))) (%f14)))))
+                   (block b3
+                     (labels ((%f14 nil (return-from b3 a))) (%f14)))))
    1 2)
   0)
 
@@ -3759,10 +3759,10 @@
     nil
     '(lambda (a)
        (declare (optimize (speed 3) (space 2) (safety 0) (debug 1)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (labels ((%f3 (f3-1) a))
-	 (labels ((%f10 (f10-1 f10-2) a))
-	   (apply #'%f10 0 (logior (%f3 0)) nil)))))
+         (labels ((%f10 (f10-1 f10-2) a))
+           (apply #'%f10 0 (logior (%f3 0)) nil)))))
    -10000)
   -10000)
 
@@ -3773,10 +3773,10 @@
     nil
     '(lambda (b)
        (declare (optimize (speed 3) (space 2) (safety 3) (debug 3)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (flet ((%f6 (f6-1 f6-2 f6-3) f6-3))
-	 (labels ((%f8 (f8-1) (let* ((v1 (%f6 0 0 0))) 0)))
-	   (apply #'%f6 b b (%f8 b) nil)))))
+         (labels ((%f8 (f8-1) (let* ((v1 (%f6 0 0 0))) 0)))
+           (apply #'%f6 b b (%f8 b) nil)))))
    10)
   0)
 
@@ -3787,7 +3787,7 @@
     nil
     '(lambda (b)
        (declare (optimize (speed 3) (space 2) (safety 3) (debug 3)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (max (catch 'ct4 (throw 'ct4 (setq b 0))) b)))
    6353)
   0)
@@ -3800,9 +3800,9 @@
     '(lambda (c)
        (declare (type (integer 3 65500689) c))
        (declare (optimize (speed 2) (space 1) (safety 3) (debug 3)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (catch 'ct6
-	 (let ((v10 (truncate (integer-length (throw 'ct6 0))))) c))))
+         (let ((v10 (truncate (integer-length (throw 'ct6 0))))) c))))
    100)
   0)
 
@@ -3813,13 +3813,13 @@
     '(lambda (a)
        (declare (type (integer -55982525 -1) a))
        (declare (optimize (speed 1) (space 2) (safety 1) (debug 2)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (flet ((%f11 (f11-1 f11-2 f11-3) a))
-	 (let ((v6 0))
-	   (flet ((%f12 (f12-1) v6))
-	     (if (<= 0) (%f11 v6 0 0)
-	       (multiple-value-call #'%f11
-				    (values 0 0 (%f11 0 0 (apply #'%f12 0 nil))))))))))
+         (let ((v6 0))
+           (flet ((%f12 (f12-1) v6))
+             (if (<= 0) (%f11 v6 0 0)
+               (multiple-value-call #'%f11
+                                    (values 0 0 (%f11 0 0 (apply #'%f12 0 nil))))))))))
    -100)
   -100)
 
@@ -3833,15 +3833,15 @@
        (declare (type (integer -28 282229324) b))
        (declare (type (integer -108149896 38889958912) c))
        (declare (optimize (speed 3) (space 1) (safety 2) (debug 1)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (let ((v4 (labels ((%f8 (f8-1 &optional (f8-2 0) (f8-3 b)) 0))
-		   (logior (%f8 0) (%f8 0 0)))))
-	 (truncate
-	  (labels ((%f4 (&optional (f4-1 (ceiling c))) a))
-	    (%f4 v4))
-	  (max 38
-	       (labels ((%f8 (f8-1 &optional (f8-2 (+ c a))) 0))
-		 (apply #'%f8 a nil)))))))
+                   (logior (%f8 0) (%f8 0 0)))))
+         (truncate
+          (labels ((%f4 (&optional (f4-1 (ceiling c))) a))
+            (%f4 v4))
+          (max 38
+               (labels ((%f8 (f8-1 &optional (f8-2 (+ c a))) 0))
+                 (apply #'%f8 a nil)))))))
    -979021452526 138874383 21099308459)
   -25763722434
   -34)
@@ -3849,9 +3849,9 @@
 ;;; Wrong value returned
 (deftest misc.212
   (funcall #'(lambda ()
-	       (declare (optimize (speed 2) (space 0) (safety 3) (debug 2)
-				  (compilation-speed 0)))
-	       (let* ((v9 (unwind-protect 0))) v9)))
+               (declare (optimize (speed 2) (space 0) (safety 3) (debug 2)
+                                  (compilation-speed 0)))
+               (let* ((v9 (unwind-protect 0))) v9)))
   0)
 
 ;;; segmentation violation
@@ -3862,10 +3862,10 @@
     '(lambda (a b)
        (declare (type (integer -2 -1) b))
        (declare (optimize (speed 1) (space 0) (safety 1) (debug 1)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (max (labels ((%f15 (f15-1) b)) (if (< 0 (%f15 a)) 0 0))
-	    (labels ((%f11 (f11-1 f11-2 f11-3) b))
-	      (apply #'%f11 0 0 0 nil)))))
+            (labels ((%f11 (f11-1 f11-2 f11-3) b))
+              (apply #'%f11 0 0 0 nil)))))
    0 -2)
   0)
 
@@ -3875,10 +3875,10 @@
     nil
     '(lambda (a)
        (declare (optimize (speed 3) (space 3) (safety 0) (debug 1)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (max (labels ((%f7 (f7-1) a)) (%f7 0))
-	    (flet ((%f12 (f12-1 f12-2) (if a f12-2 0)))
-	      (apply #'%f12 0 a nil)))))
+            (flet ((%f12 (f12-1 f12-2) (if a f12-2 0)))
+              (apply #'%f12 0 a nil)))))
    123)
   123)
 
@@ -3889,7 +3889,7 @@
     nil
     '(lambda (a)
        (declare (optimize (speed 3) (space 1) (safety 2) (debug 0)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (flet ((%f8 nil (setq a 0))) (max a (%f8)))))
    100)
   100)
@@ -3901,16 +3901,16 @@
     nil
     '(lambda ()
        (declare (optimize (speed 3) (space 3) (safety 3) (debug 0)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (ldb (byte 26 6) -1252))))
   67108844)
 
 (deftest misc.215a
   (funcall
    (compile nil '(lambda ()
-		   (declare (optimize (speed 3) (space 2) (safety 2) (debug 1)
-				      (compilation-speed 2)))
-		   (ldb (byte 30 0) -407020740))))
+                   (declare (optimize (speed 3) (space 2) (safety 2) (debug 1)
+                                      (compilation-speed 2)))
+                   (ldb (byte 30 0) -407020740))))
   666721084)
 
 ;;; Floating point exception
@@ -3933,9 +3933,9 @@
     nil
     '(lambda ()
        (labels ((%f (a b)
-		    (labels ((%f (c d) 0))
-		      (%f 1 2))))
-	 (%f 3 4)))))
+                    (labels ((%f (c d) 0))
+                      (%f 1 2))))
+         (%f 3 4)))))
   0)
 
 ;;; #\^E is not of type NUMBER.
@@ -3948,14 +3948,14 @@
        (declare (type (integer -1 13) b))
        (declare (ignorable a b))
        (declare (optimize (speed 2) (space 1) (safety 1) (debug 0)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (labels ((%f18 (f18-1 f18-2 f18-3) a))
-	 (apply #'%f18 0 a
-		(%f18 b
-		      (- (labels ((%f11 (f11-1 f11-2 f11-3) a))
-			   (%f11 0 0 0)))
-		      a)
-		nil))))
+         (apply #'%f18 0 a
+                (%f18 b
+                      (- (labels ((%f11 (f11-1 f11-2 f11-3) a))
+                           (%f11 0 0 0)))
+                      a)
+                nil))))
    -468614602 3)
   -468614602)
 
@@ -3981,14 +3981,14 @@
     nil
     '(lambda (a b c)
        (declare (optimize (speed 2) (space 3) (safety 0)
-			  (debug 1) (compilation-speed 0)))
+                          (debug 1) (compilation-speed 0)))
        (flet ((%f14 (f14-1 f14-2
-			   &optional (f14-3 c)
-			   (f14-4 (if (not nil)
-				      (labels ((%f9 nil 0)) (%f9))
-				    a)))
-		    (flet ((%f17 (f17-1 f17-2) f14-1)) (%f17 0 f14-3))))
-	 (%f14 (%f14 0 a) 0 b a))))
+                           &optional (f14-3 c)
+                           (f14-4 (if (not nil)
+                                      (labels ((%f9 nil 0)) (%f9))
+                                    a)))
+                    (flet ((%f17 (f17-1 f17-2) f14-1)) (%f17 0 f14-3))))
+         (%f14 (%f14 0 a) 0 b a))))
    248000 5409415 227923)
   0)
 
@@ -4002,11 +4002,11 @@
 (deftest misc.226
   (funcall
    (compile nil
-	    '(lambda (a)
-	       (flet ((%f (&optional (x (setq a 1))
-				     (y (setq a 2)))
-			   0))
-		 (%f 0 0))))
+            '(lambda (a)
+               (flet ((%f (&optional (x (setq a 1))
+                                     (y (setq a 2)))
+                           0))
+                 (%f 0 0))))
    0)
   0)
 
@@ -4016,7 +4016,7 @@
     nil
     '(lambda (b)
        (flet ((%f (&optional x (y (setq b 1))) x))
-	 (%f 0))))
+         (%f 0))))
    0)
   0)
 
@@ -4028,15 +4028,15 @@
     nil
     '(lambda (a b c)
        (declare (optimize (speed 1) (space 2) (safety 0) (debug 2)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (catch 'ct2
-	 (case 0
-	   ((-56087 86404 -94716)
-	    (signum (labels ((%f7 (f7-1 f7-2 f7-3) f7-2)) 0)))
-	   ((12986)
-	    (let ((v3 (catch 'ct2 (throw 'ct2 0))))
-	      (labels ((%f14 (f14-1 f14-2) 0)) (%f14 b c))))
-	   (t 0)))))
+         (case 0
+           ((-56087 86404 -94716)
+            (signum (labels ((%f7 (f7-1 f7-2 f7-3) f7-2)) 0)))
+           ((12986)
+            (let ((v3 (catch 'ct2 (throw 'ct2 0))))
+              (labels ((%f14 (f14-1 f14-2) 0)) (%f14 b c))))
+           (t 0)))))
    -3847091255 -13482 -7577750)
   0)
 
@@ -4050,15 +4050,15 @@
        (declare (type (integer -2 1) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 2) (space 2) (safety 1) (debug 3)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (catch 'ct4
-	 (rational (case b
-		     ((350 244 1059) (prog2 (numerator c) 0))
-		     ((1705 493)
-		      (unwind-protect
-			  (throw 'ct4 c)
-			(loop for lv2 below 2 count (logbitp 0 c))))
-		     (t a))))))
+         (rational (case b
+                     ((350 244 1059) (prog2 (numerator c) 0))
+                     ((1705 493)
+                      (unwind-protect
+                          (throw 'ct4 c)
+                        (loop for lv2 below 2 count (logbitp 0 c))))
+                     (t a))))))
    0 200 -1)
   0)
 
@@ -4069,12 +4069,12 @@
     '(lambda (c)
        (declare (type (integer -1 412413109) c))
        (declare (optimize (speed 1) (space 2) (safety 2) (debug 1)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (catch 'ct2
-	 (logior (* (progn (if c 0 (throw 'ct2 0)) 0)
-		    (catch 'ct2 (throw 'ct2 0)))
-		 (complex c 0)
-		 ))))
+         (logior (* (progn (if c 0 (throw 'ct2 0)) 0)
+                    (catch 'ct2 (throw 'ct2 0)))
+                 (complex c 0)
+                 ))))
    62151)
   62151)
 
@@ -4085,12 +4085,12 @@
     nil
     '(lambda nil
        (declare (optimize (speed 2) (space 1) (safety 1) (debug 2)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (labels ((%f15 (f15-1) 0))
-	 (let ((v4 0))
-	   (catch 'ct5
-	     (%f15
-	      (gcd (catch 'ct5 (let* ((v5 (throw 'ct5 0))) 0)) v4))))))))
+         (let ((v4 0))
+           (catch 'ct5
+             (%f15
+              (gcd (catch 'ct5 (let* ((v5 (throw 'ct5 0))) 0)) v4))))))))
   0)
 
 ;;; ecl
@@ -4103,11 +4103,11 @@
     '(lambda (a)
        (declare (type (integer -6527559920 -247050) a))
        (declare (optimize (speed 1) (space 3) (safety 0) (debug 0)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (labels ((%f10 (&optional (f10-1 0)
-				 (f10-2 (setq a -4456327156)))
-		      0))
-	 (logxor a (%f10 a)))))
+                                 (f10-2 (setq a -4456327156)))
+                      0))
+         (logxor a (%f10 a)))))
    -3444248334)
   -3444248334)
 
@@ -4121,11 +4121,11 @@
     '(lambda (b)
        (declare (type (integer -5209401 3339878) b))
        (declare (optimize (speed 1) (space 2) (safety 0) (debug 2)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (flet ((%f3 (f3-1 f3-2)
-		   f3-1))
-	 (apply #'%f3 0 (logxor (catch 'ct2 b)
-				(catch 'ct5 (throw 'ct5 0))) nil))))
+                   f3-1))
+         (apply #'%f3 0 (logxor (catch 'ct2 b)
+                                (catch 'ct5 (throw 'ct5 0))) nil))))
    -2179757)
   0)
 
@@ -4138,16 +4138,16 @@
        (declare (type (integer 197447754 495807327) a))
        (declare (type (integer -125379462 1863191461) b))
        (declare
-	(optimize (speed 2) (space 2) (safety 2) (debug 1) (compilation-speed 2)))
+        (optimize (speed 2) (space 2) (safety 2) (debug 1) (compilation-speed 2)))
        (flet ((%f8
-	       (&optional
-		(f8-1
-		 (max (catch (quote ct4) 0)
-		      (catch (quote ct6) (throw (quote ct6) 0)))))
-	       b))
-	 (flet ((%f16 (f16-1 f16-2 f16-3)
-		      0))
-	   (apply #'%f16 a 0 (%f8) nil)))))
+               (&optional
+                (f8-1
+                 (max (catch (quote ct4) 0)
+                      (catch (quote ct6) (throw (quote ct6) 0)))))
+               b))
+         (flet ((%f16 (f16-1 f16-2 f16-3)
+                      0))
+           (apply #'%f16 a 0 (%f8) nil)))))
    348270365 28780966)
   0)
 
@@ -4160,32 +4160,32 @@
        (declare (type (integer -2333758327203 -321096206070) a))
        (declare (type (integer -2842843403569 258395684270) b))
        (declare (optimize (speed 2) (space 0) (safety 1) (debug 2)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (flet ((%f18 (f18-1)
-		    (the integer
-		      (labels ((%f9 (f9-1 f9-2)
-				    (* (- -1 -210032251)
-				       (1+
-					(floor
-					 (labels ((%f11 (f11-1 f11-2)
-							-96773966))
-					   (%f11 b -3440758)))))))
-			(flet ((%f2
-				(f2-1 f2-2 f2-3
-				      &optional (f2-4 (%f9 -429204 -63))
-				      (f2-5 (- (%f9 b 17) a))
-				      (f2-6
-				       (multiple-value-call #'%f9
-							    (values
-							     (let () 7127585)
-							     (flet ((%f1 (f1-1 f1-2 f1-3)
-									 (catch 'ct6 -569234)))
-							       (macrolet () 13))))))
-				1027))
-			  (if nil
-			      (%f2 b a f18-1 69968 4 -217193265)
-			    (catch 'ct1 129548688)))))))
-	 (max (apply #'%f18 (list 0))))))
+                    (the integer
+                      (labels ((%f9 (f9-1 f9-2)
+                                    (* (- -1 -210032251)
+                                       (1+
+                                        (floor
+                                         (labels ((%f11 (f11-1 f11-2)
+                                                        -96773966))
+                                           (%f11 b -3440758)))))))
+                        (flet ((%f2
+                                (f2-1 f2-2 f2-3
+                                      &optional (f2-4 (%f9 -429204 -63))
+                                      (f2-5 (- (%f9 b 17) a))
+                                      (f2-6
+                                       (multiple-value-call #'%f9
+                                                            (values
+                                                             (let () 7127585)
+                                                             (flet ((%f1 (f1-1 f1-2 f1-3)
+                                                                         (catch 'ct6 -569234)))
+                                                               (macrolet () 13))))))
+                                1027))
+                          (if nil
+                              (%f2 b a f18-1 69968 4 -217193265)
+                            (catch 'ct1 129548688)))))))
+         (max (apply #'%f18 (list 0))))))
    -2067244683733 143879071206)
   129548688)
 
@@ -4197,16 +4197,16 @@
     '(lambda (b) ;; (a b)
        (declare (type (integer -13583709 -3876310) b))
        (declare (optimize (speed 1) (space 2) (safety 3) (debug 3)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (flet ((%f14 (f14-1 f14-2 f14-3)
-		    (flet ((%f2
-			    (f2-1
-			     &optional (f2-2 0) (f2-3 0)
-			     (f2-4
-			      (block b8 (if (ldb-test (byte 0 0) 0) (* 0 f14-2) 0))))
-			    0))
-		      (%f2 b f14-2))))
-	 (%f14 0 0 (%f14 0 0 0)))))
+                    (flet ((%f2
+                            (f2-1
+                             &optional (f2-2 0) (f2-3 0)
+                             (f2-4
+                              (block b8 (if (ldb-test (byte 0 0) 0) (* 0 f14-2) 0))))
+                            0))
+                      (%f2 b f14-2))))
+         (%f14 0 0 (%f14 0 0 0)))))
    ;; -155589
    -5694124)
   0)
@@ -4220,7 +4220,7 @@
     '(lambda (b)
          (declare (notinline not))
          (declare (optimize (speed 1) (space 0) (safety 0)
-			    (debug 2) (compilation-speed 3)))
+                            (debug 2) (compilation-speed 3)))
          (multiple-value-prog1 0 (catch 'ct2 (if (not nil) (throw 'ct2 b) 0)))))
    :wrong)
   0)
@@ -4231,13 +4231,13 @@
     nil
     '(lambda (a b)
        (declare (optimize (speed 1) (space 0) (safety 3)
-			  (debug 0) (compilation-speed 1)))
+                          (debug 0) (compilation-speed 1)))
        (flet ((%f8 (f8-1) 0))
-	 (labels ((%f18 (f18-1 f18-2 &optional (f18-3 0))
-			(%f8 (catch 'ct7 (throw 'ct7 f18-1)))))
-	   (multiple-value-prog1 (catch 'ct7 a)
-				 0
-				 (multiple-value-call #'%f18 (values 0 (%f8 b))))))))
+         (labels ((%f18 (f18-1 f18-2 &optional (f18-3 0))
+                        (%f8 (catch 'ct7 (throw 'ct7 f18-1)))))
+           (multiple-value-prog1 (catch 'ct7 a)
+                                 0
+                                 (multiple-value-call #'%f18 (values 0 (%f8 b))))))))
    :good :bad)
   :good)
 
@@ -4247,10 +4247,10 @@
     nil
     '(lambda ()
        (declare (optimize (speed 2) (space 2) (safety 3)
-			  (debug 3) (compilation-speed 1)))
+                          (debug 3) (compilation-speed 1)))
        (multiple-value-prog1 0
-			     (catch 'ct7 (logandc1 (block b7 0)
-						   (throw 'ct7 -908543)))))))
+                             (catch 'ct7 (logandc1 (block b7 0)
+                                                   (throw 'ct7 -908543)))))))
   0)
 
 ;;; cmucl (11 2003 snapshot)
@@ -4264,7 +4264,7 @@
        (declare (type (integer -77145797 -1) a))
        (declare (optimize (speed 1) (space 1) (safety 3) (debug 3) (compilation-speed 1)))
        (flet ((%f5 (f5-1) a))
-	 (%f5 (unwind-protect 0 (logand (- (catch 'ct5 0))))))))
+         (%f5 (unwind-protect 0 (logand (- (catch 'ct5 0))))))))
    -100)
   -100)
 
@@ -4274,7 +4274,7 @@
     nil
     '(lambda ()
        (declare (optimize (speed 3) (space 2) (safety 3)
-			  (debug 0) (compilation-speed 0)))
+                          (debug 0) (compilation-speed 0)))
        (min (load-time-value 0))
        0)))
   0)
@@ -4288,20 +4288,20 @@
        (declare (type (integer -2315418108387 111852261677) a))
        (declare (optimize (speed 2) (space 0) (safety 2) (debug 2) (compilation-speed 1)))
        (labels ((%f4 ()
-		     (labels ((%f16 (f16-1 f16-2) 0))
-		       (flet ((%f9 () 0))
-			 (%f16 0 (%f16 (%f9) a))))))
-	 (flet ((%f10 (f10-1 f10-2 f10-3)
-		      (flet ((%f15 (f15-1 &optional (f15-2 (%f4)) (f15-3 0)) f15-3))
-			0)))
-	   0))))
+                     (labels ((%f16 (f16-1 f16-2) 0))
+                       (flet ((%f9 () 0))
+                         (%f16 0 (%f16 (%f9) a))))))
+         (flet ((%f10 (f10-1 f10-2 f10-3)
+                      (flet ((%f15 (f15-1 &optional (f15-2 (%f4)) (f15-3 0)) f15-3))
+                        0)))
+           0))))
    100)
   0)
 
 (deftest misc.239a
   (funcall
    (compile nil '(lambda () (declare (optimize speed safety))
-		   (LET ((x (PROG1 0 (ROUND 18916)))) (catch 'ct4 0)))))
+                   (LET ((x (PROG1 0 (ROUND 18916)))) (catch 'ct4 0)))))
   0)
 
 (deftest misc.240
@@ -4312,11 +4312,11 @@
        (declare (type (integer 4 7) b))
        (declare (optimize (speed 2) (space 3) (safety 3) (debug 1) (compilation-speed 3)))
        (unwind-protect 0
-	 (common-lisp:handler-case
-	  (max
-	   (let ((*s1* b))
-	     (declare (special *s1*))
-	     (+ 0 *s1*)))))))
+         (common-lisp:handler-case
+          (max
+           (let ((*s1* b))
+             (declare (special *s1*))
+             (+ 0 *s1*)))))))
    5)
   0)
 
@@ -4388,12 +4388,12 @@
     '(lambda (a b)
          (declare (notinline <=))
          (declare (optimize (speed 2) (space 3) (safety 0)
-			    (debug 1) (compilation-speed 3)))
+                            (debug 1) (compilation-speed 3)))
          (if (if (<= 0) nil nil)
              (labels ((%f9 (f9-1 f9-2 f9-3)
-			   (ignore-errors 0)))
+                           (ignore-errors 0)))
                (dotimes (iv4 5 a) (%f9 0 0 b)))
-	   0)))
+           0)))
    1 2)
   0)
 
@@ -4404,18 +4404,18 @@
     nil
     '(lambda (a)
        (declare (type (integer -12 14) a))
-       (declare	(optimize (speed 1) (space 2) (safety 1) (debug 1) (compilation-speed 3)))
+       (declare        (optimize (speed 1) (space 2) (safety 1) (debug 1) (compilation-speed 3)))
        (let ((v6 0))
-	 (flet ((%f11
-		 (f11-1
-		  &optional
-		  (f11-2
-		   (case (catch 'ct7 0)
-		     (t
-		      (let* ((v2 (ignore-errors a)))
-			v6)))))
-		 0))
-	   (%f11 0 0)))))
+         (flet ((%f11
+                 (f11-1
+                  &optional
+                  (f11-2
+                   (case (catch 'ct7 0)
+                     (t
+                      (let* ((v2 (ignore-errors a)))
+                        v6)))))
+                 0))
+           (%f11 0 0)))))
    5)
   0)
 
@@ -4436,15 +4436,15 @@
        (declare (type (integer -186585769 -7483) a))
        (declare (type (integer -550 524) b))
        (declare
-	(optimize (speed 2) (space 1) (safety 1) (debug 2) (compilation-speed 3)))
+        (optimize (speed 2) (space 1) (safety 1) (debug 2) (compilation-speed 3)))
        (flet ((%f3 (f3-1 f3-2 f3-3)
-		   0))
-	 (%f3 0 0
-	      (flet ((%f13 (f13-1 f13-2)
-			   0))
-		(if (/= b a)
-		    b
-		  (deposit-field (%f3 0 b 0) (byte 0 0) (%f3 0 0 (%f13 0 0)))))))))
+                   0))
+         (%f3 0 0
+              (flet ((%f13 (f13-1 f13-2)
+                           0))
+                (if (/= b a)
+                    b
+                  (deposit-field (%f3 0 b 0) (byte 0 0) (%f3 0 0 (%f13 0 0)))))))))
    -10000 0)
   0)
 
@@ -4468,14 +4468,14 @@
        (declare (type (integer -30189 -6047) a))
        (declare (type (integer -10 16391481067) b))
        (declare (optimize (speed 3) (space 1) (safety 2) (debug 3)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (if
-	   (<= 0
-	       (let ((*s1* (setq b 12204309028)))
-		 (declare (special *s1*))
-		 (truncate b)))
-	   a
-	 0)))
+           (<= 0
+               (let ((*s1* (setq b 12204309028)))
+                 (declare (special *s1*))
+                 (truncate b)))
+           a
+         0)))
    -12618 16130777867)
   -12618)
 
@@ -4493,7 +4493,7 @@
     '(lambda ()
        (declare (optimize (speed 2) (space 2) (safety 3) (debug 3) (compilation-speed 2)))
        (flet ((%f17 (f17-1) 0))
-	 (%f17 (logandc1 0 (catch 'ct2 0)))))))
+         (%f17 (logandc1 0 (catch 'ct2 0)))))))
   0)
 
 (deftest misc.253a
@@ -4502,17 +4502,17 @@
     nil
     '(lambda (c)
        (declare (optimize (speed 1) (space 1) (safety 3) (debug 2)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (labels ((%f1 (f1-1 f1-2)
-		     (isqrt (abs (complex f1-1 0)))))
-	 (progn
-	   (/
-	    (multiple-value-call #'%f1
-				 (values (1- (restart-bind nil 1416182210))
-					 123337746))
-	    1)
-	   (tagbody)
-	   c))))
+                     (isqrt (abs (complex f1-1 0)))))
+         (progn
+           (/
+            (multiple-value-call #'%f1
+                                 (values (1- (restart-bind nil 1416182210))
+                                         123337746))
+            1)
+           (tagbody)
+           c))))
    -34661)
   -34661)
 
@@ -4525,9 +4525,9 @@
        (declare (type (integer -5241 -1159) a))
        (declare (optimize (speed 3) (space 2) (safety 0) (debug 3) (compilation-speed 1)))
        (gcd a
-	    (let ((*misc.254* (setq a -4929)))  ;; special variable
-	      (declare (special *misc.254*))
-	      0))))
+            (let ((*misc.254* (setq a -4929)))  ;; special variable
+              (declare (special *misc.254*))
+              0))))
    -3000)
   3000)
 
@@ -4539,9 +4539,9 @@
        (declare (type (integer -3474321 15089206) b))
        (declare (optimize (speed 3) (space 3) (safety 3) (debug 3) (compilation-speed 0)))
        (- b
-	  (block b3
-	    (setq b 9367613)
-	    0))))
+          (block b3
+            (setq b 9367613)
+            0))))
    10)
   10)
 
@@ -4569,10 +4569,10 @@
        (declare (optimize (speed 1) (space 2) (safety 3) (debug 3) (compilation-speed 1)))
        (declare (special b))
        (tagbody (flet ((%f1 (f1-1)
-			    (flet ((%f9 (&optional (f9-1 b) (f9-2 (go tag2)) (f9-3 0)) 0))
-			      (%f9 0 0 0))))
-		  (%f1 0))
-		tag2))))
+                            (flet ((%f9 (&optional (f9-1 b) (f9-2 (go tag2)) (f9-3 0)) 0))
+                              (%f9 0 0 0))))
+                  (%f1 0))
+                tag2))))
   nil)
 
 ;;; clisp (26 Dec 2003)
@@ -4601,7 +4601,7 @@
     '(lambda (a)
          (declare (type (integer 177547470 226026978) a))
          (declare (optimize (speed 3) (space 0) (safety 0) (debug 0)
-			    (compilation-speed 1)))
+                            (compilation-speed 1)))
          (logand a (* a 438810))))
    215067723)
   13739018)
@@ -4613,8 +4613,8 @@
     '(lambda (a)
          (declare (type (integer 43369342 45325981) a))
          (declare (optimize (speed 2) (space 0) (safety 2)
-			    (debug 0) (compilation-speed 3)))
-	 (logand 0 (* 5459177 a))))
+                            (debug 0) (compilation-speed 3)))
+         (logand 0 (* 5459177 a))))
    44219966)
   0)
 
@@ -4625,7 +4625,7 @@
     '(lambda (b)
          (declare (type (integer 379442022 806547932) b))
          (declare (optimize (speed 2) (space 0) (safety 0)
-			    (debug 3) (compilation-speed 2)))
+                            (debug 3) (compilation-speed 2)))
          (logand b (* 227 b))))
    551173513)
   545263625)
@@ -4637,7 +4637,7 @@
     '(lambda (a)
        (declare (type (integer 515644 54674673) a))
        (declare (optimize (speed 3) (space 2) (safety 3)
-			  (debug 0) (compilation-speed 1)))
+                          (debug 0) (compilation-speed 1)))
        (mask-field (byte 0 0) (* 613783109 a))))
    28831407)
   0)
@@ -4649,7 +4649,7 @@
     '(lambda (a)
        (declare (type (integer 862944 60462138) a))
        (declare (optimize (speed 3) (space 3) (safety 0)
-			  (debug 1) (compilation-speed 1)))
+                          (debug 1) (compilation-speed 1)))
        (logandc2 0 (* a 18094747))))
    36157847)
   0)
@@ -4661,7 +4661,7 @@
     '(lambda (a)
        (declare (type (integer 896520522 1249309734) a))
        (declare (optimize (speed 3) (space 3) (safety 1)
-			  (debug 1) (compilation-speed 2)))
+                          (debug 1) (compilation-speed 2)))
        (lognand 0 (* a 1381212086))))
    1202966173)
   -1)
@@ -4677,7 +4677,7 @@
     '(lambda (a)
        (declare (type (integer -19621 11895) a))
        (declare (optimize (speed 3) (space 2) (safety 3)
-			  (debug 3) (compilation-speed 3)))
+                          (debug 3) (compilation-speed 3)))
        (* 0 a 103754)))
    1)
   0)
@@ -4692,8 +4692,8 @@
     nil
     '(lambda ()
        (tagbody
-	(flet ((%f (x) :bad)) (multiple-value-call #'%f (go done)))
-	done))))
+        (flet ((%f (x) :bad)) (multiple-value-call #'%f (go done)))
+        done))))
   nil)
 
 (deftest misc.266a
@@ -4703,7 +4703,7 @@
     '(lambda (b)
        (declare (type (integer -14356828946432 -24266) b))
        (declare (optimize (speed 3) (space 1) (safety 1) (debug 3)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (progn (tagbody (unwind-protect 0 (go 3)) 3) b)))
    -30000)
   -30000)
@@ -4715,7 +4715,7 @@
     nil
     '(lambda (b)
        (declare (optimize (speed 2) (space 3) (safety 2) (debug 0)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (unwind-protect 0 (catch 'ct7 (prog1 b 0)))))
    1)
   0)
@@ -4724,8 +4724,8 @@
 
 (deftest misc.267
   (locally (declare (special *s5*))
-	   (let ((v8 (progv '(*s5*) (list 0) (if t *s5* *s5*))))
-	     v8))
+           (let ((v8 (progv '(*s5*) (list 0) (if t *s5* *s5*))))
+             v8))
   0)
 
 (deftest misc.267a
@@ -4738,9 +4738,9 @@
     nil
     '(lambda ()
        (declare (optimize (speed 1) (space 1) (safety 3) (debug 2)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (catch 'ct7
-	 (rationalize (let ((v9 (1+ (throw 'ct7 0)))) 48955))))))
+         (rationalize (let ((v9 (1+ (throw 'ct7 0)))) 48955))))))
   0)
 
 (deftest misc.269
@@ -4750,7 +4750,7 @@
     '(lambda (a)
        (declare (type (integer -1 20) a))
        (declare (optimize (speed 3) (space 1) (safety 2) (debug 2)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (if (if a (logbitp 34 a) nil) 0 -230678)))
    14)
   -230678)
@@ -4773,9 +4773,9 @@
     nil
     '(lambda ()
        (declare (optimize (speed 3) (space 1) (safety 0) (debug 3)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (flet ((%f17 (f17-1) 1))
-	 (multiple-value-call #'%f17 (values (floor 0)))))))
+         (multiple-value-call #'%f17 (values (floor 0)))))))
   1)
 
 ;;; clisp (10 jan 2004)
@@ -4810,18 +4810,18 @@
     nil
     '(lambda ()
        (declare
-	(optimize (speed 2)
-		  (space 2)
-		  (safety 1)
-		  (debug 2)
-		  (compilation-speed 0)))
+        (optimize (speed 2)
+                  (space 2)
+                  (safety 1)
+                  (debug 2)
+                  (compilation-speed 0)))
        (multiple-value-prog1
-	(ignore-errors 0)
-	0
-	(catch 'ct7 0)
-	(catch 'ct1
-	  (catch 'ct4
-	    (complex (throw 'ct4 (dotimes (iv4 0 0) (throw 'ct1 0))) 0)))))))
+        (ignore-errors 0)
+        0
+        (catch 'ct7 0)
+        (catch 'ct1
+          (catch 'ct4
+            (complex (throw 'ct4 (dotimes (iv4 0 0) (throw 'ct1 0))) 0)))))))
   0)
 
 (deftest misc.274a
@@ -4830,7 +4830,7 @@
     nil
     '(lambda ()
          (declare (optimize (speed 3) (space 1) (safety 3)
-			    (debug 1) (compilation-speed 3)))
+                            (debug 1) (compilation-speed 3)))
          (dotimes (iv4 3 0)
            (apply (constantly 0)
                   0
@@ -4848,19 +4848,19 @@
     '(lambda (b)
        (declare (notinline funcall min coerce))
        (declare
-	(optimize (speed 1)
-		  (space 2)
-		  (safety 2)
-		  (debug 1)
-		  (compilation-speed 1)))
+        (optimize (speed 1)
+                  (space 2)
+                  (safety 2)
+                  (debug 1)
+                  (compilation-speed 1)))
        (flet ((%f12 (f12-1)
-		    (coerce
-		     (min
-		      (if f12-1 (multiple-value-prog1
-				 b (return-from %f12 0))
-			0))
-		     'integer)))
-	 (funcall #'%f12 0))))
+                    (coerce
+                     (min
+                      (if f12-1 (multiple-value-prog1
+                                 b (return-from %f12 0))
+                        0))
+                     'integer)))
+         (funcall #'%f12 0))))
    -33)
   0)
 
@@ -4870,12 +4870,12 @@
     nil
     '(lambda ()
        (declare (optimize (speed 2) (space 0) (safety 2)
-			  (debug 1) (compilation-speed 1)))
+                          (debug 1) (compilation-speed 1)))
        (block b4
-	 (coerce
-	  (logcount
-	   (if t 0 (multiple-value-prog1 (identity 0) (return-from b4 0))))
-	  'integer)))))
+         (coerce
+          (logcount
+           (if t 0 (multiple-value-prog1 (identity 0) (return-from b4 0))))
+          'integer)))))
   0)
 
 ;;; clisp (28 Jan 2004)
@@ -4887,14 +4887,14 @@
     nil
     `(lambda (b)
        (declare (optimize (speed 2) (space 0) (safety 0)
-			  (debug 3) (compilation-speed 3)))
+                          (debug 3) (compilation-speed 3)))
        (labels
-	   ((%f2 ()
-		 (let ((v10 (progn (dotimes (iv2 0 0) iv2)
-				   b)))
-		   (unwind-protect b (labels ((%f6 ())) (%f6))
-				   ))))
-	 (%f2))))
+           ((%f2 ()
+                 (let ((v10 (progn (dotimes (iv2 0 0) iv2)
+                                   b)))
+                   (unwind-protect b (labels ((%f6 ())) (%f6))
+                                   ))))
+         (%f2))))
    :good)
   :good)
 
@@ -4907,11 +4907,11 @@
     nil
     '(lambda ()
        (declare (optimize (speed 3) (space 1) (safety 0)
-			  (debug 3) (compilation-speed 0)))
+                          (debug 3) (compilation-speed 0)))
        (labels ((%f15 (&optional (f15-3
-				  (tagbody (labels ((%f6 () (go tag1))) (%f6)) tag1)))
-		      0))
-	 (%f15)))))
+                                  (tagbody (labels ((%f6 () (go tag1))) (%f6)) tag1)))
+                      0))
+         (%f15)))))
   0)
 
 ;;; incorrect return value
@@ -4921,9 +4921,9 @@
     nil
     '(lambda ()
        (declare (optimize (speed 1) (space 0) (safety 2) (debug 3)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (catch 'ct5 (flet ((%f2 (&optional (f2-4 (throw 'ct5 0))) 1))
-		     (%f2 (%f2 0)))))))
+                     (%f2 (%f2 0)))))))
   1)
 
 ;;; incorrect return value
@@ -4934,9 +4934,9 @@
     '(lambda ()
        (declare (optimize (speed 1) (space 1) (safety 3) (debug 0) (compilation-speed 3)))
        (flet ((%f10 ()
-		    (if (< 0 (dotimes (iv2 1 -501162)))
-			0 -14)))
-	 (%f10)))))
+                    (if (< 0 (dotimes (iv2 1 -501162)))
+                        0 -14)))
+         (%f10)))))
   -14)
 
 ;;; incorrect return value (may be same bug as misc.278)
@@ -4947,14 +4947,14 @@
     '(lambda (a)
        (declare (optimize (speed 1) (space 3) (safety 1) (debug 3) (compilation-speed 2)))
        (catch 'ct6
-	 (labels ((%f12 ()
-			(labels ((%f14 (&optional (f14-3 (return-from %f12 5))) 4))
-			  (funcall (constantly 3)
-				   (let ((v2 (%f14))) 2)
-				   (throw 'ct6 1)
-				   ))))
-	   (%f12)
-	   a))))
+         (labels ((%f12 ()
+                        (labels ((%f14 (&optional (f14-3 (return-from %f12 5))) 4))
+                          (funcall (constantly 3)
+                                   (let ((v2 (%f14))) 2)
+                                   (throw 'ct6 1)
+                                   ))))
+           (%f12)
+           a))))
    :good)
   :good)
 
@@ -4972,7 +4972,7 @@
 ;;; gcl: Error in COMPILER::CMP-ANON [or a callee]: The function COMPILER::LDB1 is undefined.
 (deftest misc.282
   (funcall (compile nil '(lambda () (declare (optimize safety))
-			   (ldb (byte 13 13) 43710))))
+                           (ldb (byte 13 13) 43710))))
   5)
 
 ;;; gcl (2/28/2004)
@@ -5005,7 +5005,7 @@
                           (compilation-speed 2)))
        (progn
          (tagbody
-	  (multiple-value-prog1 0 (go tag2))
+          (multiple-value-prog1 0 (go tag2))
           0
           tag2)
          (funcall (constantly 0)
@@ -5021,7 +5021,7 @@
     nil
     '(lambda (a)
        (declare (optimize (speed 2) (space 0) (safety 0) (debug 2)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (block b7 (let* ((v1 (* (return-from b7 0) a))) -4359852))))
    1)
   0)
@@ -5042,7 +5042,7 @@
        (flet ((%f11 (f11-2) 0))
          (%f11 (unwind-protect
                    e
-	         (tagbody
+                 (tagbody
                   (let* ((v4 (unwind-protect (go 0)))) 0)
                   0)
                  (logand (handler-bind () 0)))))))
@@ -5052,17 +5052,17 @@
 #|
 ecl (6 Mar 2004)
 (LAMBDA (C::LOC1 C::LOC2) (IF (AND (CONSP C::LOC1)
-				   (EQ (CAR C::LOC1) 'FIXNUM)
-				   (CONSP (CADR C::LOC1))
-				   (EQ (CAADR C::LOC1) 'C::FIXNUM-VALUE)
-				   (EQ (CADR (CADR C::LOC1)) 2))
-			      (PROGN (C::WT1 "(1<<(")
-				     (C::WT1 C::LOC2) (C::WT1 "))"))
-			      (PROGN (C::WT1 "fixnum_expt(")
-				     (C::WT1 C::LOC1)
-				     (C::WT1 #\,)
-				     (C::WT1 C::LOC2)
-				     (C::WT1 #\)))))
+                                   (EQ (CAR C::LOC1) 'FIXNUM)
+                                   (CONSP (CADR C::LOC1))
+                                   (EQ (CAADR C::LOC1) 'C::FIXNUM-VALUE)
+                                   (EQ (CADR (CADR C::LOC1)) 2))
+                              (PROGN (C::WT1 "(1<<(")
+                                     (C::WT1 C::LOC2) (C::WT1 "))"))
+                              (PROGN (C::WT1 "fixnum_expt(")
+                                     (C::WT1 C::LOC1)
+                                     (C::WT1 #\,)
+                                     (C::WT1 C::LOC2)
+                                     (C::WT1 #\)))))
 is not of type STRING.
 Broken at C::WT-C-INLINE-LOC.
 |#
@@ -5087,9 +5087,9 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (b)
        (declare (optimize (speed 3) (space 1) (safety 1) (debug 2)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (multiple-value-prog1 (apply (constantly 0) b 0 0 nil)
-			     (catch 'ct8 (throw 'ct8 -2)))))
+                             (catch 'ct8 (throw 'ct8 -2)))))
    1)
   0)
 
@@ -5102,8 +5102,8 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda ()
        (declare
-	(optimize (speed 3) (space 3) (safety 1)
-		  (debug 2) (compilation-speed 0)))
+        (optimize (speed 3) (space 3) (safety 1)
+                  (debug 2) (compilation-speed 0)))
        (apply (constantly 0) (catch 'ct2 0) 0 (catch 'ct2 0) nil))))
   0)
 
@@ -5130,10 +5130,10 @@ Broken at C::WT-C-INLINE-LOC.
    #'(lambda (a)
        (declare (notinline numerator))
        (declare (optimize (speed 2) (space 3) (safety 2) (debug 0)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (tagbody (tagbody (progn a) tag)
-		(go tag)
-		tag))
+                (go tag)
+                tag))
    17)
   nil)
 
@@ -5146,20 +5146,20 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (a b c)
        (declare
-	(optimize (speed 3) (space 2) (safety 3) (debug 0)
-		  (compilation-speed 1)))
+        (optimize (speed 3) (space 2) (safety 3) (debug 0)
+                  (compilation-speed 1)))
        (flet ((%f15 (f15-1 f15-2 f15-3)
-		    (apply (constantly 0)
-			   0
-			   0
-			   (ignore-errors
-			     (let ((v10 (apply (constantly 0)
-					       b a (max 0 c) nil)))
-			       0))
-			   nil)))
-	 (flet ((%f14 (f14-1 &optional (f14-2 b) (f14-3 0) (f14-4 0))
-		      (%f15 0 0 b)))
-	   (%f14 0 c)))))
+                    (apply (constantly 0)
+                           0
+                           0
+                           (ignore-errors
+                             (let ((v10 (apply (constantly 0)
+                                               b a (max 0 c) nil)))
+                               0))
+                           nil)))
+         (flet ((%f14 (f14-1 &optional (f14-2 b) (f14-3 0) (f14-4 0))
+                      (%f15 0 0 b)))
+           (%f14 0 c)))))
    1 2 3)
   0)
 
@@ -5169,22 +5169,22 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (a b)
        (declare (optimize (speed 2) (space 0) (safety 3) (debug 1)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (apply (constantly 0)
-	      a
-	      0
-	      (catch 'ct6
-		(apply (constantly 0)
-		       0
-		       0
-		       (let* ((v1
-			       (let ((*s7* 0))
-				 b)))
-			 0)
-		       0
-		       nil))
-	      0
-	      nil)))
+              a
+              0
+              (catch 'ct6
+                (apply (constantly 0)
+                       0
+                       0
+                       (let* ((v1
+                               (let ((*s7* 0))
+                                 b)))
+                         0)
+                       0
+                       nil))
+              0
+              nil)))
    1 2)
   0)
 
@@ -5196,13 +5196,13 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (a)
        (declare (optimize (speed 2) (space 1) (safety 3) (debug 3)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (let ((v6
-	      (labels ((%f9 (f9-1)
-			    (multiple-value-prog1 0 (return-from %f9 0) a)))
-		(let ((*s4* (%f9 0)))
-		  0))))
-	 0)))
+              (labels ((%f9 (f9-1)
+                            (multiple-value-prog1 0 (return-from %f9 0) a)))
+                (let ((*s4* (%f9 0)))
+                  0))))
+         0)))
    1)
   0)
 
@@ -5212,14 +5212,14 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (a b c)
        (declare (optimize (speed 2) (space 3) (safety 1)
-			  (debug 2) (compilation-speed 2)))
+                          (debug 2) (compilation-speed 2)))
        (block b6
-	 (multiple-value-prog1
-	  0 b 0
-	  (catch 'ct7
-	    (return-from b6
-	      (catch 'ct2
-		(complex (cl::handler-bind nil -254932942) 0))))))))
+         (multiple-value-prog1
+          0 b 0
+          (catch 'ct7
+            (return-from b6
+              (catch 'ct2
+                (complex (cl::handler-bind nil -254932942) 0))))))))
    1 2 3)
   -254932942)
 
@@ -5230,9 +5230,9 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda ()
        (declare (notinline complex))
        (declare (optimize (speed 1) (space 0) (safety 1)
-			  (debug 3) (compilation-speed 3)))
+                          (debug 3) (compilation-speed 3)))
        (flet ((%f () (multiple-value-prog1 0 (return-from %f 0))))
-	 (complex (%f) 0)))))
+         (complex (%f) 0)))))
   0)
 
 (deftest misc.293c
@@ -5250,7 +5250,7 @@ Broken at C::WT-C-INLINE-LOC.
                       (debug 2)
                       (speed 0)
                       #+sbcl (sb-c:insert-step-conditions 0)
-		      ))
+                      ))
            (block b4
              (multiple-value-prog1 0
                (catch 'ct7 (return-from b4 (catch 'ct6 (if a 0 b))))
@@ -5268,12 +5268,12 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a b c)
        (declare (notinline /=))
        (declare (optimize (speed 2) (space 0) (safety 1)
-			  (debug 0)(compilation-speed 1)))
+                          (debug 0)(compilation-speed 1)))
          (catch 'ct1
            (flet ((%f1 (f1-1 f1-2 f1-3)
                     (throw 'ct1
                       (if (/= 0) 0 (multiple-value-prog1
-				    0 (throw 'ct1 a) c)))))
+                                    0 (throw 'ct1 a) c)))))
              (let ((*s3* (%f1 a a 0)))
                0)))))
    1 2 3)
@@ -5286,12 +5286,12 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a b c)
        (declare (notinline expt))
        (declare (optimize (speed 1) (space 2) (safety 3)
-			  (debug 0) (compilation-speed 0)))
+                          (debug 0) (compilation-speed 0)))
        (catch 'ct2
-	 (expt
-	  (catch 'ct2
-	    (throw 'ct2 (if a 0 (multiple-value-prog1 0 (throw 'ct2 c) 0))))
-	  0))))
+         (expt
+          (catch 'ct2
+            (throw 'ct2 (if a 0 (multiple-value-prog1 0 (throw 'ct2 c) 0))))
+          0))))
    1 2 3)
   1)
 
@@ -5307,63 +5307,63 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -4717708 795706) c))
        (declare (ignorable a b c))
        (declare
-	(optimize (speed 1)
-		  (space 0)
-		  (safety 2)
-		  (debug 1)
-		  (compilation-speed 2)))
+        (optimize (speed 1)
+                  (space 0)
+                  (safety 2)
+                  (debug 1)
+                  (compilation-speed 2)))
        (multiple-value-prog1
-	(the integer
-	  (catch 'ct8
-	    (catch 'ct5
-	      (catch 'ct7
-		(flet ((%f3 (f3-1 f3-2 &optional (f3-3 a) (f3-4 c)) b))
-		  (labels ((%f13 (f13-1 f13-2 f13-3)
-				 (let* ((*s4*
-					 (return-from %f13
-					   (flet ((%f18 (f18-1 f18-2)
+        (the integer
+          (catch 'ct8
+            (catch 'ct5
+              (catch 'ct7
+                (flet ((%f3 (f3-1 f3-2 &optional (f3-3 a) (f3-4 c)) b))
+                  (labels ((%f13 (f13-1 f13-2 f13-3)
+                                 (let* ((*s4*
+                                         (return-from %f13
+                                           (flet ((%f18 (f18-1 f18-2)
                                                         (apply #'%f3
                                                                (progv nil nil f13-2)
                                                                (list (%f3 -460 f18-1 10095 352819651)))))
-					     (flet ((%f5 ()
-							 (funcall #'%f3
-								  f13-2
-								  (flet ((%f14 (f14-1 f14-2 &optional (f14-3 f13-2) (f14-4 -15))
-									       160080387))
-								    -196377)
-								  (isqrt
-								   (abs
-								    (if	(/= 117 (%f18 -14 -46574))
-									(return-from
-									    %f13
-									  (ignore-errors
-									    (flet ((%f12 (f12-1 f12-2 &optional (f12-3 740148786)
-												(f12-4 -20)
-												(f12-5 -35261))
-											 f12-3))
-									      (%f3
-									       (%f3 b (%f12 c b f13-3 f13-1 -1124))
-									       0
-									       -1003264058
-									       f13-1))))
+                                             (flet ((%f5 ()
+                                                         (funcall #'%f3
+                                                                  f13-2
+                                                                  (flet ((%f14 (f14-1 f14-2 &optional (f14-3 f13-2) (f14-4 -15))
+                                                                               160080387))
+                                                                    -196377)
+                                                                  (isqrt
+                                                                   (abs
+                                                                    (if        (/= 117 (%f18 -14 -46574))
+                                                                        (return-from
+                                                                            %f13
+                                                                          (ignore-errors
+                                                                            (flet ((%f12 (f12-1 f12-2 &optional (f12-3 740148786)
+                                                                                                (f12-4 -20)
+                                                                                                (f12-5 -35261))
+                                                                                         f12-3))
+                                                                              (%f3
+                                                                               (%f3 b (%f12 c b f13-3 f13-1 -1124))
+                                                                               0
+                                                                               -1003264058
+                                                                               f13-1))))
                                                                       (block b3 (labels ((%f15 () f13-2))  -4858377)))))
-								  (%f3 793 f13-2 f13-3 a))))
-					       f13-3)))))
-				   (* -420793
-				      (%f3 (%f3 f13-1 f13-3 f13-3 f13-2) 0 8604 f13-1)))))
-		    (lognor
-		     (progv nil nil
-		       (if (< -16 c)
-			   15867134
-			 (-
-			  (throw 'ct5
-				 (prog1 7
-				   (floor
-				    (max (%f13 -4862 -888 -53824112) a -17974 1540006)
-				    (min -74 -473379)))))))
-		     (progv nil nil (prog1 b 22 c a)))))))))
-	(catch 'ct1 (throw 'ct1 0))
-	0)))
+                                                                  (%f3 793 f13-2 f13-3 a))))
+                                               f13-3)))))
+                                   (* -420793
+                                      (%f3 (%f3 f13-1 f13-3 f13-3 f13-2) 0 8604 f13-1)))))
+                    (lognor
+                     (progv nil nil
+                       (if (< -16 c)
+                           15867134
+                         (-
+                          (throw 'ct5
+                                 (prog1 7
+                                   (floor
+                                    (max (%f13 -4862 -888 -53824112) a -17974 1540006)
+                                    (min -74 -473379)))))))
+                     (progv nil nil (prog1 b 22 c a)))))))))
+        (catch 'ct1 (throw 'ct1 0))
+        0)))
    794801 211700 -1246335)
   7)
 
@@ -6070,15 +6070,15 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (a c)
        (declare (optimize (speed 2) (space 3) (safety 2) (debug 2)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (unwind-protect
-	   0
-	 (progn (tagbody (bit #*000000111 (min 8 (max 0 a)))
-			 tag5    (flet ((%f17 (f17-1 f17-2 f17-3)
-					      (complex (numerator (go tag4)) 0)))
-				   c)
-			 tag4)
-		c))))
+           0
+         (progn (tagbody (bit #*000000111 (min 8 (max 0 a)))
+                         tag5    (flet ((%f17 (f17-1 f17-2 f17-3)
+                                              (complex (numerator (go tag4)) 0)))
+                                   c)
+                         tag4)
+                c))))
    1 2)
   0)
 
@@ -6091,10 +6091,10 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda ()
        (declare (optimize (speed 1) (space 1) (safety 3) (debug 0)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (catch 'ct4
-	 (elt '(40760)
-	      (min 0 (max 0 (let* ((v3 (* (throw 'ct4 0) 0))) 0))))))))
+         (elt '(40760)
+              (min 0 (max 0 (let* ((v3 (* (throw 'ct4 0) 0))) 0))))))))
   0)
 
 ;;; seg fault
@@ -6108,21 +6108,21 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer 99335934976 442465125376) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 1) (space 1) (safety 1) (debug 0)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (if (rationalize
-	    (labels ((%f12 (f12-1)
-			   (if c 0
-			     (bit #*101010011000011
-				  (min 14 (max 0 0))))))
-	      (if (> 0 c) 0 (%f12 0))))
-	   (progn
-	     (expt (flet ((%f18 (f18-1 f18-2 &optional (f18-3 0)
-				       (f18-4 c) (f18-5 b))
-				0))
-		     (apply #'%f18 b b 0 0 nil))
-		   0)
-	     a)
-	 0)))
+            (labels ((%f12 (f12-1)
+                           (if c 0
+                             (bit #*101010011000011
+                                  (min 14 (max 0 0))))))
+              (if (> 0 c) 0 (%f12 0))))
+           (progn
+             (expt (flet ((%f18 (f18-1 f18-2 &optional (f18-3 0)
+                                       (f18-4 c) (f18-5 b))
+                                0))
+                     (apply #'%f18 b b 0 0 nil))
+                   0)
+             a)
+         0)))
    10 1 99335934976)
   10)
 
@@ -6137,13 +6137,13 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -746719 1431737508) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 3) (space 1) (safety 2) (debug 3)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (if (logbitp 0
-		    (flet ((%f10 (f10-1 f10-2 f10-3) b))
-		      (flet ((%f4 (f4-1 f4-2)
-				  (apply #'%f10 (%f10 0 a 0) 0 c nil)))
-			(complex (%f4 0 0) 0))))
-	   0 0)))
+                    (flet ((%f10 (f10-1 f10-2 f10-3) b))
+                      (flet ((%f4 (f4-1 f4-2)
+                                  (apply #'%f10 (%f10 0 a 0) 0 c nil)))
+                        (complex (%f4 0 0) 0))))
+           0 0)))
    2378435476701 1646880 246794654)
   0)
 
@@ -6156,11 +6156,11 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda ()
        (declare (optimize (speed 3) (space 0) (safety 2)
-			  (debug 2) (compilation-speed 0)))
+                          (debug 2) (compilation-speed 0)))
        (catch 'ct2
-	 (elt '(102)
-	      (flet ((%f12 () (rem 0 -43)))
-		(multiple-value-call #'%f12 (values))))))))
+         (elt '(102)
+              (flet ((%f12 () (rem 0 -43)))
+                (multiple-value-call #'%f12 (values))))))))
   102)
 
 (deftest misc.320a
@@ -6169,14 +6169,14 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (b)
        (declare (optimize (speed 3) (space 0) (safety 2)
-			    (debug 2) (compilation-speed 0)))
+                            (debug 2) (compilation-speed 0)))
          (reduce '*
                  (list (elt '(10 20 30 40 50) b)
                        (expt (reduce #'(lambda (lmv1 lmv3) (mod lmv3 15))
-				     (vector 0 0))
-			     0)
+                                     (vector 0 0))
+                             0)
                        (rem 0 -71))
-		 )))
+                 )))
    2)
   0)
 
@@ -6190,16 +6190,16 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer 445621505781 8489194559765) c))
        (declare (ignorable a b c))
        (declare
-	(optimize (speed 1)
-		  (space 0)
-		  (safety 2)
-		  (debug 3)
-		  (compilation-speed 3)))
+        (optimize (speed 1)
+                  (space 0)
+                  (safety 2)
+                  (debug 3)
+                  (compilation-speed 3)))
        (elt '(3327764 3386241)
-	    (min 1
-		 (max 0
-		      (reduce #'(lambda (lmv6 lmv5) (mod 0 (min -86 0)))
-			      (list 0 0)))))))
+            (min 1
+                 (max 0
+                      (reduce #'(lambda (lmv6 lmv5) (mod 0 (min -86 0)))
+                              (list 0 0)))))))
    -512398 -156405 1140919327630)
   3327764)  
 
@@ -6212,10 +6212,10 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (p)
        (declare (optimize (speed 1) (space 3) (safety 2) (debug 1)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (catch 'ct2
-	 (let* ((v3 (- (if p (throw 'ct2 :good) 0))))
-	   :bad))))
+         (let* ((v3 (- (if p (throw 'ct2 :good) 0))))
+           :bad))))
    t)
   :good)
 
@@ -6226,9 +6226,9 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (a)
        (declare (optimize (speed 2) (space 2) (safety 0) (debug 3)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (logorc2 (labels ((%f14 (f14-1) a)) (%f14 0))
-		(reduce #'(lambda (lmv1 lmv2) a) (list 0 0)))))
+                (reduce #'(lambda (lmv1 lmv2) a) (list 0 0)))))
    3151096069)
   -1)
 
@@ -6236,13 +6236,13 @@ Broken at C::WT-C-INLINE-LOC.
 
 (deftest misc.323
   (let* ((tail '(:from-end t))
-	 (form
-	  `(lambda ()
-	    (declare (optimize (speed 3) (space 1) (safety 2) (debug 2)
-			       (compilation-speed 2)))
-	    (eval '(reduce #'logior
-			   (vector (reduce #'logand (vector 0 0) . ,tail) 0)
-			   . ,tail)))))
+         (form
+          `(lambda ()
+            (declare (optimize (speed 3) (space 1) (safety 2) (debug 2)
+                               (compilation-speed 2)))
+            (eval '(reduce #'logior
+                           (vector (reduce #'logand (vector 0 0) . ,tail) 0)
+                           . ,tail)))))
     (funcall (compile nil form)))
   0)
 
@@ -6254,10 +6254,10 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (a)
        (declare (optimize (speed 2) (space 2) (safety 3) (debug 2)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (labels ((%f6 (f6-1) (multiple-value-setq (a) 0)))
-	 (reduce #'(lambda (lmv4 lmv3) a)
-		 (list (%f6 0) 2)))))
+         (reduce #'(lambda (lmv4 lmv3) a)
+                 (list (%f6 0) 2)))))
    1)
   0)
 
@@ -6273,10 +6273,10 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -492625 197903) b))
        (declare (ignorable a b))
        (declare (optimize (speed 3) (space 1) (safety 3) (debug 0)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (reduce #'(lambda (lmv5 lmv6)
-		   (multiple-value-setq (a) 2443855591508))
-	       (vector b a 0 0) :from-end t)))
+                   (multiple-value-setq (a) 2443855591508))
+               (vector b a 0 0) :from-end t)))
    1 2)
   2443855591508)
 
@@ -6288,7 +6288,7 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (b)
        (declare (type (integer 155 7955) b))
        (declare (optimize (speed 3) (space 3) (safety 3) (debug 1)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (flet ((%f13 (f13-1) (shiftf b 3019))) (+ b (%f13 0)))))
    200)
   400)
@@ -6305,20 +6305,20 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -586950907 -10945000) b))
        (declare (ignorable a b))
        (declare (optimize (speed 2) (space 0) (safety 2) (debug 2)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (labels ((%f15 (f15-1)
-		      (elt #(1073730663 1073689230 596123606 1073713997
-					311527378 186184643 1073713230 1316881)
-			   (min 7
-				(max 0
-				     (catch 'ct7
-				       (reduce
-					#'min
-					(list 0 b (catch 'ct7
-						    (throw 'ct7 f15-1))
-					      0)
-					:start 1
-					:from-end t)))))))
+                      (elt #(1073730663 1073689230 596123606 1073713997
+                                        311527378 186184643 1073713230 1316881)
+                           (min 7
+                                (max 0
+                                     (catch 'ct7
+                                       (reduce
+                                        #'min
+                                        (list 0 b (catch 'ct7
+                                                    (throw 'ct7 f15-1))
+                                              0)
+                                        :start 1
+                                        :from-end t)))))))
      (%f15 0))))
    -38276611 -11001852)
   1073730663)
@@ -6331,13 +6331,13 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a b c d e)
        (declare (notinline max vector reduce))
        (declare (optimize (speed 1) (space 2) (safety 1) (debug 1)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (reduce #'(lambda (lmv6 lmv3) lmv3)
-	       (vector 0 (max 0) 0 0
-		       (catch 'ct2 (catch 'ct2 (throw 'ct2 0))) 0 e 0)
-	       
-	       :end 2
-	       :from-end t)))
+               (vector 0 (max 0) 0 0
+                       (catch 'ct2 (catch 'ct2 (throw 'ct2 0))) 0 e 0)
+               
+               :end 2
+               :from-end t)))
    68664683637 328245 881497115 -303855 311427)
   0)
     
@@ -6354,7 +6354,7 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -10 0) b))
        (declare (ignorable a b))
        (declare (optimize (speed 3) (space 1) (safety 3) (debug 0)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (if (logbitp 0 (if (or t nil) (setf a -2616861879) 0)) 0 0)))
    -4836700955 -1)
   0)
@@ -6369,10 +6369,10 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer 84176291516 98216856233) b))
        (declare (ignorable a b))
        (declare (optimize (speed 3) (space 3) (safety 0) (debug 0)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (let ((*s2* (case b ((53651 62711 29537 25305 62250) 0) (t 0))))
-	 (declare (special *s2*))
-	 (setq a -688292831))))
+         (declare (special *s2*))
+         (setq a -688292831))))
    -406606203 84436335326)
   -688292831)
 
@@ -6385,7 +6385,7 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -3683497948554 427) b))
        (declare (ignorable a b))
        (declare (optimize (speed 3) (space 0) (safety 0) (debug 3)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (lcm (block b8 (signum (return-from b8 a))))))
    -12715609319989 -582329850697)
   12715609319989)
@@ -6399,7 +6399,7 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -63500163479 -8671) b))
        (declare (ignorable a b))
        (declare (optimize (speed 3) (space 0) (safety 0) (debug 2)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (if (if (>= 0) t t) (setq b -25319949896) b)))
    0 -10000)
   -25319949896)
@@ -6413,11 +6413,11 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a b)
        (declare (notinline max logorc1 numerator rem))
        (declare (optimize (speed 3) (space 1) (safety 1) (debug 1)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (rem (progn (tagbody (numerator (logorc1 0 (go tag5)))
-			    tag5)
-		   0)
-	    (max 93 0))))
+                            tag5)
+                   0)
+            (max 93 0))))
    -801 17641908)
   0)
 
@@ -6431,10 +6431,10 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda ()
        (declare (notinline logxor))
        (declare (optimize (speed 3) (space 0) (safety 0) (debug 3)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (logxor (progn (tagbody (let* ((*s4* (progn (go 1) 0))) 0)
-			       1)
-		      0)))))
+                               1)
+                      0)))))
   0)
 
 ;;; Debugger invoked on condition of type PROGRAM-ERROR:
@@ -6449,7 +6449,7 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer 2010840649 2119165101) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 3) (space 2) (safety 0) (debug 2)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (+ (block b6 (expt (return-from b6 b) 0)))))
    3966745735633 -1123 2030094113)
   -1123)
@@ -6458,15 +6458,15 @@ Broken at C::WT-C-INLINE-LOC.
 (deftest misc.335
   (let ((c 10))
     (denominator (progn (tagbody (realpart (loop for lv4 below 2 sum (go 0)))
-				 0)
-			c)))
+                                 0)
+                        c)))
   1)
 
 (deftest misc.336
   (prog2 (progn (tagbody (- (common-lisp:handler-case (go tag2)))
-			 tag2)
-		0)
-	 0)
+                         tag2)
+                0)
+         0)
   0)
 
 ;;; Incorrect return value
@@ -6476,9 +6476,9 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda ()
        (declare (optimize (speed 2) (space 2) (safety 2) (debug 0)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (imagpart (block b8
-		   (logior (block b7 (return-from b8 225480400))))))))
+                   (logior (block b7 (return-from b8 225480400))))))))
   0)
 
 ;;; Inconsistent stack height 1 != 2
@@ -6486,11 +6486,11 @@ Broken at C::WT-C-INLINE-LOC.
   (let #+armedbear ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile
-	 nil
-	 '(lambda (c)
-	    (conjugate (block b8 (max (if c (return-from b8 0) 0))))))
-	10))
+        (compile
+         nil
+         '(lambda (c)
+            (conjugate (block b8 (max (if c (return-from b8 0) 0))))))
+        10))
   0)
 
 ;;; Inconsistent stack height 4 != 0
@@ -6502,15 +6502,15 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda ()
-	(declare (optimize (speed 1) (space 3) (safety 3) (debug 0)
-			   (compilation-speed 0)))
-	(block b1
-	  (reduce #'min
-		  (list (return-from b1 0))
-		  :end    1
-		  :start  0
-		  :from-end t
-		  ))))))
+        (declare (optimize (speed 1) (space 3) (safety 3) (debug 0)
+                           (compilation-speed 0)))
+        (block b1
+          (reduce #'min
+                  (list (return-from b1 0))
+                  :end    1
+                  :start  0
+                  :from-end t
+                  ))))))
   0)
 
 ;;;   The value INTEGER is not of type sequence.
@@ -6524,14 +6524,14 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -3229571579853 -180689150012) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 3) (space 1) (safety 0) (debug 2)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (coerce (rationalize (progn (tagbody (reduce #'logand
-						    (list b 0 (go tag3))
-						    :from-end
-						    t)
-					    tag3)
-				   0))
-	       'integer)))
+                                                    (list b 0 (go tag3))
+                                                    :from-end
+                                                    t)
+                                            tag3)
+                                   0))
+               'integer)))
    -1625211 3052955 -2091182035681)
   0)
 
@@ -6544,12 +6544,12 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (c)
-	(declare (optimize (speed 2) (space 1) (safety 1) (debug 2)
-			   (compilation-speed 3)))
-	(logeqv (block b6
-		  (logeqv (case 0
-			    ((45293 29462 60403) (return-from b6 0))
-			    (t c)))))))
+        (declare (optimize (speed 2) (space 1) (safety 1) (debug 2)
+                           (compilation-speed 3)))
+        (logeqv (block b6
+                  (logeqv (case 0
+                            ((45293 29462 60403) (return-from b6 0))
+                            (t c)))))))
     10))
   10)
 
@@ -6562,11 +6562,11 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (a)
-	(declare (optimize (speed 1) (space 0) (safety 2) (debug 1)
-			   (compilation-speed 2)))
-	(progn (tagbody (imagpart (dotimes (iv3 0 a) (go 4)))
-			4)
-	       0)))
+        (declare (optimize (speed 1) (space 0) (safety 2) (debug 1)
+                           (compilation-speed 2)))
+        (progn (tagbody (imagpart (dotimes (iv3 0 a) (go 4)))
+                        4)
+               0)))
     1))
   0)
 
@@ -6579,15 +6579,15 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda ()
-	(declare (optimize (speed 2) (space 3) (safety 2) (debug 3)
-			   (compilation-speed 2)))
-	(mask-field (byte 0 0)
-		    (block b8
-		      (reduce 'logior
-			      (list (return-from b8 0) 0 0)
-			      :end      3
-			      :start    0
-			      :from-end t)))))))
+        (declare (optimize (speed 2) (space 3) (safety 2) (debug 3)
+                           (compilation-speed 2)))
+        (mask-field (byte 0 0)
+                    (block b8
+                      (reduce 'logior
+                              (list (return-from b8 0) 0 0)
+                              :end      3
+                              :start    0
+                              :from-end t)))))))
   0)
 
 ;;; Wrong value
@@ -6598,10 +6598,10 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a)
        (declare (type (integer -3464434 12316202) a))
        (declare (optimize (speed 1) (space 0) (safety 0) (debug 0)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (progn (tagbody (gcd (expt (setf a -2612809) 0) (go 5))
-		       5)
-	      a)))
+                       5)
+              a)))
    1891348)
   -2612809)
 
@@ -6614,20 +6614,20 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (a b c)
-	(declare (type (integer -1968 -1759) a))
-	(declare (type (integer 91 2293818743282) b))
-	(declare (type (integer -843793650839 -2) c))
-	(declare (ignorable a b c))
-	(declare (optimize (speed 3) (space 2) (safety 3) (debug 0)
-			   (compilation-speed 3)))
-	(max (block b1
-	       (conjugate (dotimes (iv3 0
-					(bit #*010
-					     (min 2
-						  (max 0
-						       (return-from b1 0)))))
-			    (progn 0))))
-	     (sbit #*0001011010010 (min 12 (max 0 0))))))
+        (declare (type (integer -1968 -1759) a))
+        (declare (type (integer 91 2293818743282) b))
+        (declare (type (integer -843793650839 -2) c))
+        (declare (ignorable a b c))
+        (declare (optimize (speed 3) (space 2) (safety 3) (debug 0)
+                           (compilation-speed 3)))
+        (max (block b1
+               (conjugate (dotimes (iv3 0
+                                        (bit #*010
+                                             (min 2
+                                                  (max 0
+                                                       (return-from b1 0)))))
+                            (progn 0))))
+             (sbit #*0001011010010 (min 12 (max 0 0))))))
     -1957 523078358699 -634832888815))
   0)
 
@@ -6639,13 +6639,13 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (c)
-	(declare (type (integer -3011346550 1630587670) c))
-	(declare (optimize (speed 1) (space 1) (safety 0) (debug 3)
-			   (compilation-speed 1)))
-	(progn (tagbody (dotimes (iv2 0 (- 0 (go 7))) (progn 0))
-			7
-			(progn (mask-field (byte 0 0) 0) c))
-	       0)))
+        (declare (type (integer -3011346550 1630587670) c))
+        (declare (optimize (speed 1) (space 1) (safety 0) (debug 3)
+                           (compilation-speed 1)))
+        (progn (tagbody (dotimes (iv2 0 (- 0 (go 7))) (progn 0))
+                        7
+                        (progn (mask-field (byte 0 0) 0) c))
+               0)))
     1))
   0)
 
@@ -6656,16 +6656,16 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda ()
        (declare (optimize (speed 2) (space 2) (safety 2) (debug 2)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (bit #*011100
-	    (min 5
-		 (max 0
-		      (block b8
-			(aref #(122010971004 126555236004)
-			      (min 1
-				   (max 0
-					(progn (return-from b8 191438621)
-					       0)))))))))))
+            (min 5
+                 (max 0
+                      (block b8
+                        (aref #(122010971004 126555236004)
+                              (min 1
+                                   (max 0
+                                        (progn (return-from b8 191438621)
+                                               0)))))))))))
   0)
 
 ;;; The value 8 is not of type FUNCTION.
@@ -6675,10 +6675,10 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda ()
        (declare (optimize (speed 2) (space 2) (safety 3) (debug 2)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (complex (* (block b2
-		     (boole boole-xor (logxor (return-from b2 0)) 0)))
-		0))))
+                     (boole boole-xor (logxor (return-from b2 0)) 0)))
+                0))))
   0)
 
 ;;; Wrong result
@@ -6688,7 +6688,7 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (a c)
        (declare (optimize (speed 1) (space 0) (safety 2) (debug 3)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (max (conjugate (setq a -4178265097)) (if (> c 0) 0 a))))
    -2408319173 -4307532101272)
   -4178265097)
@@ -6699,10 +6699,10 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda ()
        (declare (optimize (speed 3) (space 1) (safety 1) (debug 1)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (mod (let ((*s7* (block b7 (logandc2 (+ (return-from b7 0)) 0))))
-	      -10)
-	    (max 26 0)))))
+              -10)
+            (max 26 0)))))
   16)
 
 ;;; Inconsistent stack height 0 != 1
@@ -6715,11 +6715,11 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda ()
-	(declare (optimize (speed 2) (space 3) (safety 1) (debug 2)
-			   (compilation-speed 3)))
-	(progn (tagbody (complex (- 0 (if (and t) 0 (go tag1))) 0)
-			tag1)
-	       0)))))
+        (declare (optimize (speed 2) (space 3) (safety 1) (debug 2)
+                           (compilation-speed 3)))
+        (progn (tagbody (complex (- 0 (if (and t) 0 (go tag1))) 0)
+                        tag1)
+               0)))))
   0)
 
 (deftest misc.351
@@ -6730,13 +6730,13 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (c)
-	(declare (type (integer -598962457711 -2902) c))
-	(declare (optimize (speed 1) (space 0) (safety 1) (debug 0)
-			   (compilation-speed 3)))
-	(lognor c
-		(block b1
-		  (loop for lv3 below 1
-			sum (if (/= 0) (return-from b1 0) c))))))
+        (declare (type (integer -598962457711 -2902) c))
+        (declare (optimize (speed 1) (space 0) (safety 1) (debug 0)
+                           (compilation-speed 3)))
+        (lognor c
+                (block b1
+                  (loop for lv3 below 1
+                        sum (if (/= 0) (return-from b1 0) c))))))
     -392248104420))
   392248104419)
 
@@ -6748,11 +6748,11 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda ()
-	(declare (optimize (speed 1) (space 3) (safety 3) (debug 3)
-			   (compilation-speed 1)))
-	(progn (tagbody (+ 0 (if (< 0) (go 5) 0))
-			5)
-	       0)))))
+        (declare (optimize (speed 1) (space 3) (safety 3) (debug 3)
+                           (compilation-speed 1)))
+        (progn (tagbody (+ 0 (if (< 0) (go 5) 0))
+                        5)
+               0)))))
   0)
 
 (deftest misc.353
@@ -6763,21 +6763,21 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (a b)
-	(declare (type (integer -8 -2) a))
-	(declare (type (integer -67321 14697029362) b))
-	(declare (optimize (speed 3) (space 1) (safety 3) (debug 1)
-			   (compilation-speed 2)))
-	(expt (block b2
-		(loop for lv1 below 3
-		      sum (prog2 b
-			      0
+        (declare (type (integer -8 -2) a))
+        (declare (type (integer -67321 14697029362) b))
+        (declare (optimize (speed 3) (space 1) (safety 3) (debug 1)
+                           (compilation-speed 2)))
+        (expt (block b2
+                (loop for lv1 below 3
+                      sum (prog2 b
+                              0
                             (expt (case 0
                                     ((-13960 -57685 -37843 -34222
-					     -14273 -40931 -2688)
+                                             -14273 -40931 -2688)
                                      (return-from b2 0))
                                     (t a))
                                   0))))
-	      0)))
+              0)))
     -7 772373806))
   1)
 
@@ -6792,11 +6792,11 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer 7473698771 3542216118742) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 3) (space 2) (safety 1) (debug 3)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (+ 0
-	  (progn (tagbody (if (if (>= b (go 3)) nil t) a c)
-			  3)
-		 0))))
+          (progn (tagbody (if (if (>= b (go 3)) nil t) a c)
+                          3)
+                 0))))
    29329060987 -4964942044116 512158612507)
   0)
 
@@ -6807,12 +6807,12 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (c)
        (declare (type (integer -1390043946499 -115168466439) c))
        (declare (optimize (speed 2) (space 0) (safety 0) (debug 1)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (+ 0
-	  (coerce (progn (tagbody (if (<= -1 (go tag1)) 0 c)
-				  tag1)
-			 0)
-		  'integer))))
+          (coerce (progn (tagbody (if (<= -1 (go tag1)) 0 c)
+                                  tag1)
+                         0)
+                  'integer))))
    -115168466439)
   0)
 
@@ -6824,12 +6824,12 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda ()
-	(declare (optimize (speed 2) (space 2) (safety 1) (debug 0)
-			   (compilation-speed 3)))
-	(let ((*s7* 0))
-	  (dotimes (iv2 0 0)
-	    (block b3
-	      (block b3 (block b3 (setq *s7* (return-from b3 0)))))))))))
+        (declare (optimize (speed 2) (space 2) (safety 1) (debug 0)
+                           (compilation-speed 3)))
+        (let ((*s7* 0))
+          (dotimes (iv2 0 0)
+            (block b3
+              (block b3 (block b3 (setq *s7* (return-from b3 0)))))))))))
   0)
 
 (deftest misc.357
@@ -6840,15 +6840,15 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (b)
-	(declare (type (integer -1750881587721 -327383867) b))
-	(declare (optimize (speed 1) (space 0) (safety 2) (debug 3)
-			   (compilation-speed 3)))
-	(denominator (block b2
-		       (let* ((*s8* 0))
-			 (setq *s8*
-			       (case 0
-				 ((-26733 -244 -26253 -50028) 0)
-				 (t (return-from b2 b)))))))))
+        (declare (type (integer -1750881587721 -327383867) b))
+        (declare (optimize (speed 1) (space 0) (safety 2) (debug 3)
+                           (compilation-speed 3)))
+        (denominator (block b2
+                       (let* ((*s8* 0))
+                         (setq *s8*
+                               (case 0
+                                 ((-26733 -244 -26253 -50028) 0)
+                                 (t (return-from b2 b)))))))))
     -1153135130306))
   1)
 
@@ -6860,15 +6860,15 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda ()
-	(declare (optimize (speed 2) (space 0) (safety 0) (debug 3)
-			   (compilation-speed 1)))
-	(rationalize (let* ((*s1* 0))
-		       (block b3
-			 (conjugate (let* ((v10
-					    (if (ldb-test (byte 0 0) 0)
-						(return-from b3 *s1*)
-					      0)))
-				      (setq *s1* (return-from b3 0)))))))))))
+        (declare (optimize (speed 2) (space 0) (safety 0) (debug 3)
+                           (compilation-speed 1)))
+        (rationalize (let* ((*s1* 0))
+                       (block b3
+                         (conjugate (let* ((v10
+                                            (if (ldb-test (byte 0 0) 0)
+                                                (return-from b3 *s1*)
+                                              0)))
+                                      (setq *s1* (return-from b3 0)))))))))))
   0)
 
 (deftest misc.359
@@ -6879,18 +6879,18 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (a b)
-	(declare (type (integer -477801566869 432060432661) a))
-	(declare (type (integer 366578392 525704751) b))
-	(declare (optimize (speed 3) (space 3) (safety 1) (debug 1)
-			   (compilation-speed 1)))
-	(max (case b
-	       ((0 -3 -2 -2 -3)
-		(progn (tagbody (loop for lv1 below 2
-				      count (let* ((*s1* a))
-					      (setq *s1* (go 4))))
-				4)
-		       0))
-	       (t 0)))))
+        (declare (type (integer -477801566869 432060432661) a))
+        (declare (type (integer 366578392 525704751) b))
+        (declare (optimize (speed 3) (space 3) (safety 1) (debug 1)
+                           (compilation-speed 1)))
+        (max (case b
+               ((0 -3 -2 -2 -3)
+                (progn (tagbody (loop for lv1 below 2
+                                      count (let* ((*s1* a))
+                                              (setq *s1* (go 4))))
+                                4)
+                       0))
+               (t 0)))))
     287358622300 400248608))
   0)
 
@@ -6914,18 +6914,18 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a b c)
        (declare (notinline boole values denominator list))
        (declare
-	(optimize (speed 2)
-		  (space 0)
-		  (safety 1)
-		  (debug 0)
-		  (compilation-speed 2)))
+        (optimize (speed 2)
+                  (space 0)
+                  (safety 1)
+                  (debug 0)
+                  (compilation-speed 2)))
        (catch 'ct6
-	 (progv
-	     '(*s8*)
-	     (list 0)
-	   (let ((v9 (ignore-errors (throw 'ct6 0))))
-	     (denominator
-	      (progv nil nil (values (boole boole-and 0 v9)))))))))
+         (progv
+             '(*s8*)
+             (list 0)
+           (let ((v9 (ignore-errors (throw 'ct6 0))))
+             (denominator
+              (progv nil nil (values (boole boole-and 0 v9)))))))))
    1 2 3)
   0)
 
@@ -6937,21 +6937,21 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (b g h)
        (declare (optimize (speed 3) (space 3) (safety 2)
-			  (debug 2) (compilation-speed 3)))
+                          (debug 2) (compilation-speed 3)))
        (catch 'ct5
-	 (unwind-protect
-	     (labels ((%f15 (f15-1 f15-2 f15-3)
+         (unwind-protect
+             (labels ((%f15 (f15-1 f15-2 f15-3)
                             (rational (throw 'ct5 0))))
-	       (%f15 0
-		     (apply #'%f15
-			    0
-			    h
-			    (progn
-			      (progv '(*s2* *s5*) (list 0 (%f15 0 g 0)) b)
-			      0)
-			    nil)
-		     0))
-	   (common-lisp:handler-case 0)))))
+               (%f15 0
+                     (apply #'%f15
+                            0
+                            h
+                            (progn
+                              (progv '(*s2* *s5*) (list 0 (%f15 0 g 0)) b)
+                              0)
+                            nil)
+                     0))
+           (common-lisp:handler-case 0)))))
    1 2 3)
   0)
 
@@ -6963,17 +6963,17 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a)
        (declare (type (integer -17286401550789 15753784105886) a))
        (declare (optimize (speed 2) (space 2) (safety 2)
-			  (debug 0) (compilation-speed 3)))
+                          (debug 0) (compilation-speed 3)))
        (if (not (>= 0 (shiftf a 110236462073)))
-	   0
-	 (elt '(30 101 13 2 10 52 89 57) (min 7 (max 0 a))))))
+           0
+         (elt '(30 101 13 2 10 52 89 57) (min 7 (max 0 a))))))
    -3647332298473)
   57)
 
 ;;; "full call to SB-KERNEL:DATA-VECTOR-REF"
 (deftest misc.364
   (dotimes (iv1 2 0)
-	   (if (> iv1 iv1)
+           (if (> iv1 iv1)
                  (svref #(2002 3778 1998 3466 530 3279 2033 521 4085)
                         (min 8 (max 0 iv1)))
                  0))
@@ -6982,21 +6982,21 @@ Broken at C::WT-C-INLINE-LOC.
 ;;; OpenMCL/darwin bug (12 May 2004)
 (deftest misc.365
   (let* ((fn1
-	  '(lambda (a b c)
-	     (declare (type (integer -2 21) a))
-	     (declare (type (integer -5651364356 4324101092) b))
-	     (declare (type (integer -30766087 28182568) c))
-	     (declare (ignorable a b c))
-	     (declare (optimize (speed 3) (space 1) (safety 3) (debug 0) (compilation-speed 1)))
-	     (coerce (logxor b -1) 'integer)))
-	 (fn2
-	  '(lambda (a b c)
-	     (declare (notinline logxor coerce))
-	     (declare (optimize (speed 3) (space 0) (safety 3) (debug 2) (compilation-speed 2)))
-	     (coerce (logxor b -1) 'integer)))
-	 (vals '(9 -328421075 -6406890))
-	 (v1 (apply (compile nil fn1) vals))
-	 (v2 (apply (compile nil fn2) vals)))
+          '(lambda (a b c)
+             (declare (type (integer -2 21) a))
+             (declare (type (integer -5651364356 4324101092) b))
+             (declare (type (integer -30766087 28182568) c))
+             (declare (ignorable a b c))
+             (declare (optimize (speed 3) (space 1) (safety 3) (debug 0) (compilation-speed 1)))
+             (coerce (logxor b -1) 'integer)))
+         (fn2
+          '(lambda (a b c)
+             (declare (notinline logxor coerce))
+             (declare (optimize (speed 3) (space 0) (safety 3) (debug 2) (compilation-speed 2)))
+             (coerce (logxor b -1) 'integer)))
+         (vals '(9 -328421075 -6406890))
+         (v1 (apply (compile nil fn1) vals))
+         (v2 (apply (compile nil fn2) vals)))
     (if (eql v1 v2) :good (list v1 v2)))
   :good)
 
@@ -7019,42 +7019,42 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -2579781276 2108461452) i))
        (declare (ignorable a b c d e f g h i))
        (declare
-	(optimize (speed 3)
-		  (space 0)
-		  (safety 0)
-		  (debug 2)
-		  (compilation-speed 2)))
+        (optimize (speed 3)
+                  (space 0)
+                  (safety 0)
+                  (debug 2)
+                  (compilation-speed 2)))
        (elt '(11751 8554 7393 1924 3418)
-	    (min 4
-		 (max 0
-		      (block b4
-			(numerator
-			 (flet ((%f5
-				 (f5-1 f5-2 f5-3
-				       &optional
-				       (f5-4 (prog1 0 (return-from b4 0) 0))
-				       (f5-5 d) (f5-6 0))
-				 0))
-			   (numerator
-			    (apply (constantly 0)
-				   0
-				   0
-				   (rationalize
-				    (unwind-protect
-					(%f5 0
-					     c
-					     (%f5 0
-						  c
-						  (%f5 0
-						       0
-						       0
-						       h
-						       (%f5 0 0 0)
-						       i)
-						  a))
-				      (ignore-errors 0)))
-				   0
-				   nil))))))))))
+            (min 4
+                 (max 0
+                      (block b4
+                        (numerator
+                         (flet ((%f5
+                                 (f5-1 f5-2 f5-3
+                                       &optional
+                                       (f5-4 (prog1 0 (return-from b4 0) 0))
+                                       (f5-5 d) (f5-6 0))
+                                 0))
+                           (numerator
+                            (apply (constantly 0)
+                                   0
+                                   0
+                                   (rationalize
+                                    (unwind-protect
+                                        (%f5 0
+                                             c
+                                             (%f5 0
+                                                  c
+                                                  (%f5 0
+                                                       0
+                                                       0
+                                                       h
+                                                       (%f5 0 0 0)
+                                                       i)
+                                                  a))
+                                      (ignore-errors 0)))
+                                   0
+                                   nil))))))))))
    21956127 524275646496 101890987 8762 -88607922426 -55959 2177 147174
    38469170)
   11751)
@@ -7070,21 +7070,21 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer 11557968 115977463) a))
        (declare (type (integer -89510 -20616) b))
        (declare (optimize (speed 2) (space 3) (safety 1)
-			  (debug 0) (compilation-speed 1)))
+                          (debug 0) (compilation-speed 1)))
        (rational
-	(flet ((%f17 (f17-1 f17-2) 0))
-	  (%f17
-	   (numerator
-	    (%f17
-	     (denominator
-	      (catch 'ct5
-		(apply (constantly 0)
-		       0
-		       (unwind-protect
-			   (catch 'ct2 (throw 'ct5 (progn (%f17 a b) a))))
-		       nil)))
-	     0))
-	   (%f17 0 a))))))
+        (flet ((%f17 (f17-1 f17-2) 0))
+          (%f17
+           (numerator
+            (%f17
+             (denominator
+              (catch 'ct5
+                (apply (constantly 0)
+                       0
+                       (unwind-protect
+                           (catch 'ct2 (throw 'ct5 (progn (%f17 a b) a))))
+                       nil)))
+             0))
+           (%f17 0 a))))))
    112475717 -25829)
   0)
 
@@ -7098,13 +7098,13 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -5 -2) a))
        (declare (ignorable a))
        (declare
-	(optimize (speed 2) (space 3) (safety 1)
-		  (debug 1) (compilation-speed 1)))
+        (optimize (speed 2) (space 3) (safety 1)
+                  (debug 1) (compilation-speed 1)))
        (if
-	   (and (not (not (> a (numerator (setf a -4)))))
-		(logbitp 0 (conjugate a)))
-	   0
-	 0)))
+           (and (not (not (> a (numerator (setf a -4)))))
+                (logbitp 0 (conjugate a)))
+           0
+         0)))
    -3)
   0)
 
@@ -7122,24 +7122,24 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -1853649832248 2196352552304) e))
        (declare (ignorable a b c d e))
        (declare (optimize (speed 1) (space 2) (safety 0) (debug 0)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (flet ((%f2 (f2-1 &optional &key (key1 0) (key2 e))
-		   (labels ((%f5 (f5-1 f5-2 f5-3 &optional &key
-				       (key1
-					(aref #(397)
-					      (min
-					       0
-					       (max
-						0
-						(let ((v7 (make-array nil :initial-element d)))
-						  (reduce
-						   #'(lambda (lmv5 lmv6) key1)
-						   (vector f2-1 0)
-						   :start 0))))))
-				       &allow-other-keys)
-				 0))
-		     0)))
-	 b)))
+                   (labels ((%f5 (f5-1 f5-2 f5-3 &optional &key
+                                       (key1
+                                        (aref #(397)
+                                              (min
+                                               0
+                                               (max
+                                                0
+                                                (let ((v7 (make-array nil :initial-element d)))
+                                                  (reduce
+                                                   #'(lambda (lmv5 lmv6) key1)
+                                                   (vector f2-1 0)
+                                                   :start 0))))))
+                                       &allow-other-keys)
+                                 0))
+                     0)))
+         b)))
    -2821485338 -35420 -7622 135 9592294022)
   -35420)
 
@@ -7155,18 +7155,18 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -4433759745778 -1) c))
        (declare (ignorable a b c))
        (declare
-	(optimize (speed 3)
-		  (space 1)
-		  (safety 0)
-		  (debug 2)
-		  (compilation-speed 3)))
+        (optimize (speed 3)
+                  (space 1)
+                  (safety 0)
+                  (debug 2)
+                  (compilation-speed 3)))
        (flet ((%f15
-	       (f15-1 f15-2
-		      &optional (f15-3 0)
-		      (f15-4 (denominator (setq c -4214677583716))) (f15-5 0)
-		      &key (key1 c) &allow-other-keys)
-	       (progv '(*s1* *s5* *s7*) (list f15-2 0 f15-1) key1)))
-	 (%f15 0 (%f15 c 0) 0))))
+               (f15-1 f15-2
+                      &optional (f15-3 0)
+                      (f15-4 (denominator (setq c -4214677583716))) (f15-5 0)
+                      &key (key1 c) &allow-other-keys)
+               (progv '(*s1* *s5* *s7*) (list f15-2 0 f15-1) key1)))
+         (%f15 0 (%f15 c 0) 0))))
    -1233959 -4 -2643533316361)
   -4214677583716)
 
@@ -7181,25 +7181,25 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (a b c)
-	(declare (type (integer -7288 10764) a))
-	(declare (type (integer -7 24) b))
-	(declare (type (integer 7951930344 11209871544) c))
-	(declare (ignorable a b c))
-	(declare (optimize (speed 2) (space 2) (safety 0) (debug 0)
-			   (compilation-speed 0)))
-	(rationalize (block b1
-		       (if b
-			   (return-from b1
-			     (progn (tagbody (return-from b1
-					       (let* ((*s1*
-						       (cons (go tag3)
-							     0)))
-						 (declare (dynamic-extent
-							   *s1*))
-						 0))
-					     tag3)
-				    0))
-			 0)))))
+        (declare (type (integer -7288 10764) a))
+        (declare (type (integer -7 24) b))
+        (declare (type (integer 7951930344 11209871544) c))
+        (declare (ignorable a b c))
+        (declare (optimize (speed 2) (space 2) (safety 0) (debug 0)
+                           (compilation-speed 0)))
+        (rationalize (block b1
+                       (if b
+                           (return-from b1
+                             (progn (tagbody (return-from b1
+                                               (let* ((*s1*
+                                                       (cons (go tag3)
+                                                             0)))
+                                                 (declare (dynamic-extent
+                                                           *s1*))
+                                                 0))
+                                             tag3)
+                                    0))
+                         0)))))
     -5566 9 10557204445))
   0)
 
@@ -7214,15 +7214,15 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -71651668566 4932238952300) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 3) (space 2) (safety 1) (debug 3)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (sbit #*0
-	     (min 0
-		  (max 0
-		       (multiple-value-bind (v1)
-			   (cons c
-				 (truncate 0
-					   (min -42 0)))
-			 (cdr v1)))))))
+             (min 0
+                  (max 0
+                       (multiple-value-bind (v1)
+                           (cons c
+                                 (truncate 0
+                                           (min -42 0)))
+                         (cdr v1)))))))
    -657195 -10801112339 -4291316763)
   0)
 
@@ -7235,21 +7235,21 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (a b c)
-	(declare (type (integer 0 179061) a))
-	(declare (type (integer -15793 42532) b))
-	(declare (type (integer -2 0) c))
-	(declare (ignorable a b c))
-	(declare (optimize (speed 3) (space 0) (safety 2) (debug 1)
-			   (compilation-speed 0)))
-	(reduce 'logxor
-		(list 0 b 0 0
-		      a 0 0 0
-		      (block b6
-			(let* ((v6 (cons (if c (return-from b6 0) 0) b)))
-			  0))
-		      0)
-		:end 6
-		:from-end t)))
+        (declare (type (integer 0 179061) a))
+        (declare (type (integer -15793 42532) b))
+        (declare (type (integer -2 0) c))
+        (declare (ignorable a b c))
+        (declare (optimize (speed 3) (space 0) (safety 2) (debug 1)
+                           (compilation-speed 0)))
+        (reduce 'logxor
+                (list 0 b 0 0
+                      a 0 0 0
+                      (block b6
+                        (let* ((v6 (cons (if c (return-from b6 0) 0) b)))
+                          0))
+                      0)
+                :end 6
+                :from-end t)))
     141814 1445 -2))
   142419)
 
@@ -7261,21 +7261,21 @@ Broken at C::WT-C-INLINE-LOC.
     (compile
      nil
      '(lambda (a b)
-	(declare (type (integer -99 4) a))
-	(declare (type (integer 35621436 36172433) b))
-	(declare (ignorable a b))
-	(declare (optimize (speed 2) (space 1) (safety 3) (debug 1)
-			   (compilation-speed 0)))
-	(lognand (let ((v6 0)) (declare (dynamic-extent v6)) v6)
-		 (block b6
-		   (let* ((v10
-			   (cons (expt (case 0
-					 ((30207) (return-from b6 0))
-					 (t b))
-				       0)
-				 0)))
-		     (declare (dynamic-extent v10))
-		     0)))))
+        (declare (type (integer -99 4) a))
+        (declare (type (integer 35621436 36172433) b))
+        (declare (ignorable a b))
+        (declare (optimize (speed 2) (space 1) (safety 3) (debug 1)
+                           (compilation-speed 0)))
+        (lognand (let ((v6 0)) (declare (dynamic-extent v6)) v6)
+                 (block b6
+                   (let* ((v10
+                           (cons (expt (case 0
+                                         ((30207) (return-from b6 0))
+                                         (t b))
+                                       0)
+                                 0)))
+                     (declare (dynamic-extent v10))
+                     0)))))
     -57 35725118))
   -1)
 
@@ -7294,16 +7294,16 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer 1627646459 3124243119) f))
        (declare (ignorable a b c d e f))
        (declare (optimize (speed 3) (space 0) (safety 3) (debug 2)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (let* ((*s6* (make-array nil :initial-element 0 :adjustable t)))
-	 (if (logbitp 0
-		      (denominator (prog2 (truncate (dotimes (iv3 0 0)
-						      (progn 0)))
-				       (multiple-value-bind (*s7*)
-					   (cons d 0)
-					 (cdr *s7*)))))
-	     0
-	   0))))
+         (if (logbitp 0
+                      (denominator (prog2 (truncate (dotimes (iv3 0 0)
+                                                      (progn 0)))
+                                       (multiple-value-bind (*s7*)
+                                           (cons d 0)
+                                         (cdr *s7*)))))
+             0
+           0))))
    12851164 182468232812 -2243976802 309299185674 2538150 1855615980)
   0)
 
@@ -7315,13 +7315,13 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda ()
        (declare (optimize (speed 1) (space 1) (safety 2) (debug 1)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (dotimes (iv4 3
-		     (multiple-value-bind (*s6*) (cons 0 0)
-		       (progn (cdr *s6*) 0)))
-	 (floor (rational (let ((*s2*
-				 (rational (common-lisp:handler-case 0))))
-			    0)))))))
+                     (multiple-value-bind (*s6*) (cons 0 0)
+                       (progn (cdr *s6*) 0)))
+         (floor (rational (let ((*s2*
+                                 (rational (common-lisp:handler-case 0))))
+                            0)))))))
   0)
 
 (deftest misc.377
@@ -7331,16 +7331,16 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (e) ; (a b c d e)
        (declare (type (integer -46778182694 512) e))
        (declare (optimize (speed 3) (space 3) (safety 2) (debug 2)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (if (block b3
-	     (numerator (progn (tagbody (truncate (dotimes (iv3 0 0)
-						    (block b3 0)))
-					(multiple-value-bind (*s5*)
-					    (cons 0 e)
-					  (rationalize (cdr *s5*))))
-			       0)))
-	   0
-	 0)))
+             (numerator (progn (tagbody (truncate (dotimes (iv3 0 0)
+                                                    (block b3 0)))
+                                        (multiple-value-bind (*s5*)
+                                            (cons 0 e)
+                                          (rationalize (cdr *s5*))))
+                               0)))
+           0
+         0)))
    10)
   0)
 
@@ -7350,10 +7350,10 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (c)
        (declare (optimize (speed 1) (space 0) (safety 1) (debug 3)
-			  (compilation-speed 2)))
+                          (compilation-speed 2)))
        (dotimes (iv4 3 0)
-	 (restart-case (round (multiple-value-bind (*s6*) (cons c 0)
-				(car *s6*)))))))
+         (restart-case (round (multiple-value-bind (*s6*) (cons c 0)
+                                (car *s6*)))))))
    1)
   0)
 
@@ -7363,7 +7363,7 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda ()
        (declare (optimize (speed 2) (space 0) (safety 2) (debug 2)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (values (floor 0) (multiple-value-bind (v3) (cons 0 0) (car v3))))))
   0 0)
 
@@ -7377,20 +7377,20 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a)
        (declare (type (integer -1397457 1846252) a))
        (declare (optimize (speed 2) (space 2) (safety 1)
-			  (debug 3) (compilation-speed 3)))
+                          (debug 3) (compilation-speed 3)))
        (let ((v9 (make-array nil :initial-element 0)))
-	 (declare (dynamic-extent v9))
-	 (block b8
-	   (let ((*s1* 0))
-	     (let ((*s4* (let
-			     ((*s1*
-			       (return-from b8
-				 (rational
-				  (setf (aref v9)
-					(deposit-field -5
-						       (byte 20 30) a))))))
-			   0)))
-	       (let ((*s8* (cons 0 0))) 0)))))))
+         (declare (dynamic-extent v9))
+         (block b8
+           (let ((*s1* 0))
+             (let ((*s4* (let
+                             ((*s1*
+                               (return-from b8
+                                 (rational
+                                  (setf (aref v9)
+                                        (deposit-field -5
+                                                       (byte 20 30) a))))))
+                           0)))
+               (let ((*s8* (cons 0 0))) 0)))))))
    399997)
   1125898833500797)
 
@@ -7405,24 +7405,24 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a)
        (declare (type (integer -1397457 1846252) a))
        (declare (optimize (speed 2) (space 2) (safety 1)
-			  (debug 3) (compilation-speed 3)))
+                          (debug 3) (compilation-speed 3)))
        (let ((v9 (make-array nil :initial-element 0)))
-	 (declare (dynamic-extent v9))
-	 (block b8
-	   (let ((s1 0))
-	     (let ((s4 (let
-			     ((s1
-			       (return-from b8
-				 (rational
-				  (setf (aref v9)
-					(deposit-field -5
-						       (byte 20 30) a))))))
-			   0)))
-	       (let ((s8 (cons 0 0))) 0)))))))
+         (declare (dynamic-extent v9))
+         (block b8
+           (let ((s1 0))
+             (let ((s4 (let
+                             ((s1
+                               (return-from b8
+                                 (rational
+                                  (setf (aref v9)
+                                        (deposit-field -5
+                                                       (byte 20 30) a))))))
+                           0)))
+               (let ((s8 (cons 0 0))) 0)))))))
    399997)
   1125898833500797)
 
-			   
+                           
 ;;; gcl (31 May 2004, cvs head)
 ;;; Error in SYSTEM:ASET [or a callee]: Expected a FIXNUM
 
@@ -7433,22 +7433,22 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (b)
        (declare (type (integer -65822755520 31689335872) b))
        (declare (optimize (speed 2) (space 2) (safety 3)
-			  (debug 0) (compilation-speed 1)))
+                          (debug 0) (compilation-speed 1)))
        (let ((s8 (make-array nil :initial-element
-			     (catch 'ct4
-			       (complex
-				(dotimes (iv1 1 0)
-				  (rational (throw 'ct4 b)))
-				0)))))
-	 (elt '(13423701584)
-	      (min 0
-		   (max 0
-			(rational
-			 (let ((s3 (make-array nil :initial-element 0)))
-			   (if (ldb-test (byte 0 0)
-					 (shiftf (aref s8)
-						 (aref s8)))
-			       0 0)))))))))
+                             (catch 'ct4
+                               (complex
+                                (dotimes (iv1 1 0)
+                                  (rational (throw 'ct4 b)))
+                                0)))))
+         (elt '(13423701584)
+              (min 0
+                   (max 0
+                        (rational
+                         (let ((s3 (make-array nil :initial-element 0)))
+                           (if (ldb-test (byte 0 0)
+                                         (shiftf (aref s8)
+                                                 (aref s8)))
+                               0 0)))))))))
    -38169486910)
   13423701584)
 
@@ -7465,12 +7465,12 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a b c))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (speed 3) (space 1) (safety 0) (debug 3) (compilation-speed 2)))
+        (optimize (speed 3) (space 1) (safety 0) (debug 3) (compilation-speed 2)))
        (logorc2
-	(let* ((*s3* (cons 0 a)))
-	  (declare (dynamic-extent *s3*))
-	  (shiftf c -124766263))
-	411942919)))
+        (let* ((*s3* (cons 0 a)))
+          (declare (dynamic-extent *s3*))
+          (shiftf c -124766263))
+        411942919)))
    79909316946 -347537841 -210771963)
   -142606339)
 
@@ -7484,9 +7484,9 @@ Broken at C::WT-C-INLINE-LOC.
       nil
       (funcall
        (compile
-	nil
-	'(lambda ()
-	   (catch 'ct8 (throw 'ct8 (catch 'ct7 0)))))))
+        nil
+        '(lambda ()
+           (catch 'ct8 (throw 'ct8 (catch 'ct7 0)))))))
   0)
 
 (deftest misc.385
@@ -7528,7 +7528,7 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -13 5553) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 2) (space 1) (safety 0) (debug 0)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (dotimes (iv4 2 0) (multiple-value-setq (c) 4212))))
    8959928 366395687 5048)
   0)
@@ -7545,7 +7545,7 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -24815 15089) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 2) (space 1) (safety 2) (debug 1)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (multiple-value-setq (c) 8015)))
    -49966124671 -68547159 12944)
   8015)
@@ -7561,11 +7561,11 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -4 2001960914944) c))
        (declare (ignorable a b c))
        (declare (optimize (speed 2) (space 0) (safety 1) (debug 0)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (labels ((%f12 (f12-1 &optional (f12-2 (setq b 63838027)) &key
-			     (key1 0) (key2 0))
-		      b))
-	 (boole boole-orc2 b (let ((*s3* (%f12 0))) -14)))))
+                             (key1 0) (key2 0))
+                      b))
+         (boole boole-orc2 b (let ((*s3* (%f12 0))) -14)))))
    -173 1028908375 1289968133290)
   1028908383)
 
@@ -7578,10 +7578,10 @@ Broken at C::WT-C-INLINE-LOC.
     nil
     '(lambda (a b)
        (declare (optimize (speed 2) (space 0) (safety 0)
-			  (debug 1) (compilation-speed 3)))
+                          (debug 1) (compilation-speed 3)))
        (let* ((v5 (cons b b)))
-	 (declare (dynamic-extent v5))
-	 a)))
+         (declare (dynamic-extent v5))
+         a)))
    'x 'y)
   x)
 
@@ -7596,7 +7596,7 @@ Broken at C::WT-C-INLINE-LOC.
     '(lambda (a b)
        (declare (notinline /=))
        (declare (optimize (speed 1) (space 2) (safety 1)
-			  (debug 3) (compilation-speed 3)))
+                          (debug 3) (compilation-speed 3)))
        (prog2 0 0 (loop for lv4 below 3 count (or b (/= b))))))
    1 2)
   0)
@@ -7616,14 +7616,14 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a b))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (debug 3) (speed 2) (compilation-speed 0) (space 3)
-		  (safety 3)))
+        (optimize (debug 3) (speed 2) (compilation-speed 0) (space 3)
+                  (safety 3)))
        (labels ((%f7
-		 (f7-1 f7-2 f7-3
-		       &optional (f7-4 (lcm (if (>= b a) 0 a))) (f7-5 0)
-		       &key)
-		 0))
-	 (progn (%f7 (%f7 b a a b) b 0) 0))))
+                 (f7-1 f7-2 f7-3
+                       &optional (f7-4 (lcm (if (>= b a) 0 a))) (f7-5 0)
+                       &key)
+                 0))
+         (progn (%f7 (%f7 b a a b) b 0) 0))))
    447930 66120263479)
   0)
 
@@ -7637,10 +7637,10 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a b))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (safety 3) (space 1) (debug 2) (compilation-speed 3)
-		  (speed 3)))
+        (optimize (safety 3) (space 1) (debug 2) (compilation-speed 3)
+                  (speed 3)))
        (dotimes (iv1 2 0)
-	 (case (min -3693810 a iv1) ((26 -4) (ldb (byte 13 0) a)) (t b)))))
+         (case (min -3693810 a iv1) ((26 -4) (ldb (byte 13 0) a)) (t b)))))
    56 -1579426331)
   0)
 
@@ -7657,8 +7657,8 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a b))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (speed 2) (space 0) (debug 3) (compilation-speed 0)
-		  (safety 3)))
+        (optimize (speed 2) (space 0) (debug 3) (compilation-speed 0)
+                  (safety 3)))
        (logeqv 0 b)))
    -34528661 843541658238)
   -843541658239)
@@ -7673,8 +7673,8 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a b))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (debug 3) (speed 3) (space 2) (safety 0)
-		  (compilation-speed 3)))
+        (optimize (debug 3) (speed 3) (space 2) (safety 0)
+                  (compilation-speed 3)))
        (+ (shiftf a 8496033756259) (min 0 b))))
    8369430915156 -369704905)
   8369061210251)
@@ -7690,8 +7690,8 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a b))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (debug 0) (space 2) (speed 0) (safety 3)
-		  (compilation-speed 2)))
+        (optimize (debug 0) (space 2) (speed 0) (safety 3)
+                  (compilation-speed 2)))
        (apply (constantly 0) 0 (list (signum b)))))
    -1365 -46960621335)
   0)
@@ -7708,13 +7708,13 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a b))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (speed 0) (safety 3) (compilation-speed 1) (space 0)
-		  (debug 2)))
+        (optimize (speed 0) (safety 3) (compilation-speed 1) (space 0)
+                  (debug 2)))
        (labels ((%f4 (f4-1 f4-2 &key)
-		     (flet ((%f7 (f7-1 f7-2 f7-3 &optional &key (key1 a))
-				 (progv '(*s1* *s6* *s2*) (list a 0 key1) f4-1)))
-		       f4-2)))
-	 (apply #'%f4 (list a 0)))))
+                     (flet ((%f7 (f7-1 f7-2 f7-3 &optional &key (key1 a))
+                                 (progv '(*s1* *s6* *s2*) (list a 0 key1) f4-1)))
+                       f4-2)))
+         (apply #'%f4 (list a 0)))))
    -156882103995 -38)
   0)
 
@@ -7732,13 +7732,13 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a b))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (safety 3) (compilation-speed 1) (debug 1) (speed 0)
-		  (space 0)))
+        (optimize (safety 3) (compilation-speed 1) (debug 1) (speed 0)
+                  (space 0)))
        (conjugate
-	(if t
-	    (labels ((%f12 (f12-1 f12-2 f12-3)
-			   0))
-	      (%f12 0 b 0))
+        (if t
+            (labels ((%f12 (f12-1 f12-2 f12-3)
+                           0))
+              (%f12 0 b 0))
           (dotimes (iv1 2 0) (catch 'ct2 a))))))
    4430 3476635674)
   0)
@@ -7754,8 +7754,8 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (space 0) (debug 0) (speed 3) (compilation-speed 2)
-		  (safety 3)))
+        (optimize (space 0) (debug 0) (speed 3) (compilation-speed 2)
+                  (safety 3)))
        (catch 'ct8 (logior a -457019 -1))))
    0)
   -1)
@@ -7770,8 +7770,8 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (debug 0) (safety 0) (space 0) (compilation-speed 3)
-		  (speed 3)))
+        (optimize (debug 0) (safety 0) (space 0) (compilation-speed 3)
+                  (speed 3)))
        (case (lognand 775 a) ((-7) 0) (t 4))))
    4182)
   0)
@@ -7786,8 +7786,8 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (compilation-speed 2) (space 1) (safety 2) (speed 1)
-		  (debug 2)))
+        (optimize (compilation-speed 2) (space 1) (safety 2) (speed 1)
+                  (debug 2)))
        (logeqv (setq a 220250126156) 0)))
    157474319912)
   -220250126157)
@@ -7802,15 +7802,15 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (space 1) (safety 3) (debug 1) (compilation-speed 0)
-		  (speed 0)))
+        (optimize (space 1) (safety 3) (debug 1) (compilation-speed 0)
+                  (speed 0)))
        (dotimes (iv3 2 0)
-	 (progn
-	   (apply (constantly 0)
-		  (list
-		   (let* ((*s1* 0))
-		     *s1*)))
-	   0))))
+         (progn
+           (apply (constantly 0)
+                  (list
+                   (let* ((*s1* 0))
+                     *s1*)))
+           0))))
    10)
   0)
 
@@ -7824,8 +7824,8 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (ignorable a))
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare
-	(optimize (space 3) (safety 1) (compilation-speed 1) (speed 0)
-		  (debug 0)))
+        (optimize (space 3) (safety 1) (compilation-speed 1) (speed 0)
+                  (debug 0)))
        (dotimes (iv1 0 a) (loop for lv4 below 3 sum (catch 'ct8 0)))))
    -1648)
   -1648)
@@ -7837,69 +7837,69 @@ Broken at C::WT-C-INLINE-LOC.
   (let #+armedbear ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile
-	 nil
-	 '(lambda (a b)
-	    (declare (type (integer -77007578505 7500480849) a))
-	    (declare (type (integer 211464 53140083) b))
-	    (declare (ignorable a b))
-	    (declare (optimize (compilation-speed 0) (speed 2) (debug 3)
-			       (safety 1) (space 3)))
-	    (progn (tagbody (let ((v3
-				   (cons (case a
-					   ((13 5 -9 2 -13) (go tag8))
-					   (t 0))
-					 0)))
-			      0)
-			    tag8)
-		   a)))
-	-1068524571 20786758))
+        (compile
+         nil
+         '(lambda (a b)
+            (declare (type (integer -77007578505 7500480849) a))
+            (declare (type (integer 211464 53140083) b))
+            (declare (ignorable a b))
+            (declare (optimize (compilation-speed 0) (speed 2) (debug 3)
+                               (safety 1) (space 3)))
+            (progn (tagbody (let ((v3
+                                   (cons (case a
+                                           ((13 5 -9 2 -13) (go tag8))
+                                           (t 0))
+                                         0)))
+                              0)
+                            tag8)
+                   a)))
+        -1068524571 20786758))
   -1068524571)
 
 (deftest misc.405
   (let #+armedbear ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile
-	 nil
-	 '(lambda (a b)
-	    (declare (type (integer -82196 13938) a))
-	    (declare (type (integer -44152792 -15846835) b))
-	    (declare (ignorable a b))
-	    (declare (optimize (compilation-speed 3) (safety 2) (speed 3)
-			       (space 0) (debug 0)))
-	    (block b5
-	      (let ((*s7*
-		     (cons (if (position (if (eql 0 0)
-					     (return-from b5
-					       (return-from b5
-						 (let ((*s6* (cons b a))) 0)))
-					   b)
-					 #(23)
-					 :test-not
-					 'eql)
-			       0
-			     0)
-			   b)))
-		0))))
-	-10305 -26691848))
+        (compile
+         nil
+         '(lambda (a b)
+            (declare (type (integer -82196 13938) a))
+            (declare (type (integer -44152792 -15846835) b))
+            (declare (ignorable a b))
+            (declare (optimize (compilation-speed 3) (safety 2) (speed 3)
+                               (space 0) (debug 0)))
+            (block b5
+              (let ((*s7*
+                     (cons (if (position (if (eql 0 0)
+                                             (return-from b5
+                                               (return-from b5
+                                                 (let ((*s6* (cons b a))) 0)))
+                                           b)
+                                         #(23)
+                                         :test-not
+                                         'eql)
+                               0
+                             0)
+                           b)))
+                0))))
+        -10305 -26691848))
   0)
 
 (deftest misc.406
   (let #+armedbear ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile
-	 nil
-	 '(lambda (a)
-	    (declare (type (integer -1 1412366903315) a))
-	    (declare (ignorable a))
-	    (declare (optimize (debug 3) (safety 3) (space 3)
-			       (compilation-speed 1) (speed 2)))
-	    (progn (tagbody (case 0 ((1 0 4) (values (go 1) 0)) (t 0))
-			    1)
-		   0)))
-	251841706892))
+        (compile
+         nil
+         '(lambda (a)
+            (declare (type (integer -1 1412366903315) a))
+            (declare (ignorable a))
+            (declare (optimize (debug 3) (safety 3) (space 3)
+                               (compilation-speed 1) (speed 2)))
+            (progn (tagbody (case 0 ((1 0 4) (values (go 1) 0)) (t 0))
+                            1)
+                   0)))
+        251841706892))
   0)
 
 ;;; Incorrect binding
@@ -7911,7 +7911,7 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -324 175) a))
        (declare (ignorable a))
        (declare (optimize (safety 0) (space 0) (speed 2) (debug 0)
-			  (compilation-speed 0)))
+                          (compilation-speed 0)))
        (multiple-value-bind (v5) (cons (truncate 0) a) (cdr v5))))
    -279)
   -279)
@@ -7922,19 +7922,19 @@ Broken at C::WT-C-INLINE-LOC.
   (let #+armedbear ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile
-	 nil
-	 '(lambda (a)
-	    (declare (type (integer 0 0) a))
-	    (declare (ignorable a))
-	    (declare (optimize (compilation-speed 0) (safety 3) (speed 0)
-			       (debug 1) (space 0)))
-	    (progn (tagbody (dotimes (iv4 0
-					  (let ((v5 (cons 0 (if (go 3) 0 0)))) 0))
-			      (progn 0))
-			    3)
-		   (ash 0 (min 16 0)))))
-	0))
+        (compile
+         nil
+         '(lambda (a)
+            (declare (type (integer 0 0) a))
+            (declare (ignorable a))
+            (declare (optimize (compilation-speed 0) (safety 3) (speed 0)
+                               (debug 1) (space 0)))
+            (progn (tagbody (dotimes (iv4 0
+                                          (let ((v5 (cons 0 (if (go 3) 0 0)))) 0))
+                              (progn 0))
+                            3)
+                   (ash 0 (min 16 0)))))
+        0))
   0)
 
 ;;; ecl (07 Oct 2004)
@@ -7949,17 +7949,17 @@ Broken at C::WT-C-INLINE-LOC.
        (declare (type (integer -5967075 -235) b))
        (declare (ignorable a b))
        (declare (optimize (speed 2) (safety 1) (space 2)
-			  (compilation-speed 3) (debug 0)))
+                          (compilation-speed 3) (debug 0)))
        (labels ((%f2 (f2-1 f2-2 &optional (f2-3 0) (f2-4 a)) 0))
-	 (apply #'%f2 a
-		(%f2 b
-		     (flet ((%f12 (f12-1 f12-2 f12-3 &optional &key
-					 (key1 0) (key2 0))
-				  (%f2 0 0)))
-		       (reduce #'(lambda (lmv2 lmv1) (%f2 0 0 a))
-			       (list 0 0 a 0 0 0 a) :end 7))
-		     0)
-		nil))))
+         (apply #'%f2 a
+                (%f2 b
+                     (flet ((%f12 (f12-1 f12-2 f12-3 &optional &key
+                                         (key1 0) (key2 0))
+                                  (%f2 0 0)))
+                       (reduce #'(lambda (lmv2 lmv1) (%f2 0 0 a))
+                               (list 0 0 a 0 0 0 a) :end 7))
+                     0)
+                nil))))
    -7465 -3590953)
   0)
 
@@ -7974,11 +7974,11 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda ()
        (declare (optimize (safety 0) (space 1) (compilation-speed 0)
-			  (speed 2) (debug 0)))
+                          (speed 2) (debug 0)))
        (let ((*s2* 0))
-	 (declare (special *s2*))
-	 (reduce #'(lambda (lmv1 lmv2) *s2*) (vector 0) :end 1
-		 :start 0)))))
+         (declare (special *s2*))
+         (reduce #'(lambda (lmv1 lmv2) *s2*) (vector 0) :end 1
+                 :start 0)))))
   0)
 
 ;;; THROW: The catch CT2 is undefined.
@@ -7988,7 +7988,7 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda ()
        (declare (optimize (safety 2) (debug 0) (space 0)
-			  (compilation-speed 2) (speed 0)))
+                          (compilation-speed 2) (speed 0)))
        (catch 'ct2 (values 0 (throw 'ct2 0)))
        0)))
   0)
@@ -8004,11 +8004,11 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -215956065 223815244) b))
        (declare (ignorable a b))
        (declare (optimize (compilation-speed 2) (space 3) (debug 2)
-			  (safety 1) (speed 3)))
+                          (safety 1) (speed 3)))
        (complex (flet ((%f15 (f15-1 &optional &key (key1 0)) 0))
-		  (reduce #'(lambda (lmv6 lmv1) (%f15 lmv1))
-			  (list b 0)))
-		0)))
+                  (reduce #'(lambda (lmv6 lmv1) (%f15 lmv1))
+                          (list b 0)))
+                0)))
    -21802 -105983932)
   0)
 
@@ -8022,22 +8022,22 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer 2777758072 5675328792) b))
        (declare (ignorable a b))
        (declare (optimize (compilation-speed 3) (space 3) (debug 3)
-			  (safety 0) (speed 1)))
+                          (safety 0) (speed 1)))
        (labels ((%f8 (f8-1 f8-2 &optional &key (key1 0))
-		     (let* ((v2 (ash f8-1 (min 63 a)))) 0)))
-	 (ignore-errors
-	   (logand (apply #'%f8 0 b nil)
-		   (unwind-protect
-		       0
-		     (ash (%f8 0 0)
-			  (min 48
-			       (flet
-				   ((%f12
-				     (f12-1 f12-2 &optional &key
-					    (key1 a) (key2 b)
-					    &allow-other-keys)
-				     0))
-				 b)))))))))
+                     (let* ((v2 (ash f8-1 (min 63 a)))) 0)))
+         (ignore-errors
+           (logand (apply #'%f8 0 b nil)
+                   (unwind-protect
+                       0
+                     (ash (%f8 0 0)
+                          (min 48
+                               (flet
+                                   ((%f12
+                                     (f12-1 f12-2 &optional &key
+                                            (key1 a) (key2 b)
+                                            &allow-other-keys)
+                                     0))
+                                 b)))))))))
    -4794909 4095236669)
   0)
 
@@ -8050,10 +8050,10 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (c)
        (declare (optimize (speed 1) (space 3) (compilation-speed 3)
-			  (debug 3) (safety 1)))
+                          (debug 3) (safety 1)))
        (if (setq c 2)
            (case (shiftf c 1) ((2) c) (t 0))
-	 0)))
+         0)))
    0)
   1)
 
@@ -8065,10 +8065,10 @@ Broken at C::WT-MAKE-CLOSURE.
   (funcall
    #'(lambda (a c)
        (catch 'ct2
-	 (flet ((%f17 (&optional x &key)
-			(let* ((y (cons (dotimes (iv3 0)) 0)))
-			  a)))
-	   c)))
+         (flet ((%f17 (&optional x &key)
+                        (let* ((y (cons (dotimes (iv3 0)) 0)))
+                          a)))
+           c)))
    :bad :good)
   :good)
 
@@ -8080,8 +8080,8 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (b)
        (declare (type (integer 12052668 22838464) b))
        (declare (ignorable a b c))
-       (declare	(optimize (compilation-speed 3) (debug 2) (speed 1) (space 0)
-			  (safety 3)))
+       (declare        (optimize (compilation-speed 3) (debug 2) (speed 1) (space 0)
+                          (safety 3)))
        (min (mask-field (byte 2 18) b) 89582)))
    13891743)
   0)
@@ -8094,7 +8094,7 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (c)
      (declare (type (integer 995 22565094) c))
      (declare (optimize (safety 2) (debug 1) (space 0) (compilation-speed 2)
-			(speed 1)))
+                        (speed 1)))
      (numerator (floor (numerator (deposit-field 0 (byte 0 0) c))))))
    17190042)
   17190042)
@@ -8109,7 +8109,7 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer 1670923021 2536883848) a))
        (declare (ignorable a b c))
        (declare (optimize (safety 3) (compilation-speed 3) (speed 1) (debug 1)
-			  (space 2)))
+                          (space 2)))
        (if (logior (setf c 67) 0 a) a 0)))
    2161404325 -1968715305 83)
   2161404325)
@@ -8124,7 +8124,7 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda ()
        (declare (optimize (safety 3) (speed 3) (compilation-speed 1) (space 1)
-			  (debug 2)))
+                          (debug 2)))
        (boole boole-set 0 (case 2 ((0) 0) (t (numerator (catch 'ct2 0))))))))
   -1)
 
@@ -8141,16 +8141,16 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer 5721249203 36508717226) b))
        (declare (ignorable a b))
        (declare
-	(optimize (space 3) (compilation-speed 2) (safety 3) (speed 0)
-		  (debug 2)))
+        (optimize (space 3) (compilation-speed 2) (safety 3) (speed 0)
+                  (debug 2)))
        (flet ((%f14 (f14-1 f14-2 &key)
-		    (prog2 0 f14-2 (min (catch 'ct4 (floor 120378948 (max 22 a)))))))
-	 (reduce #'(lambda (lmv6 lmv5) (%f14 0 0))
-		 (vector 0 0 0)
-		 :start
-		 0
-		 :from-end
-		 t))))
+                    (prog2 0 f14-2 (min (catch 'ct4 (floor 120378948 (max 22 a)))))))
+         (reduce #'(lambda (lmv6 lmv5) (%f14 0 0))
+                 (vector 0 0 0)
+                 :start
+                 0
+                 :from-end
+                 t))))
    6313133774518 10840050742)
   0)
 
@@ -8161,7 +8161,7 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (a)
        (declare (optimize (debug 0) (space 2) (compilation-speed 1) (safety 0)
-			  (speed 0)))
+                          (speed 0)))
        (imagpart (block b8 (logior (catch 'ct7 (return-from b8 a)) -1123785)))))
    -1021899)
   0)
@@ -8174,7 +8174,7 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (a)
        (declare (type (integer -13 -3) a))
        (declare (optimize (space 2) (debug 1) (safety 1) (speed 2)
-			  (compilation-speed 1)))
+                          (compilation-speed 1)))
        (logorc2 (sbit #*0010000011101010 (min 15 (max 0 0))) a)))
    -7)
   6)
@@ -8208,7 +8208,7 @@ Broken at C::WT-MAKE-CLOSURE.
      (declare (ignorable a b))
      #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
      (declare (optimize (safety 3) (debug 1) (compilation-speed 1) (space 3)
-			(speed 3)))
+                        (speed 3)))
      (catch 'ct4
        (logandc1 a
                  (ignore-errors
@@ -8226,7 +8226,7 @@ Broken at C::WT-MAKE-CLOSURE.
      (declare (type (integer -394128 80657) a))
      (declare (type (integer 13729431 14852298) b))
      (declare (optimize (space 2) (compilation-speed 1) (safety 0) (debug 0)
-			(speed 2)))
+                        (speed 2)))
      (logorc1 (* a (logior b 0)) 0)))
    -80334 14527920)
   1167085925279)
@@ -8239,7 +8239,7 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda ()
        #+cmu (declare (optimize (extensions:inhibit-warnings 3)))
        (declare (optimize (safety 3) (space 3) (speed 3) (debug 1)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (dotimes (iv3 1 0) (logxor iv3 1285775)))))
   0)
 
@@ -8254,12 +8254,12 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (a)
        (declare (notinline list reduce logior))
        (declare (optimize (safety 2) (compilation-speed 1)
-			  ; #+sbcl (sb-c:insert-step-conditions 0)
-			  (speed 3) (space 2) (debug 2)))
+                          ; #+sbcl (sb-c:insert-step-conditions 0)
+                          (speed 3) (space 2) (debug 2)))
        (logior
-	(let* ((v5 (reduce #'+ (list 0 a))))
-	  (declare (dynamic-extent v5))
-	  (1- v5)))))
+        (let* ((v5 (reduce #'+ (list 0 a))))
+          (declare (dynamic-extent v5))
+          (1- v5)))))
    17)
   16)
 
@@ -8269,11 +8269,11 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda ()
        (declare (notinline -))
-       (declare	(optimize (compilation-speed 0) (safety 1) (speed 0)
-			  (debug 2) (space 3)))
+       (declare        (optimize (compilation-speed 0) (safety 1) (speed 0)
+                          (debug 2) (space 3)))
        (let ((v10 (catch 'ct2 1)))
-	 (declare (dynamic-extent v10))
-	 (- v10)))))
+         (declare (dynamic-extent v10))
+         (- v10)))))
   -1)
 
 (deftest misc.429
@@ -8282,10 +8282,10 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda ()
        (declare (optimize (safety 1) (debug 1) (space 2)
-			  (speed 2) (compilation-speed 1)))
+                          (speed 2) (compilation-speed 1)))
        (let ((v8 (let ((*s3* 0)) *s3*)))
-	 (declare (dynamic-extent v8))
-	 (logandc1 v8 28)))))
+         (declare (dynamic-extent v8))
+         (logandc1 v8 28)))))
   28)
 
 ;;; poplog 15.53
@@ -8333,22 +8333,22 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -4085 0) b))
        (declare (ignorable a b))
        (declare
-	(optimize (space 2)
-		  (compilation-speed 0)
-		  #+sbcl (sb-c:insert-step-conditions 0)
-		  (debug 2)
-		  (safety 0)
-		  (speed 3)))
+        (optimize (space 2)
+                  (compilation-speed 0)
+                  #+sbcl (sb-c:insert-step-conditions 0)
+                  (debug 2)
+                  (safety 0)
+                  (speed 3)))
        (let ((*s5* 0))
-	 (dotimes (iv1 2 0)
-	   (let ((*s5*
-		  (elt '(1954479092053)
-		       (min 0
-			    (max 0
-				 (if (< iv1 iv1)
-				     (lognand iv1 (ash iv1 (min 53 iv1)))
-				   iv1))))))
-	     0)))))
+         (dotimes (iv1 2 0)
+           (let ((*s5*
+                  (elt '(1954479092053)
+                       (min 0
+                            (max 0
+                                 (if (< iv1 iv1)
+                                     (lognand iv1 (ash iv1 (min 53 iv1)))
+                                   iv1))))))
+             0)))))
    -7639589303599 -1368)
   0)
 
@@ -8361,20 +8361,20 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (a b c d)
        (declare (notinline aref logandc2 gcd make-array))
        (declare
-	(optimize (space 0)
-		  (safety 0)
-		  (compilation-speed 3)
-		  (speed 3)
-		  (debug 1)
-		  ))
+        (optimize (space 0)
+                  (safety 0)
+                  (compilation-speed 3)
+                  (speed 3)
+                  (debug 1)
+                  ))
        (progn
-	 (tagbody
-	  (let* ((v2
-		  (make-array nil :initial-element (catch 'ct1 (go tag2)))))
-	    (declare (dynamic-extent v2))
-	    (gcd (go tag2) (logandc2 (catch 'ct2 c) (aref v2))))
-	  tag2)
-	 0)))
+         (tagbody
+          (let* ((v2
+                  (make-array nil :initial-element (catch 'ct1 (go tag2)))))
+            (declare (dynamic-extent v2))
+            (gcd (go tag2) (logandc2 (catch 'ct2 c) (aref v2))))
+          tag2)
+         0)))
    3021871717588 -866608 -2 -17194)
   0)
 
@@ -8396,28 +8396,28 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer 0 160159) b))
        (declare (ignorable a b))
        (declare
-	(optimize (compilation-speed 1)
-		  (speed 3)
-		  (safety 3)
-		  (space 0)
-		  ; #+sbcl (sb-c:insert-step-conditions 0)
-		  (debug 0)))
+        (optimize (compilation-speed 1)
+                  (speed 3)
+                  (safety 3)
+                  (space 0)
+                  ; #+sbcl (sb-c:insert-step-conditions 0)
+                  (debug 0)))
        (if
-	   (oddp
-	    (loop for
-		  lv1
-		  below
-		  2
-		  count
-		  (logbitp 0
-			   (1-
-			    (ash b
-				 (min 8
-				      (count 0
-					     '(-10197561 486 430631291
-							 9674068))))))))
-	   b
-	 0)))
+           (oddp
+            (loop for
+                  lv1
+                  below
+                  2
+                  count
+                  (logbitp 0
+                           (1-
+                            (ash b
+                                 (min 8
+                                      (count 0
+                                             '(-10197561 486 430631291
+                                                         9674068))))))))
+           b
+         0)))
    1265797 110757)
   0)
 
@@ -8431,18 +8431,18 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (a b c d e)
        (declare (notinline values complex eql))
        (declare
-	(optimize (compilation-speed 3)
-		  (speed 3)
-		  ; #+sbcl (sb-c:insert-step-conditions 0)
-		  (debug 1)
-		  (safety 1)
-		  (space 0)))
+        (optimize (compilation-speed 3)
+                  (speed 3)
+                  ; #+sbcl (sb-c:insert-step-conditions 0)
+                  (debug 1)
+                  (safety 1)
+                  (space 0)))
        (flet ((%f10
-	       (f10-1 f10-2 f10-3
-		      &optional (f10-4 (ignore-errors 0)) (f10-5 0)
-		      &key &allow-other-keys)
-	       (if (or (eql 0 0) t) 0 (if f10-1 0 0))))
-	 (complex (multiple-value-call #'%f10 (values a c b 0 0)) 0))))
+               (f10-1 f10-2 f10-3
+                      &optional (f10-4 (ignore-errors 0)) (f10-5 0)
+                      &key &allow-other-keys)
+               (if (or (eql 0 0) t) 0 (if f10-1 0 0))))
+         (complex (multiple-value-call #'%f10 (values a c b 0 0)) 0))))
    80043 74953652306 33658947 -63099937105 -27842393)
   0)
 
@@ -8459,11 +8459,11 @@ Broken at C::WT-MAKE-CLOSURE.
    (compile
     nil
     ' (lambda (a)
-	(declare (type (integer 0 1696) a))
-	; (declare (ignorable a))
-	(declare (optimize (space 2) (debug 0) (safety 1)
-		   (compilation-speed 0) (speed 1)))
-	(if (logbitp 0 (ash (1- a) (min 11 a))) 0 0)))
+        (declare (type (integer 0 1696) a))
+        ; (declare (ignorable a))
+        (declare (optimize (space 2) (debug 0) (safety 1)
+                   (compilation-speed 0) (speed 1)))
+        (if (logbitp 0 (ash (1- a) (min 11 a))) 0 0)))
    805)
   0)
 
@@ -8476,12 +8476,12 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -15205 18871) a))
        (declare (ignorable a))
        (declare
-	(optimize (space 2)
-		  ; (sb-c:insert-step-conditions 0)
-		  (speed 1)
-		  (safety 1)
-		  (debug 1)
-		  (compilation-speed 3)))
+        (optimize (space 2)
+                  ; (sb-c:insert-step-conditions 0)
+                  (speed 1)
+                  (safety 1)
+                  (debug 1)
+                  (compilation-speed 3)))
        (if (<= a (- (setf a 10305))) a 0)))
    -13589)
   10305)
@@ -8496,22 +8496,22 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (a b c)
        (declare (notinline logior))
        (declare (optimize (safety 3) (debug 1) (speed 0) (space 1)
-			  (compilation-speed 3)))
+                          (compilation-speed 3)))
        (flet ((%f10 (&optional &key
-			       (key1
-				(logior (flet ((%f4 (f4-1
-						     &optional
-						     &key
-						     (key1 0)
-						     (key2 b)
-						     &allow-other-keys)
-						 c))
-					  (%f4 0))))
-			       &allow-other-keys)
-		0))
-	 (let ((*s8* (%f10)))
-	   (declare (special *s8*))
-	   *s8*))))
+                               (key1
+                                (logior (flet ((%f4 (f4-1
+                                                     &optional
+                                                     &key
+                                                     (key1 0)
+                                                     (key2 b)
+                                                     &allow-other-keys)
+                                                 c))
+                                          (%f4 0))))
+                               &allow-other-keys)
+                0))
+         (let ((*s8* (%f10)))
+           (declare (special *s8*))
+           *s8*))))
    13524 4484529434427 8109510572804)
   0)
 
@@ -8524,10 +8524,10 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (notinline complex))
        (declare (optimize (compilation-speed 1) (space 1) (speed 3) (safety 2) (debug 3)))
        (flet ((%f8 (f8-1 f8-2 &optional
-			 &key (key1 (labels ((%f9 nil a)) (complex (%f9) 0)))
-			 (key2 0) &allow-other-keys)
-		0))
-	 (%f8 0 a))))
+                         &key (key1 (labels ((%f9 nil a)) (complex (%f9) 0)))
+                         (key2 0) &allow-other-keys)
+                0))
+         (%f8 0 a))))
    1 2)
   0)
 
@@ -8540,11 +8540,11 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (notinline apply evenp))
        (declare (optimize (speed 1) (space 1) (safety 1) (compilation-speed 0) (debug 0)))
        (labels ((%f18 (f18-1 &optional
-			     &key
-			     (key1 (flet ((%f8 nil b)) (if (evenp (%f8)) 0 a)))
-			     (key2 0))
-		  0))
-	 (apply #'%f18 b nil))))
+                             &key
+                             (key1 (flet ((%f8 nil b)) (if (evenp (%f8)) 0 a)))
+                             (key2 0))
+                  0))
+         (apply #'%f18 b nil))))
    505808341634 -39752189)
   0)
 
@@ -8563,10 +8563,10 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (ignorable a b c d e))
        (declare (optimize (compilation-speed 3) (debug 0) (space 0) (safety 1) (speed 1)))
        (catch 'ct7 (lcm (case 0
-			  ((-4557) (let ((*s7* (max d))) 0))
-			  ((-15387) c)
-			  (t 0))
-			(unwind-protect (throw 'ct7 b) 0)))))
+                          ((-4557) (let ((*s7* (max d))) 0))
+                          ((-15387) c)
+                          (t 0))
+                        (unwind-protect (throw 'ct7 b) 0)))))
    -1748290 -244489705763 38969920 -90 341977)
   -244489705763)
 
@@ -8586,10 +8586,10 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -252962 3018671) d))
        (declare (ignorable a b c d))
        (declare (optimize (safety 3) (space 3) (speed 3)
-			  (compilation-speed 3) (debug 3)))
+                          (compilation-speed 3) (debug 3)))
        (* (labels ((%f8 (&optional (f8-1 0)) (setq b 0)))
-	    (if (> d 1668249724 (%f8)) 0 (complex a 0)))
-	  (if (oddp b) 0 c))))
+            (if (> d 1668249724 (%f8)) 0 (complex a 0)))
+          (if (oddp b) 0 c))))
    796131 -1 -338008808923 530637)
   -269099291056676913)
 
@@ -8600,7 +8600,7 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (a)
        (declare (type (integer 38632397 46632460288) a))
        (declare (optimize (space 0) (safety 0) (debug 1)
-			  (compilation-speed 1) (speed 0)))
+                          (compilation-speed 1) (speed 0)))
        (catch 'ct2 (if (= a 0 (throw 'ct2 0)) 1 2289596))))
    18160383912)
   0)
@@ -8613,7 +8613,7 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -3716 1269) a))
        (declare (type (integer -1976579 2312) b))
        (declare (optimize (compilation-speed 1) (safety 0)
-			  (speed 0) (space 0) (debug 3)))
+                          (speed 0) (space 0) (debug 3)))
        (if (<= 0 b (setq a 117)) 0 a)))
    -1147 -44004)
   117)
@@ -8637,25 +8637,25 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.451
   (funcall (compile nil '(lambda (a b) (flet ((%f3 () (setq a -2210)))
-					 (logxor a b (%f3)))))
-	   -22650 20595)
+                                         (logxor a b (%f3)))))
+           -22650 20595)
   171)
 
 (deftest misc.452
   (funcall (compile nil '(lambda (d) (labels ((%f3 () (setf d -1135) -983))
-				       (+ d (%f3) 11267))))
-	   -2914)
+                                       (+ d (%f3) 11267))))
+           -2914)
   7370)
 
 (deftest misc.453
   (funcall (compile nil '(lambda (a) (* a (setf a 2) a (identity 5))))
-	   3)
+           3)
   60)
 
 (deftest misc.454
   (let* ((form '(let ((v1 0)) (decf v1 (setq v1 -1))))
-	 (val1 (eval form))
-	 (val2 (funcall (compile nil `(lambda () ,form)))))
+         (val1 (eval form))
+         (val2 (funcall (compile nil `(lambda () ,form)))))
     (if (eql val1 val2) :good
       (list val1 val2)))
   :good)
@@ -8672,7 +8672,7 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (a b)
        (declare (type (integer -4079701634499 2272876436845) b))
        (declare (optimize (space 0) (compilation-speed 1)
-			  (safety 3) (speed 2) (debug 0)))
+                          (safety 3) (speed 2) (debug 0)))
        (logand (* -775 b) a 37284)))
    -18465060867 832909434173)
   32772)
@@ -8685,7 +8685,7 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -30606350847 35078064098) b))
        (declare (type (integer -6652 6638) c))
        (declare (optimize (space 3) (safety 0)
-			  (speed 0) (compilation-speed 2) (debug 1)))
+                          (speed 0) (compilation-speed 2) (debug 1)))
            (logand (* -9964236 (setq c 6206) 2600) b c)))
     17296668225 -6574)
   4096)
@@ -8700,7 +8700,7 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -455461 343063) a))
        (declare (type (integer -1020097 -12430) b))
        (declare (optimize (speed 3) (space 0) (compilation-speed 3)
-			  (debug 0) (safety 3)))
+                          (debug 0) (safety 3)))
        (deposit-field (* (logeqv a a) b) (byte 6 24) 0)))
    -212811 -985078)
   0)
@@ -8714,11 +8714,11 @@ Broken at C::WT-MAKE-CLOSURE.
     ' (lambda (a)
            (declare (type (integer -8175 27760966190) a))
            (declare (optimize
-		     ;; The next optimize declaration is necessary
-		     ;; for the bug to occur in sbcl 0.8.17.24
-		     #+sbcl (sb-c:insert-step-conditions 0)
-		     (space 2) (speed 0) (compilation-speed 1)
-		     (safety 0) (debug 3)))
+                     ;; The next optimize declaration is necessary
+                     ;; for the bug to occur in sbcl 0.8.17.24
+                     #+sbcl (sb-c:insert-step-conditions 0)
+                     (space 2) (speed 0) (compilation-speed 1)
+                     (safety 0) (debug 3)))
            (ldb (byte 29 0) (* a a))))
    14774118941)
   101418825)
@@ -8733,7 +8733,7 @@ Broken at C::WT-MAKE-CLOSURE.
            (declare (type (integer -32933298905 -168011) a))
            (declare (type (integer -190015111797 16) b))
            (declare (optimize (speed 2) (compilation-speed 0) (space 0)
-			      (safety 1) (debug 0)))
+                              (safety 1) (debug 0)))
            (logand (+ b -9255) a 63)))
    -8166030199 -45872222127)
   8)
@@ -8751,26 +8751,26 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer 50354997 50514623) a))
        (declare (ignorable a))
        (declare
-	(optimize (speed 0)
-		  (safety 0)
-		  (compilation-speed 3)
-		  #+sbcl (sb-c:insert-step-conditions 0)
-		  (debug 1)
-		  (space 1)))
+        (optimize (speed 0)
+                  (safety 0)
+                  (compilation-speed 3)
+                  #+sbcl (sb-c:insert-step-conditions 0)
+                  (debug 1)
+                  (space 1)))
        (loop for lv3 below 2
-	     sum (if (find 0
-			   '(-17604051 126613572 -795198 12037855 127043241 -2 -59
-				       -3458890 1505 -1 -2 107498637 -977489 172087 421813
-				       543299114 12 4311490 569 -3509 -4051770 -1 1 1
-				       216399387 -2482 143297 2 304550 -61 -195904988
-				       57682175 2344 1294831 -247 -2 25779388 -296 -12115
-				       -158487 -15)
-			   :test 'eql)
-		     (if (find 0 #(4193594) :test '<)
-			 (min (catch 'ct6 0) (catch 'ct8 0) 0)
-		       (let ((*s1* (cons a 0)))
-			 (car *s1*)))
-		   0))))
+             sum (if (find 0
+                           '(-17604051 126613572 -795198 12037855 127043241 -2 -59
+                                       -3458890 1505 -1 -2 107498637 -977489 172087 421813
+                                       543299114 12 4311490 569 -3509 -4051770 -1 1 1
+                                       216399387 -2482 143297 2 304550 -61 -195904988
+                                       57682175 2344 1294831 -247 -2 25779388 -296 -12115
+                                       -158487 -15)
+                           :test 'eql)
+                     (if (find 0 #(4193594) :test '<)
+                         (min (catch 'ct6 0) (catch 'ct8 0) 0)
+                       (let ((*s1* (cons a 0)))
+                         (car *s1*)))
+                   0))))
    50395193)
   0)
 
@@ -8780,12 +8780,12 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.461
   (funcall
    (compile nil '(lambda (a)
-		   (declare (type (integer -26657952320 0) a))
-		   (declare (optimize (compilation-speed 0) (space 3) (speed 3)
-				      (safety 0) (debug 2)))
-		   (- a
-		      (ash -1 (min 31 (- a)))
-		      -26715477)))
+                   (declare (type (integer -26657952320 0) a))
+                   (declare (optimize (compilation-speed 0) (space 3) (speed 3)
+                                      (safety 0) (debug 2)))
+                   (- a
+                      (ash -1 (min 31 (- a)))
+                      -26715477)))
    -26179151369)
   -24004952244)
 
@@ -8797,12 +8797,12 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.462
   (funcall
    (compile nil '(lambda (a b)
-		   (declare (type (integer -2726808666112 -26532) a))
-		   (declare (type (integer 182701814 171137312256) b))
-		   (declare (ignorable a b))
-		   (declare (optimize (compilation-speed 3) (safety 0)
-				      (speed 3) (space 3) (debug 3)))
-		   (ash (let* ((v8 (cons 0 0))) 0) (min 15 a))))
+                   (declare (type (integer -2726808666112 -26532) a))
+                   (declare (type (integer 182701814 171137312256) b))
+                   (declare (ignorable a b))
+                   (declare (optimize (compilation-speed 3) (safety 0)
+                                      (speed 3) (space 3) (debug 3)))
+                   (ash (let* ((v8 (cons 0 0))) 0) (min 15 a))))
    -1982565461868 46279989780)
   0)
 
@@ -8811,13 +8811,13 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.463
   (funcall
    (compile nil '(lambda (a b)
-		   (declare (type (integer 0 0) a))
-		   (declare (type (integer -160364747008 264742845184) b))
-		   (declare (ignorable a b))
-		   (declare (optimize (debug 0) (safety 0)
-				      (compilation-speed 2) (space 0)
-				      (speed 1)))
-		   (ash (multiple-value-setq (a) 0) (min 97 13027666096))))
+                   (declare (type (integer 0 0) a))
+                   (declare (type (integer -160364747008 264742845184) b))
+                   (declare (ignorable a b))
+                   (declare (optimize (debug 0) (safety 0)
+                                      (compilation-speed 2) (space 0)
+                                      (speed 1)))
+                   (ash (multiple-value-setq (a) 0) (min 97 13027666096))))
    0 34670845086)
   0)
 
@@ -8827,24 +8827,24 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.464
   (funcall
    (compile nil '(lambda ()
-		   (declare (optimize (debug 1) (safety 2) (compilation-speed 0)
-				      (space 1) (speed 1)))
-		   (count (ash (the integer
-				 (macrolet () (rem -197 (min -72 215))))
-			       (min 98 442719))
-			  #(0 96) :test '=))))
+                   (declare (optimize (debug 1) (safety 2) (compilation-speed 0)
+                                      (space 1) (speed 1)))
+                   (count (ash (the integer
+                                 (macrolet () (rem -197 (min -72 215))))
+                               (min 98 442719))
+                          #(0 96) :test '=))))
   0)
 
 (deftest misc.465
   (funcall
    (compile nil '(lambda (a)
-		   (declare (type (integer -18822 -1280) a))
-		   (declare (optimize (debug 0) (speed 1)
-				      (compilation-speed 3) (safety 0)
-				      (space 0)))
-		   (ash (the integer
-			  (logand a (if t a (imagpart -2607360))))
-			(min 79 (catch 'ct7 0)))))
+                   (declare (type (integer -18822 -1280) a))
+                   (declare (optimize (debug 0) (speed 1)
+                                      (compilation-speed 3) (safety 0)
+                                      (space 0)))
+                   (ash (the integer
+                          (logand a (if t a (imagpart -2607360))))
+                        (min 79 (catch 'ct7 0)))))
    -17635)
   -17635)
 
@@ -8857,10 +8857,10 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.466
   (funcall (compile nil '(lambda (x)
-			   (declare (type (member 4 -1) x)
-				    (optimize speed (safety 1)))
-			   (isqrt x)))
-	   4)
+                           (declare (type (member 4 -1) x)
+                                    (optimize speed (safety 1)))
+                           (isqrt x)))
+           4)
   2)
 
 ;;; gcl 24 Dec 2004
@@ -8870,76 +8870,76 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.467
   (funcall
    (compile nil '(lambda (p2 p3)
-		   (declare (optimize speed (safety 1))
-			    (type (integer -990888631320) p2)
-			    (type (integer -20346 -19755) p3))
-		   (+ -77 (the (integer * -990888630255) p2) p3)))
+                   (declare (optimize speed (safety 1))
+                            (type (integer -990888631320) p2)
+                            (type (integer -20346 -19755) p3))
+                   (+ -77 (the (integer * -990888630255) p2) p3)))
    -990888630272 -19756)
   -990888650105)
 
 (deftest misc.468
   (funcall
    (compile nil '(lambda (p2 p3)
-		   (declare (optimize speed (safety 1))
-			    (type (integer * 151075404030) p2)
-			    (type (integer 6515518 *) p3))
-		   (- 12967657127936 (the (eql 151075403520) p2)
-		      (the (member 6515658 -14) p3))))
+                   (declare (optimize speed (safety 1))
+                            (type (integer * 151075404030) p2)
+                            (type (integer 6515518 *) p3))
+                   (- 12967657127936 (the (eql 151075403520) p2)
+                      (the (member 6515658 -14) p3))))
    151075403520 6515658)
   12816575208758)
 
 (deftest misc.469
   (funcall
    (compile nil '(lambda (p2)
-		   (declare (optimize speed (safety 1)) (type integer p2))
-		   (+ 30926 (the (integer -4025987543018 *) p2))))
+                   (declare (optimize speed (safety 1)) (type integer p2))
+                   (+ 30926 (the (integer -4025987543018 *) p2))))
    -4025817763840)
   -4025817732914)
 
 (deftest misc.470
   (funcall
    (compile nil '(lambda (p2)
-		   (declare (optimize speed (safety 1))
-			    (type (integer 3689224658939 *) p2))
-		   (+ -1071 (the (integer * 3689229115390) p2))))
+                   (declare (optimize speed (safety 1))
+                            (type (integer 3689224658939 *) p2))
+                   (+ -1071 (the (integer * 3689229115390) p2))))
    3689228853248)
   3689228852177)
 
 (deftest misc.471
   (funcall
    (compile nil '(lambda (p1 p2)
-		   (declare (optimize speed (safety 1))
-			    (type (integer -9024844 230253450) p1)
-			    (type (eql 35716681856) p2))
-		   (* p1 (the (integer * 35716681856) p2))))
+                   (declare (optimize speed (safety 1))
+                            (type (integer -9024844 230253450) p1)
+                            (type (eql 35716681856) p2))
+                   (* p1 (the (integer * 35716681856) p2))))
    -9024809 35716681856)
   -322336231864165504)
 
 (deftest misc.472
   (funcall
    (compile nil '(lambda (p1 p2)
-		   (declare (optimize speed (safety 1))
-			    (type (integer -785238 -80) p1)
-			    (type (eql -523213622272) p2))
-		   (min p1 (the integer p2))))
+                   (declare (optimize speed (safety 1))
+                            (type (integer -785238 -80) p1)
+                            (type (eql -523213622272) p2))
+                   (min p1 (the integer p2))))
    -259 -523213622272)
   -523213622272)
 
 (deftest misc.473
   (funcall
    (compile nil '(lambda (p2)
-		   (declare (optimize speed (safety 1))
-			    (type (integer * 65861934352) p2))
-		   (max 23939 (the (integer 64863825609 65878336765) p2))))
+                   (declare (optimize speed (safety 1))
+                            (type (integer * 65861934352) p2))
+                   (max 23939 (the (integer 64863825609 65878336765) p2))))
    65861912512)
   65861912512)
 
 (deftest misc.474
   (funcall
    (compile nil '(lambda (p1)
-		   (declare (optimize speed (safety 1))
-			    (type (integer -6750156308) p1))
-		   (logand (the signed-byte p1) -540165229)))
+                   (declare (optimize speed (safety 1))
+                            (type (integer -6750156308) p1))
+                   (logand (the signed-byte p1) -540165229)))
    -6750156304)
   -7289140848)
 
@@ -8951,48 +8951,48 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+armedbear ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (p1 p2 p3 p4 p6)
-			(declare (optimize speed (safety 1))
-				 (type (integer -785238 61564048) p1)
-				 (type (integer * 65861934352) p2))
-			(+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4
-			   463666373060
-			   P6)))
-	61564048 -7457 24939545512 51 730))
+        (compile nil '(lambda (p1 p2 p3 p4 p6)
+                        (declare (optimize speed (safety 1))
+                                 (type (integer -785238 61564048) p1)
+                                 (type (integer * 65861934352) p2))
+                        (+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4
+                           463666373060
+                           P6)))
+        61564048 -7457 24939545512 51 730))
   488667475944)
 
 (deftest misc.476
   (let #+armedbear ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (p4)
-			(declare (optimize speed (safety 1))
-				 (type (integer -115781893486) p4))
-			(- 1 -35 0 (the (integer -115778245122) p4) -2)))
-	-115778114900))
+        (compile nil '(lambda (p4)
+                        (declare (optimize speed (safety 1))
+                                 (type (integer -115781893486) p4))
+                        (- 1 -35 0 (the (integer -115778245122) p4) -2)))
+        -115778114900))
   115778114938)
 
 (deftest misc.477
   (let #+armedbear ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (p4 p5)
-			(declare (optimize speed (safety 1))
-				 (type (integer -126908726190 -126906628448) p4)
-				 (type (integer * 2202) p5))
-			(* -1950 -33610502463 2 p4 p5)))
-	-126906629040 1839))
+        (compile nil '(lambda (p4 p5)
+                        (declare (optimize speed (safety 1))
+                                 (type (integer -126908726190 -126906628448) p4)
+                                 (type (integer * 2202) p5))
+                        (* -1950 -33610502463 2 p4 p5)))
+        -126906629040 1839))
   -30591843552678654213361992000)
 
 (deftest misc.478
   (let #+armedbear ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (p2)
-			(declare (optimize speed (safety 1))
-				 (type (integer * 2343679) p2))
-			(logand 12050257282405 p2 117775123 505354693 -415679150084)))
-	-6189))
+        (compile nil '(lambda (p2)
+                        (declare (optimize speed (safety 1))
+                                 (type (integer * 2343679) p2))
+                        (logand 12050257282405 p2 117775123 505354693 -415679150084)))
+        -6189))
   33816832)
 
 ;;; Bug in CMUCL Snapshot 2004-10
@@ -9000,36 +9000,36 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.479
   (let ((r (make-array nil :element-type '(unsigned-byte 32)))
-	(fn (compile nil '(lambda (r p2)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 32) nil) r)
-				     (type integer p2))
-			    (setf (aref r) (logxor 0 (the (integer 2797513123 2798027357) p2)))
-			    (values)))))
+        (fn (compile nil '(lambda (r p2)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 32) nil) r)
+                                     (type integer p2))
+                            (setf (aref r) (logxor 0 (the (integer 2797513123 2798027357) p2)))
+                            (values)))))
     (funcall fn r 2797674503)
     (aref r))
   2797674503)
 
 (deftest misc.480
   (let ((r (make-array nil :element-type 'integer))
-	(fn (compile nil '(lambda (r p1)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array integer nil) r)
-				     (type (integer -797971 -797511) p1))
-			    (setf (aref r) (logeqv p1 15 1078254884158 -12564176924 0 15096591909))
-			    (values)))))
+        (fn (compile nil '(lambda (r p1)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array integer nil) r)
+                                     (type (integer -797971 -797511) p1))
+                            (setf (aref r) (logeqv p1 15 1078254884158 -12564176924 0 15096591909))
+                            (values)))))
     (funcall fn r -797965)
     (aref r))
   -1075415510532)
 
 (deftest misc.481
   (let ((r (make-array nil :element-type '(unsigned-byte 16)))
-	(fn (compile nil '(lambda (r p1)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 16) nil) r)
-				     (type (member 4194309 -123 1692 -4432 -760653 -1741 37) p1))
-			    (setf (aref r) (logorc1 (the (eql -4432) p1) 0))
-			    (values)))))
+        (fn (compile nil '(lambda (r p1)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 16) nil) r)
+                                     (type (member 4194309 -123 1692 -4432 -760653 -1741 37) p1))
+                            (setf (aref r) (logorc1 (the (eql -4432) p1) 0))
+                            (values)))))
     (funcall fn r -4432)
     (aref r))
   4431)
@@ -9038,133 +9038,133 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.482
   (let ((r (make-array nil :element-type '(unsigned-byte 4)))
-	(fn (compile nil '(lambda (r p2)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 4) nil) r)
-				     (type (eql -4) p2))
-			    (setf (aref r) (logorc2 13 p2))
-			    (values)))))
+        (fn (compile nil '(lambda (r p2)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 4) nil) r)
+                                     (type (eql -4) p2))
+                            (setf (aref r) (logorc2 13 p2))
+                            (values)))))
     (funcall fn r -4)
     (aref r))
   15)
 
 (deftest misc.483
   (let ((r (make-array nil :element-type '(unsigned-byte 4)))
-	(fn (compile nil '(lambda (r p1 p2)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 4) nil) r)
-				     (type (integer * 28306533) p1)
-				     (type (integer * 1245601) p2))
-			    (setf (aref r) (logandc1 p1 (the (integer -3308174) p2)))
-			    (values)))))
+        (fn (compile nil '(lambda (r p1 p2)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 4) nil) r)
+                                     (type (integer * 28306533) p1)
+                                     (type (integer * 1245601) p2))
+                            (setf (aref r) (logandc1 p1 (the (integer -3308174) p2)))
+                            (values)))))
     (funcall fn r -519 -28180)
     (aref r))
   4)
 
 (deftest misc.484
   (let ((r (make-array nil :element-type '(unsigned-byte 4)))
-	(fn (compile nil '(lambda (r p2)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 4) nil) r)
-				     (type (member 260646 -348969 34359738370 -110167) p2))
-			    (setf (aref r) (logandc2 9 (the (eql -348969) p2)))
-			    (values)))))
+        (fn (compile nil '(lambda (r p2)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 4) nil) r)
+                                     (type (member 260646 -348969 34359738370 -110167) p2))
+                            (setf (aref r) (logandc2 9 (the (eql -348969) p2)))
+                            (values)))))
     (funcall fn r -348969)
     (aref r))
   8)
 
 (deftest misc.485
   (let ((r (make-array nil :element-type 'bit))
-	(fn (compile nil '(lambda (r p2)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array bit nil) r)
-				     (type (integer -108220 256178) p2))
-			    (setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2)))
-			    (values)))))
+        (fn (compile nil '(lambda (r p2)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array bit nil) r)
+                                     (type (integer -108220 256178) p2))
+                            (setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2)))
+                            (values)))))
     (funcall fn r -5)
     (aref r))
   1)
 
 (deftest misc.486
   (let ((r (make-array nil :element-type '(unsigned-byte 4)))
-	(fn (compile nil '(lambda (r p1 p2)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 4) nil) r)
-				     (type (integer -9) p1)
-				     (type (integer * 1234117) p2))
-			    (setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2)))
-			    (values)))))
+        (fn (compile nil '(lambda (r p1 p2)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 4) nil) r)
+                                     (type (integer -9) p1)
+                                     (type (integer * 1234117) p2))
+                            (setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2)))
+                            (values)))))
     (funcall fn r 6 6)
     (aref r))
   6)
 
 (deftest misc.487
   (let ((r (make-array nil :element-type '(unsigned-byte 16)))
-	(fn (compile nil '(lambda (r p1)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 16) nil) r)
-				     (type (integer 1583040351 1587341394) p1))
-			    (setf (aref r) (logandc2 (the (integer 1587211196 1587341392) p1) -166174))
-			    (values)))))
+        (fn (compile nil '(lambda (r p1)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 16) nil) r)
+                                     (type (integer 1583040351 1587341394) p1))
+                            (setf (aref r) (logandc2 (the (integer 1587211196 1587341392) p1) -166174))
+                            (values)))))
     (funcall fn r 1587341392)
     (aref r))
   34832)
 
 (deftest misc.488
   (let ((r (make-array nil :element-type '(unsigned-byte 32)))
-	(fn (compile nil '(lambda (r p2)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 32) nil) r)
-				     (type (integer 1960409798 1960426181) p2))
-			    (setf (aref r) (logorc1 -1 p2))
-			    (values)))))
+        (fn (compile nil '(lambda (r p2)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 32) nil) r)
+                                     (type (integer 1960409798 1960426181) p2))
+                            (setf (aref r) (logorc1 -1 p2))
+                            (values)))))
     (funcall fn r 1960409801)
     (aref r))
   1960409801)
 
 (deftest misc.489
   (let ((r (make-array nil :element-type '(unsigned-byte 32)))
-	(fn (compile nil '(lambda (r p2)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 32) nil) r)
-				     (type (integer -55) p2))
-			    (setf (aref r) (logorc2 0 (the (member -51) p2)))
-			    (values)))))
+        (fn (compile nil '(lambda (r p2)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 32) nil) r)
+                                     (type (integer -55) p2))
+                            (setf (aref r) (logorc2 0 (the (member -51) p2)))
+                            (values)))))
     (funcall fn r -51)
     (aref r))
   50)
 
 (deftest misc.490
   (let ((r (make-array nil :element-type '(unsigned-byte 32)))
-	(fn (compile nil '(lambda (r p1)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (unsigned-byte 32) nil) r)
-				     (type (integer 761639858 1030075825) p1))
-			    (setf (aref r) (logior (the (integer * 35389813668) p1) 0))
-			    (values)))))
+        (fn (compile nil '(lambda (r p1)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (unsigned-byte 32) nil) r)
+                                     (type (integer 761639858 1030075825) p1))
+                            (setf (aref r) (logior (the (integer * 35389813668) p1) 0))
+                            (values)))))
     (funcall fn r 1030075308)
     (aref r))
   1030075308)
 
 (deftest misc.491
   (let ((r (make-array nil :element-type '(signed-byte 16)))
-	(fn (compile nil '(lambda (r p2)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (signed-byte 16) nil) r)
-				     (type (integer 505774114 573717424) p2))
-			    (setf (aref r) (lognand 58539 (the (integer * 910674467) p2)))
-			    (values)))))
+        (fn (compile nil '(lambda (r p2)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (signed-byte 16) nil) r)
+                                     (type (integer 505774114 573717424) p2))
+                            (setf (aref r) (lognand 58539 (the (integer * 910674467) p2)))
+                            (values)))))
     (funcall fn r 506608551)
     (aref r))
   -8356)
 
 (deftest misc.492
   (let ((r (make-array nil :element-type '(signed-byte 8)))
-	(fn (compile nil '(lambda (r p1)
-			    (declare (optimize speed (safety 1))
-				     (type (simple-array (signed-byte 8) nil) r) (type (integer * 22050378) p1))
-			    (setf (aref r) (lognand (the (integer 19464371) p1) 2257))
-			    (values)))))
+        (fn (compile nil '(lambda (r p1)
+                            (declare (optimize speed (safety 1))
+                                     (type (simple-array (signed-byte 8) nil) r) (type (integer * 22050378) p1))
+                            (setf (aref r) (lognand (the (integer 19464371) p1) 2257))
+                            (values)))))
     (funcall fn r 19469591)
     (aref r))
   -18)
@@ -9176,12 +9176,12 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (b)
-			(declare (optimize (speed 2) (debug 1) (safety 3)
-					   (compilation-speed 3) (space 1)))
-			(aref #(41397376227 18660605846 49244777443) (min 2 (max 0 b)))))
-	
-	-71))
+        (compile nil '(lambda (b)
+                        (declare (optimize (speed 2) (debug 1) (safety 3)
+                                           (compilation-speed 3) (space 1)))
+                        (aref #(41397376227 18660605846 49244777443) (min 2 (max 0 b)))))
+        
+        -71))
   41397376227)
 
 ;;; ABCL (26 Dec 2004)
@@ -9191,10 +9191,10 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda ()
-			(declare (optimize (safety 0) (space 2) (debug 3) (speed 0)
-					   (compilation-speed 2)))
-			(conjugate (progn (catch 'ct5 (if t 0 0)) 0))))))
+        (compile nil '(lambda ()
+                        (declare (optimize (safety 0) (space 2) (debug 3) (speed 0)
+                                           (compilation-speed 2)))
+                        (conjugate (progn (catch 'ct5 (if t 0 0)) 0))))))
   0)
 
 ;;; The value 5085 is not of type FUNCTION.
@@ -9202,16 +9202,16 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.495
   (funcall
    (compile nil '(lambda (a b)
-		   (declare (type (integer -4197 284380207) a))
-		   (declare (type (integer -23 5088) b))
-		   (declare (ignorable a b))
-		   (declare (optimize (speed 1) (space 2) (debug 0)
-				      (compilation-speed 0) (safety 2)))
-		   (if (position (progn (1+ b) 0)
-				 '(169496 -726 -13623 53307916 128 -258391 156
-					  7432659 30 20 -11))
-		       0
-		     a)))
+                   (declare (type (integer -4197 284380207) a))
+                   (declare (type (integer -23 5088) b))
+                   (declare (ignorable a b))
+                   (declare (optimize (speed 1) (space 2) (debug 0)
+                                      (compilation-speed 0) (safety 2)))
+                   (if (position (progn (1+ b) 0)
+                                 '(169496 -726 -13623 53307916 128 -258391 156
+                                          7432659 30 20 -11))
+                       0
+                     a)))
    72179019 5084)
   72179019)
 
@@ -9221,26 +9221,26 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil
-		 '(lambda (a)
-		    (declare (type (integer -54915 -3396) a))
-		    (declare (optimize (debug 3) (space 0) (safety 2) (speed 2)
-				       (compilation-speed 3)))
-		    (progn (1+ a) (catch 'ct6 (progn 0)))))
-	-25986))
+        (compile nil
+                 '(lambda (a)
+                    (declare (type (integer -54915 -3396) a))
+                    (declare (optimize (debug 3) (space 0) (safety 2) (speed 2)
+                                       (compilation-speed 3)))
+                    (progn (1+ a) (catch 'ct6 (progn 0)))))
+        -25986))
   0)
 
 (deftest misc.497
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil
-		 '(lambda (b)
-		    (declare (type (integer -1 0) b))
-		    (declare (optimize (space 3) (compilation-speed 1)
-				       (safety 0) (debug 1) (speed 0)))
-		    (if 0 (prog2 0 0 (1+ b)) 0)))
-	0))
+        (compile nil
+                 '(lambda (b)
+                    (declare (type (integer -1 0) b))
+                    (declare (optimize (space 3) (compilation-speed 1)
+                                       (safety 0) (debug 1) (speed 0)))
+                    (if 0 (prog2 0 0 (1+ b)) 0)))
+        0))
   0)
 
 ;;; Inconsistent stack height 1 != 0
@@ -9249,15 +9249,15 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil
-		 '(lambda (a)
-		    (declare (type (integer -16191 4) a))
-		    (declare (optimize (compilation-speed 2) (space 1) (debug 0)
-				       (safety 0) (speed 2)))
-		    (conjugate (dotimes (iv1 0 0)
-				 (let ((v2 (dotimes (iv3 0 0) (1+ a))))
-				   0)))))
-	-2840))
+        (compile nil
+                 '(lambda (a)
+                    (declare (type (integer -16191 4) a))
+                    (declare (optimize (compilation-speed 2) (space 1) (debug 0)
+                                       (safety 0) (speed 2)))
+                    (conjugate (dotimes (iv1 0 0)
+                                 (let ((v2 (dotimes (iv3 0 0) (1+ a))))
+                                   0)))))
+        -2840))
   0)
 
 ;;; Incompatible object argument for function call
@@ -9266,15 +9266,15 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil
-		 '(lambda (a b)
-		    (declare (type (integer -31415 133871) a))
-		    (declare (type (integer -993 6448) b))
-		    (declare (ignorable a b))
-		    (declare (optimize (space 0) (debug 2) (safety 0) (speed 0)
-				       (compilation-speed 0)))
-		    (progn (ceiling (progn (1+ b) a)) a)))
-	-16435 2620))
+        (compile nil
+                 '(lambda (a b)
+                    (declare (type (integer -31415 133871) a))
+                    (declare (type (integer -993 6448) b))
+                    (declare (ignorable a b))
+                    (declare (optimize (space 0) (debug 2) (safety 0) (speed 0)
+                                       (compilation-speed 0)))
+                    (progn (ceiling (progn (1+ b) a)) a)))
+        -16435 2620))
   -16435)
 
 ;;; Stack overflow during compilation
@@ -9282,9 +9282,9 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.500
   (funcall
    (compile nil '(lambda nil
-		   (declare (optimize (space 2) (debug 2) (compilation-speed 2)
-				      (speed 1) (safety 3)))
-		   (the integer (integer-length (dotimes (iv4 2 15790955)))))))
+                   (declare (optimize (space 2) (debug 2) (compilation-speed 2)
+                                      (speed 1) (safety 3)))
+                   (the integer (integer-length (dotimes (iv4 2 15790955)))))))
   24)
 
 ;;; Inconsistent stack height 1 != 0
@@ -9293,12 +9293,12 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer -437165353 179983908) a))
-			(declare (optimize (compilation-speed 0) (debug 1) (space 1)
-					   (safety 2) (speed 1)))
-			(dotimes (iv1 0 0) (1+ a))))
-	1))
+        (compile nil '(lambda (a)
+                        (declare (type (integer -437165353 179983908) a))
+                        (declare (optimize (compilation-speed 0) (debug 1) (space 1)
+                                           (safety 2) (speed 1)))
+                        (dotimes (iv1 0 0) (1+ a))))
+        1))
   0)
 
 ;;; Ordering problems
@@ -9306,11 +9306,11 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.502
   (funcall
    (compile nil '(lambda (a)
-		   (declare (type (integer -7 84717795) a))
-		   (declare (ignorable a))
-		   (declare (optimize (speed 1) (space 1) (debug 1) (safety 2)
-				      (compilation-speed 0)))
-		   (+ a (setq a 35035201))))
+                   (declare (type (integer -7 84717795) a))
+                   (declare (ignorable a))
+                   (declare (optimize (speed 1) (space 1) (debug 1) (safety 2)
+                                      (compilation-speed 0)))
+                   (+ a (setq a 35035201))))
    29207264)
   64242465)
 
@@ -9320,14 +9320,14 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.503
   (funcall
    (compile nil '(lambda (a)
-		   (declare (optimize (space 3) (debug 1) (speed 2) (safety 0)
-				      (compilation-speed 1)))
-		   (catch 'ct1
-		     (throw 'ct1
-			    (catch 'ct5
-			      (reduce 'min
-				      (vector 0 0 0 a a 0 0 (values 0 0) (throw 'ct5 -6))
-				      :end 8 :start 6 :from-end t))))))
+                   (declare (optimize (space 3) (debug 1) (speed 2) (safety 0)
+                                      (compilation-speed 1)))
+                   (catch 'ct1
+                     (throw 'ct1
+                            (catch 'ct5
+                              (reduce 'min
+                                      (vector 0 0 0 a a 0 0 (values 0 0) (throw 'ct5 -6))
+                                      :end 8 :start 6 :from-end t))))))
    17)
   -6)
 
@@ -9337,47 +9337,47 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer 196060 241373941) a))
-			(declare (ignorable a))
-			(declare (optimize (speed 3) (debug 0) (safety 2)
-					   (compilation-speed 3) (space 2)))
-			(prog2 (if 0 (+ a a) 0) 0)))
-	200000))
+        (compile nil '(lambda (a)
+                        (declare (type (integer 196060 241373941) a))
+                        (declare (ignorable a))
+                        (declare (optimize (speed 3) (debug 0) (safety 2)
+                                           (compilation-speed 3) (space 2)))
+                        (prog2 (if 0 (+ a a) 0) 0)))
+        200000))
   0)
 
 (deftest misc.505
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer -6 5) a))
-			(declare (optimize (speed 3) (space 0) (safety 2)
-					   (compilation-speed 2) (debug 3)))
-			(dotimes (iv1 0 0) (+ a a))))
-	1))
+        (compile nil '(lambda (a)
+                        (declare (type (integer -6 5) a))
+                        (declare (optimize (speed 3) (space 0) (safety 2)
+                                           (compilation-speed 2) (debug 3)))
+                        (dotimes (iv1 0 0) (+ a a))))
+        1))
   0)
 
 (deftest misc.506
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer -53 49) a))
-			(declare (optimize (debug 0) (compilation-speed 1) (space 2)
-					   (safety 0) (speed 0)))
-			(unwind-protect (+ a a) 0)))
-	-38))
+        (compile nil '(lambda (a)
+                        (declare (type (integer -53 49) a))
+                        (declare (optimize (debug 0) (compilation-speed 1) (space 2)
+                                           (safety 0) (speed 0)))
+                        (unwind-protect (+ a a) 0)))
+        -38))
   -76)
 
 ;;; The value 15390 is not of type FUNCTION.
 (deftest misc.507
   (funcall
    (compile nil '(lambda (a)
-		   (declare (type (integer 2697 13005) a))
-		   (declare (optimize (debug 0) (space 2) (speed 2)
-				      (compilation-speed 3) (safety 3)))
-		   (truncate (prog1 0 a (+ a a)))))
+                   (declare (type (integer 2697 13005) a))
+                   (declare (optimize (debug 0) (space 2) (speed 2)
+                                      (compilation-speed 3) (safety 3)))
+                   (truncate (prog1 0 a (+ a a)))))
    7695)
   0 0)
 
@@ -9388,60 +9388,60 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer -57853147 -2) a))
-			(declare (ignorable a))
-			(declare (optimize (debug 2) (space 1) (compilation-speed 3)
-					   (safety 1) (speed 2)))
-			(the integer
-			  (mask-field (byte 2 29)
-				      (ash (multiple-value-setq (a) -51781613)
-					   (min 1 a))))))
-	-29324754))
+        (compile nil '(lambda (a)
+                        (declare (type (integer -57853147 -2) a))
+                        (declare (ignorable a))
+                        (declare (optimize (debug 2) (space 1) (compilation-speed 3)
+                                           (safety 1) (speed 2)))
+                        (the integer
+                          (mask-field (byte 2 29)
+                                      (ash (multiple-value-setq (a) -51781613)
+                                           (min 1 a))))))
+        -29324754))
   1610612736)
 
 (deftest misc.509
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer -38984312 657) a))
-			(declare (ignorable a))
-			(declare (optimize (debug 1) (compilation-speed 1) (speed 1)
-					   (safety 2) (space 3)))
-			(the integer
-			  (if (> a -27907941364)
-			      116871
-			    (cl:handler-case
-			     (multiple-value-setq (a)
-			       -34832621))))))
-	-26788929))
+        (compile nil '(lambda (a)
+                        (declare (type (integer -38984312 657) a))
+                        (declare (ignorable a))
+                        (declare (optimize (debug 1) (compilation-speed 1) (speed 1)
+                                           (safety 2) (space 3)))
+                        (the integer
+                          (if (> a -27907941364)
+                              116871
+                            (cl:handler-case
+                             (multiple-value-setq (a)
+                               -34832621))))))
+        -26788929))
   116871)
 
 (deftest misc.510
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer -2827 3400) a))
-			(declare (optimize (compilation-speed 1) (space 3) (debug 1)
-					   (safety 0) (speed 1)))
-			(logand (the integer (dotimes (iv4 2 a) (progn iv4))))))
-	155))
+        (compile nil '(lambda (a)
+                        (declare (type (integer -2827 3400) a))
+                        (declare (optimize (compilation-speed 1) (space 3) (debug 1)
+                                           (safety 0) (speed 1)))
+                        (logand (the integer (dotimes (iv4 2 a) (progn iv4))))))
+        155))
   155)
 
 (deftest misc.511
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer 18967 23584) a))
-			(declare (ignorable a))
-			(declare (optimize (space 1) (speed 1) (debug 1)
-					   (compilation-speed 3) (safety 1)))
-			(the integer
-			  (values (loop for lv4 below 2 count (find a '(16389)))))))
-	21352))
+        (compile nil '(lambda (a)
+                        (declare (type (integer 18967 23584) a))
+                        (declare (ignorable a))
+                        (declare (optimize (space 1) (speed 1) (debug 1)
+                                           (compilation-speed 3) (safety 1)))
+                        (the integer
+                          (values (loop for lv4 below 2 count (find a '(16389)))))))
+        21352))
   0)
 
 ;;; Inconsistent stack height
@@ -9450,28 +9450,28 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer 1 188902468) a))
-			(declare (ignorable a))
-			(declare (optimize (space 2) (speed 3) (safety 3)
-					   (compilation-speed 0) (debug 2)))
-			(catch 'ct6
-			  (the integer
-			    (let* ((v3 (signum (ignore-errors a))))
-			      (declare (dynamic-extent v3))
-			      (throw 'ct6
-				     (round (case (prog2
-						      (lognor 290171664 v3)
-						      -3512003993
-						    -550842867)
-					      ((4) (* 1 4092))
-					      ((21 220 225)
-					       (block b1
-						 (setf v3
-						       (let* ((v9 v3))
-							 a))))
-					      (t -639367819)))))))))
-	49008586))
+        (compile nil '(lambda (a)
+                        (declare (type (integer 1 188902468) a))
+                        (declare (ignorable a))
+                        (declare (optimize (space 2) (speed 3) (safety 3)
+                                           (compilation-speed 0) (debug 2)))
+                        (catch 'ct6
+                          (the integer
+                            (let* ((v3 (signum (ignore-errors a))))
+                              (declare (dynamic-extent v3))
+                              (throw 'ct6
+                                     (round (case (prog2
+                                                      (lognor 290171664 v3)
+                                                      -3512003993
+                                                    -550842867)
+                                              ((4) (* 1 4092))
+                                              ((21 220 225)
+                                               (block b1
+                                                 (setf v3
+                                                       (let* ((v9 v3))
+                                                         a))))
+                                              (t -639367819)))))))))
+        49008586))
   -639367819
   0)
 
@@ -9482,33 +9482,33 @@ Broken at C::WT-MAKE-CLOSURE.
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer -2 75025568) a))
-			(declare (ignorable a))
-			(declare (optimize (space 0) (compilation-speed 0) (safety 0)
-					   (speed 2) (debug 2)))
-			(let* ((v8
-				(cons (the integer
-					(prog2 a
-					    -1558460
-					  a
-					  (ignore-errors (progn (tagbody) -49510826))
-					  a))
-				      0)))
-			  0)))
-	68043554))
+        (compile nil '(lambda (a)
+                        (declare (type (integer -2 75025568) a))
+                        (declare (ignorable a))
+                        (declare (optimize (space 0) (compilation-speed 0) (safety 0)
+                                           (speed 2) (debug 2)))
+                        (let* ((v8
+                                (cons (the integer
+                                        (prog2 a
+                                            -1558460
+                                          a
+                                          (ignore-errors (progn (tagbody) -49510826))
+                                          a))
+                                      0)))
+                          0)))
+        68043554))
   0)
 
 (deftest misc.514
   (let #+abcl ((jvm::*catch-errors* nil))
        nil
        (funcall
-	(compile nil '(lambda (a)
-			(declare (type (integer -6844832476 188341751) a))
-			(declare (optimize (speed 3) (debug 1) (safety 0) (space 3)
-					   (compilation-speed 1)))
-			(the integer (multiple-value-setq (a) -96073358))))
-	-3792864899))
+        (compile nil '(lambda (a)
+                        (declare (type (integer -6844832476 188341751) a))
+                        (declare (optimize (speed 3) (debug 1) (safety 0) (space 3)
+                                           (compilation-speed 1)))
+                        (the integer (multiple-value-setq (a) -96073358))))
+        -3792864899))
   -96073358)
 
 ;;; gcl 27 Dec 2004
@@ -9530,12 +9530,12 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.516
   (funcall
    (compile nil '(lambda ()
-			 (declare (optimize (space 0) (debug 0) (safety 2)
-					    (compilation-speed 3) (speed 1)))
-			 (let ((*s2* (* -507991378 14)))
-			      (declare (dynamic-extent *s2*))
-			      (declare (special *s2*))
-			      (1+ *s2*)))))
+                         (declare (optimize (space 0) (debug 0) (safety 2)
+                                            (compilation-speed 3) (speed 1)))
+                         (let ((*s2* (* -507991378 14)))
+                              (declare (dynamic-extent *s2*))
+                              (declare (special *s2*))
+                              (1+ *s2*)))))
   -7111879291)
 
 ;;; gcl 29 Dec 2004
@@ -9544,14 +9544,14 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.517
   (funcall
    (compile nil '(lambda ()
-		   (declare (optimize (safety 3) (space 3) (debug 1) (speed 1)
-				      (compilation-speed 0)))
-		   (let* ((*s8* (let ((*s8* (make-array nil :initial-element 0)))
-				  (declare (special *s8*))
-				  (progn (shiftf (aref *s8*) 31508066) 0))
-				))
-		     (declare (special *s8*))
-		     0))))
+                   (declare (optimize (safety 3) (space 3) (debug 1) (speed 1)
+                                      (compilation-speed 0)))
+                   (let* ((*s8* (let ((*s8* (make-array nil :initial-element 0)))
+                                  (declare (special *s8*))
+                                  (progn (shiftf (aref *s8*) 31508066) 0))
+                                ))
+                     (declare (special *s8*))
+                     0))))
   0)
 
 ;;; Incorrect return value
@@ -9559,18 +9559,18 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.518
   (funcall
    (compile nil '(lambda ()
-		   (declare (optimize (compilation-speed 0) (safety 1)
-				      (debug 1) (space 0) (speed 3)))
-		   (flet ((%f10 (&optional (f10-1 0) (f10-2 0) &key)
-				(progn
-				  (tagbody
-				   (decf f10-2)
-				   (return-from %f10
-				     (complex (unwind-protect (go tag7))
-					      0))
-				   tag7)
-				  f10-2)))
-		     (if (evenp (%f10 0 0)) 0 2140390)))))
+                   (declare (optimize (compilation-speed 0) (safety 1)
+                                      (debug 1) (space 0) (speed 3)))
+                   (flet ((%f10 (&optional (f10-1 0) (f10-2 0) &key)
+                                (progn
+                                  (tagbody
+                                   (decf f10-2)
+                                   (return-from %f10
+                                     (complex (unwind-protect (go tag7))
+                                              0))
+                                   tag7)
+                                  f10-2)))
+                     (if (evenp (%f10 0 0)) 0 2140390)))))
   2140390)
 
 ;;; Error in APPLY [or a callee]: fixnum or bignum expected
@@ -9582,15 +9582,15 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda ()
        (declare (optimize (compilation-speed 0) (speed 1) (debug 1)
-			  (space 1) (safety 3)))
+                          (space 1) (safety 3)))
        (let ((*s3*
-	      (* (the integer
-		   (expt (rationalize
-			  (multiple-value-bind (*s3*)
-			      (make-array nil :initial-element 0)
-			    (shiftf (aref *s3*) 0)))
-			 2)))))
-	 1))))
+              (* (the integer
+                   (expt (rationalize
+                          (multiple-value-bind (*s3*)
+                              (make-array nil :initial-element 0)
+                            (shiftf (aref *s3*) 0)))
+                         2)))))
+         1))))
   1)
 
 ;;; sbcl 0.8.18 (sparc solaris)
@@ -9604,10 +9604,10 @@ Broken at C::WT-MAKE-CLOSURE.
       (declare (type (integer -44330 64753) c))
       (declare (type (integer -301534047 4291509) e))
       (declare (optimize (safety 3) (debug 2) (speed 3)
-		(space 2) (compilation-speed 2)))
+                (space 2) (compilation-speed 2)))
       (if (oddp
-	   (ash (logorc2 c e)
-		(min 2 (mask-field (byte 0 0) (mod 0 (max 69 0))))))
+           (ash (logorc2 c e)
+                (min 2 (mask-field (byte 0 0) (mod 0 (max 69 0))))))
        a
        0)))
    1 -8156 -229264929)
@@ -9622,12 +9622,12 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (b)
        (declare (optimize (speed 0) (safety 1) (debug 1) (compilation-speed 3)
-			  (space 0)))
+                          (space 0)))
        (if b
-	   (let ((*s6* 0))
-	     0)
-	 (let* ((*s6* (make-array nil :initial-element 0)))
-	   (aref *s6*)))))
+           (let ((*s6* 0))
+             0)
+         (let* ((*s6* (make-array nil :initial-element 0)))
+           (aref *s6*)))))
    nil)
   0)
 
@@ -9641,16 +9641,16 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -25 38) a))
        (declare (optimize (compilation-speed 3) (safety 3) (debug 1) (space 2) (speed 1)))
        (flet ((%f2 (f2-1 f2-2
-			 &optional
-			 (f2-3 (labels ((%f6 (&optional (f6-1 0) (f6-2 0)) (max a)))
-				 (%f6 0)))
-			 (f2-4 0) (f2-5 0))
-		   (flet ((%f4 (f4-1 f4-2 f4-3)
-			       (flet ((%f15 () f2-3)) a)))
-		     0)))
-	 (reduce #'(lambda (lmv1 lmv6) a)
-		 (vector 0 0 0 (%f2 a a) 0 a 0 a 0)
-		 :start 4 :from-end t))))
+                         &optional
+                         (f2-3 (labels ((%f6 (&optional (f6-1 0) (f6-2 0)) (max a)))
+                                 (%f6 0)))
+                         (f2-4 0) (f2-5 0))
+                   (flet ((%f4 (f4-1 f4-2 f4-3)
+                               (flet ((%f15 () f2-3)) a)))
+                     0)))
+         (reduce #'(lambda (lmv1 lmv6) a)
+                 (vector 0 0 0 (%f2 a a) 0 a 0 a 0)
+                 :start 4 :from-end t))))
    35)
   35)
 
@@ -9664,17 +9664,17 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -1011 978) a))
        (declare (optimize (compilation-speed 1) (safety 3) (debug 0) (speed 2) (space 1)))
        (let ((*s5*
-	      (cons 0
-		    (catch 'ct8
-		      (ash
-		       (flet ((%f15 (f15-1)
-				    (return-from %f15 a)))
-			 0)
-		       (min 57
-			    (lognor (throw 'ct8 (shiftf a 332))
-				    (let ((v1 (setf a 371)))
-				      a))))))))
-	 a)))
+              (cons 0
+                    (catch 'ct8
+                      (ash
+                       (flet ((%f15 (f15-1)
+                                    (return-from %f15 a)))
+                         0)
+                       (min 57
+                            (lognor (throw 'ct8 (shiftf a 332))
+                                    (let ((v1 (setf a 371)))
+                                      a))))))))
+         a)))
    99)
   332)
 
@@ -9690,14 +9690,14 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (ignorable b))
        (declare (optimize (compilation-speed 0) (safety 0) (space 2) (speed 0) (debug 3)))
        (flet ((%f18 (f18-1 f18-2 f18-3 &optional &key (key1 0) &allow-other-keys)
-		    (labels ((%f12
-			      (f12-1
-			       &optional (f12-2 0)
-			       &key (key1 (catch 'ct7 (conjugate key1))) (key2 0)
-			       &allow-other-keys)
-			      0))
-		      (%f12 a))))
-	 (%f18 a 0 0))))
+                    (labels ((%f12
+                              (f12-1
+                               &optional (f12-2 0)
+                               &key (key1 (catch 'ct7 (conjugate key1))) (key2 0)
+                               &allow-other-keys)
+                              0))
+                      (%f12 a))))
+         (%f18 a 0 0))))
    -925293 -1603)
   0)
 
@@ -9711,10 +9711,10 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -17179869184 -2147483648) a))
        (declare (ignorable a))
        (declare
-	(optimize (space 2) (debug 3) (speed 3) (compilation-speed 3) (safety 1)))
+        (optimize (space 2) (debug 3) (speed 3) (compilation-speed 3) (safety 1)))
        (catch 'ct4
-	 (max (conjugate (unwind-protect 0 (catch 'ct4 (values 0))))
-	      (throw 'ct4 0)))))
+         (max (conjugate (unwind-protect 0 (catch 'ct4 (values 0))))
+              (throw 'ct4 0)))))
    -17179869184)
   0)
 
@@ -9728,36 +9728,36 @@ Broken at C::WT-MAKE-CLOSURE.
        (declare (type (integer -4 3025867) a))
        (declare (ignorable a))
        (declare
-	(optimize (space 1) (safety 0) (debug 0) (speed 3) (compilation-speed 0)))
+        (optimize (space 1) (safety 0) (debug 0) (speed 3) (compilation-speed 0)))
        (flet ((%f14 (f14-1 f14-2 f14-3 &key)
-		    (let ((v4
-			   (return-from %f14
-			     (flet ((%f11
-				     (&optional (f11-1 0) (f11-2 0)
-						(f11-3
-						 (coerce
-						  (reduce (function (lambda (lmv2 lmv5) a))
-							  (vector f14-1 f14-1 0 f14-3 a f14-3 a f14-1
-								  0 f14-2))
-						  (quote integer)))
-						&key (key1 f14-3) (key2 a))
-				     (flet ((%f8
-					     (f8-1
-					      &optional
-					      (f8-2
-					       (flet ((%f16
-						       (f16-1 f16-2 f16-3
-							      &optional
-							      &key (key1 0)
-							      (key2 f11-3))
-						       key1))
-						 0))
-					      &key (key1 0))
-					     f14-3))
-				       0)))
-			       (if (%f11 f14-1 (%f11 0 f14-3) f14-1) 0 0)))))
-		      0)))
-	 (%f14 0 a a))))
+                    (let ((v4
+                           (return-from %f14
+                             (flet ((%f11
+                                     (&optional (f11-1 0) (f11-2 0)
+                                                (f11-3
+                                                 (coerce
+                                                  (reduce (function (lambda (lmv2 lmv5) a))
+                                                          (vector f14-1 f14-1 0 f14-3 a f14-3 a f14-1
+                                                                  0 f14-2))
+                                                  (quote integer)))
+                                                &key (key1 f14-3) (key2 a))
+                                     (flet ((%f8
+                                             (f8-1
+                                              &optional
+                                              (f8-2
+                                               (flet ((%f16
+                                                       (f16-1 f16-2 f16-3
+                                                              &optional
+                                                              &key (key1 0)
+                                                              (key2 f11-3))
+                                                       key1))
+                                                 0))
+                                              &key (key1 0))
+                                             f14-3))
+                                       0)))
+                               (if (%f11 f14-1 (%f11 0 f14-3) f14-1) 0 0)))))
+                      0)))
+         (%f14 0 a a))))
    857304)
   0)
 
@@ -9766,21 +9766,21 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.527
   (let ((v1 (make-array 1 :element-type 'bit
-			:initial-contents '(1)
-			:fill-pointer 0))
-	(v2 (make-array 1 :element-type 'bit
-			:initial-contents '(1)
-			:fill-pointer 1))
-	(r (make-array nil)))
+                        :initial-contents '(1)
+                        :fill-pointer 0))
+        (v2 (make-array 1 :element-type 'bit
+                        :initial-contents '(1)
+                        :fill-pointer 1))
+        (r (make-array nil)))
     (funcall
      (compile
       nil
       `(lambda  (r p2)
-	 (declare (optimize speed (safety 1))
-		  (type (simple-array t nil) r)
-		  (type (array *) p2))
-	 (setf (aref r) (bit-and ,v1 (the (bit-vector *) p2)))
-	 (values)))
+         (declare (optimize speed (safety 1))
+                  (type (simple-array t nil) r)
+                  (type (array *) p2))
+         (setf (aref r) (bit-and ,v1 (the (bit-vector *) p2)))
+         (values)))
      r v2)
     (let ((result (aref r)))
       (values
@@ -9793,38 +9793,38 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.528
   (let* ((x 296.3066f0)
-	 (y 22717067)
-	 (form `(lambda (r p2)
-		  (declare (optimize speed (safety 1))
-			   (type (simple-array single-float nil) r)
-			   (type (integer -9369756340 22717335) p2))
-		  (setf (aref r) (* ,x (the (eql 22717067) p2)))
-		  (values)))
-	 (r (make-array nil :element-type 'single-float))
-	 (expected (* x y)))
+         (y 22717067)
+         (form `(lambda (r p2)
+                  (declare (optimize speed (safety 1))
+                           (type (simple-array single-float nil) r)
+                           (type (integer -9369756340 22717335) p2))
+                  (setf (aref r) (* ,x (the (eql 22717067) p2)))
+                  (values)))
+         (r (make-array nil :element-type 'single-float))
+         (expected (* x y)))
     (funcall (compile nil form) r y)
     (let ((actual (aref r)))
       (unless (eql expected actual)
-	(list expected actual))))
+        (list expected actual))))
   nil)
 
 ;;; The value 46790178 is not of type (INTEGER 46790178 46790178).
 
 (deftest misc.529
   (let* ((x -2367.3296f0)
-	 (y 46790178)
-	 (form `(lambda (r p2)
-		  (declare (optimize speed (safety 1))
-			   (type (simple-array single-float nil) r)
-			   (type (eql 46790178) p2))
-		  (setf (aref r) (+ ,x (the (integer 45893897) p2)))
-		  (values)))
-	 (r (make-array nil :element-type 'single-float))
-	 (expected (+ x y)))
+         (y 46790178)
+         (form `(lambda (r p2)
+                  (declare (optimize speed (safety 1))
+                           (type (simple-array single-float nil) r)
+                           (type (eql 46790178) p2))
+                  (setf (aref r) (+ ,x (the (integer 45893897) p2)))
+                  (values)))
+         (r (make-array nil :element-type 'single-float))
+         (expected (+ x y)))
     (funcall (compile nil form) r y)
     (let ((actual (aref r)))
       (unless (eql expected actual)
-	(list expected actual))))
+        (list expected actual))))
   nil)
 
 ;;; cmucl (Jan 2005 snapshot)
@@ -9833,19 +9833,19 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.530
   (let* ((v (make-array
-	     '(11) :element-type 'double-float
-	     :initial-contents
-	     '(56826.586316245484d0 -57680.53641925701d0 68651.27735979737d0
-	       30934.627728043164d0 47252.736017400945d0 35129.46986219467d0
-	       -57804.412938803005d0 13000.374416975968d0 50263.681826551256d0
-	       89386.08276072948d0 -89508.77479231959d0)))
-	 (form
-	  `(lambda (r)
-	     (declare (optimize speed (safety 1))
-		      (type (simple-array t nil) r))
-	     (setf (aref r)
-		   (array-has-fill-pointer-p ,v))))
-	 (r (make-array nil)))
+             '(11) :element-type 'double-float
+             :initial-contents
+             '(56826.586316245484d0 -57680.53641925701d0 68651.27735979737d0
+               30934.627728043164d0 47252.736017400945d0 35129.46986219467d0
+               -57804.412938803005d0 13000.374416975968d0 50263.681826551256d0
+               89386.08276072948d0 -89508.77479231959d0)))
+         (form
+          `(lambda (r)
+             (declare (optimize speed (safety 1))
+                      (type (simple-array t nil) r))
+             (setf (aref r)
+                   (array-has-fill-pointer-p ,v))))
+         (r (make-array nil)))
     (funcall (compile nil form) r)
     (eqlt (aref r) (array-has-fill-pointer-p v)))
   t)
@@ -9874,14 +9874,14 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.533
   (let* ((r (make-array nil))
-	 (c #c(208 -51494/29889))
-	 (form `(lambda (r p1)
-		  (declare (optimize speed (safety 1))
-			   (type (simple-array t nil) r)
-			   (type number p1))
-		  (setf (aref r) (+ (the (eql ,c) p1) -319284))
-		  (values)))
-	 (fn (compile nil form)))
+         (c #c(208 -51494/29889))
+         (form `(lambda (r p1)
+                  (declare (optimize speed (safety 1))
+                           (type (simple-array t nil) r)
+                           (type number p1))
+                  (setf (aref r) (+ (the (eql ,c) p1) -319284))
+                  (values)))
+         (fn (compile nil form)))
     (funcall fn r c)
     (eqlt (aref r) (+ -319284 c)))
   t)
@@ -9895,13 +9895,13 @@ Broken at C::WT-MAKE-CLOSURE.
      (compile
       nil
       '(lambda (r p1 p2 p3)
-	 (declare (optimize speed (safety 1))
-		  (type (eql 4134713351/6105637898) p2)
-		  (type (eql 2685) p3))
-	 (setf (aref r)
-	       (if p1
-		   (the (eql 4134713351/6105637898) p2)
-		 (the (integer * 8391301) p3)))))
+         (declare (optimize speed (safety 1))
+                  (type (eql 4134713351/6105637898) p2)
+                  (type (eql 2685) p3))
+         (setf (aref r)
+               (if p1
+                   (the (eql 4134713351/6105637898) p2)
+                 (the (integer * 8391301) p3)))))
      r0 t 4134713351/6105637898 2685)
     (aref r0))
   4134713351/6105637898)
@@ -9924,11 +9924,11 @@ Broken at C::WT-MAKE-CLOSURE.
      (compile
       nil
       `(lambda (p1 p2)
-	 (declare (optimize speed (safety 1))
-		  (type (simple-array t nil) r)
-		  (type (eql ,c0) p1)
-		  (type number p2))
-	 (eql (the (complex double-float) p1) p2)))
+         (declare (optimize speed (safety 1))
+                  (type (simple-array t nil) r)
+                  (type (eql ,c0) p1)
+                  (type number p2))
+         (eql (the (complex double-float) p1) p2)))
      c0 #c(12 612/979)))
   nil)
 
@@ -9939,8 +9939,8 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p1 p2)
        (declare (optimize speed (safety 1))
-		(type (eql #c(11963908204 1/6)) p1)
-		(type (complex rational) p2))
+                (type (eql #c(11963908204 1/6)) p1)
+                (type (complex rational) p2))
        (eql p1 (the complex p2))))
    #c(11963908204 1/6) #c(2343315619 5252231066))
   nil)
@@ -9948,16 +9948,16 @@ Broken at C::WT-MAKE-CLOSURE.
 ;;; Comparison of bit vectors in compiled code
 (deftest misc.537
   (let ((p1 (make-array '(0) :element-type 'bit
-			:adjustable t)))
+                        :adjustable t)))
     (notnot
      (funcall
       (compile
        nil
        `(lambda (p2)
-	  (declare (optimize speed (safety 1))
-		   (type (simple-array t nil) r)
-		   (type (simple-bit-vector 0) p2))
-	  (equal ,p1 (the (bit-vector 0) p2))))
+          (declare (optimize speed (safety 1))
+                   (type (simple-array t nil) r)
+                   (type (simple-bit-vector 0) p2))
+          (equal ,p1 (the (bit-vector 0) p2))))
       #*)))
   t)
 
@@ -9976,9 +9976,9 @@ Broken at C::WT-MAKE-CLOSURE.
    (complexp
     (funcall
      (compile nil '(lambda (x)
-		     (declare (OPTIMIZE SPEED (SAFETY 1))
-			      (type (eql #c(0 -8)) x))
-		     (sqrt x)))
+                     (declare (OPTIMIZE SPEED (SAFETY 1))
+                              (type (eql #c(0 -8)) x))
+                     (sqrt x)))
      #c(0 -8))))
   t)
 
@@ -9986,10 +9986,10 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.540
   (let* ((d0 #(a b c d e f g h))
-	 (d1 (make-array 5
-			 :fill-pointer 1
-			 :displaced-to d0
-			 :displaced-index-offset 2)))
+         (d1 (make-array 5
+                         :fill-pointer 1
+                         :displaced-to d0
+                         :displaced-index-offset 2)))
     (find #c(1.0 2.0) d1))
   nil)
 
@@ -10023,7 +10023,7 @@ Broken at C::WT-MAKE-CLOSURE.
    (compile
     nil
     (let ((bv1 (copy-seq #*1))
-	  (bv2 (copy-seq #*1)))
+          (bv2 (copy-seq #*1)))
       `(lambda () (eq ,bv1 ,bv2)))))
   nil)
 
@@ -10036,9 +10036,9 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p1)
         (declare (optimize speed (safety 1))
-		 ; (type (simple-array t nil) r)
-		 (type (integer 2493220 2495515) p1))
-	(* p1 #c(1123113 -260528))))
+                 ; (type (simple-array t nil) r)
+                 (type (integer 2493220 2495515) p1))
+        (* p1 #c(1123113 -260528))))
    2493726)
   #C(2800736089038 -649685447328))
 
@@ -10050,12 +10050,12 @@ Broken at C::WT-MAKE-CLOSURE.
      (complexp
       (funcall
        (compile
-	nil
-	`(lambda (p1)
-	   (declare (optimize speed (safety 1))
-		    (type (long-float ,n 0.0l0) p1))
-	   (sqrt p1)))
-	 n))))
+        nil
+        `(lambda (p1)
+           (declare (optimize speed (safety 1))
+                    (type (long-float ,n 0.0l0) p1))
+           (sqrt p1)))
+         n))))
   t)
 
 ;;; OpenMCL
@@ -10077,7 +10077,7 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p1)
        (declare (optimize (speed 0) (safety 1) (debug 2) (space 3))
-		(type (eql a) p1))
+                (type (eql a) p1))
        (typep p1 (type-of ""))))
    'a)
   nil)
@@ -10090,7 +10090,7 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p1)
        (declare (optimize (speed 3) (safety 3) (debug 0) (space 3))
-		(type symbol p1))
+                (type symbol p1))
        (typep (the (eql :c1) p1) (type-of "b"))))
    :c1)
   nil)
@@ -10103,8 +10103,8 @@ Broken at C::WT-MAKE-CLOSURE.
     (compile
      nil
      '(lambda (p1)
-	(declare (optimize (speed 2) (safety 1) (debug 3) (space 2)))
-	(atom (the (member f assoc-if write-line t w) p1))))
+        (declare (optimize (speed 2) (safety 1) (debug 3) (space 2)))
+        (atom (the (member f assoc-if write-line t w) p1))))
     t))
   t)
 
@@ -10116,7 +10116,7 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p2)
        (declare (optimize (speed 1) (safety 1) (debug 0) (space 3))
-		(type symbol p2))
+                (type symbol p2))
        (and :a (the (eql t) p2))))
    t)
   t)
@@ -10127,8 +10127,8 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p1 p2)
        (declare (optimize (speed 3) (safety 2) (debug 3) (space 3))
-		(type atom p1)
-		(type symbol p2))
+                (type atom p1)
+                (type symbol p2))
        (or p1 (the (eql t) p2))))
    nil t)
   t)
@@ -10139,8 +10139,8 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p1 p2)
        (declare (optimize (speed 1) (safety 1) (debug 3) (space 3))
-		(type symbol p1)
-		(type (integer * 55687) p2))
+                (type symbol p1)
+                (type (integer * 55687) p2))
        (funcall (the (eql +) p1) (the (integer -93015310 16215) p2) 2952)))
    '+ 823)
   3775)
@@ -10148,8 +10148,8 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.551a
   (funcall
    (compile nil '(lambda (x) (declare (optimize (speed 2))
-				      (type symbol x))
-		   (the (eql t) x)))
+                                      (type symbol x))
+                   (the (eql t) x)))
    t)
   t)
 
@@ -10161,7 +10161,7 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p1)
        (declare (optimize (speed 3) (safety 1) (debug 2) (space 2))
-		(type unsigned-byte p1))
+                (type unsigned-byte p1))
        (logbitp (the (integer -780969457 *) p1) 9)))
    26)
   nil)
@@ -10171,7 +10171,7 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.553
   (funcall (compile nil '(lambda (x) (declare (type (eql #c(1.0 2.0)) x)) x))
-	   #c(1.0 2.0))
+           #c(1.0 2.0))
   #c(1.0 2.0))
 
 ;;; 1 is not of type SEQUENCE
@@ -10186,9 +10186,9 @@ Broken at C::WT-MAKE-CLOSURE.
   (notnot
    (funcall
     (compile nil '(lambda (p1)
-		    (declare (optimize (speed 1) (safety 2) (debug 2) (space 0))
-			     (type keyword p1))
-		    (keywordp p1)))
+                    (declare (optimize (speed 1) (safety 2) (debug 2) (space 0))
+                             (type keyword p1))
+                    (keywordp p1)))
     :c))
   t)
 
@@ -10198,12 +10198,12 @@ Broken at C::WT-MAKE-CLOSURE.
   (values
    (funcall
     (compile nil '(lambda (p1 p2)
-		    (declare
-		     (optimize (speed 1) (safety 0)
-			       (debug 0) (space 0))
-		     (type (member 8174.8604) p1)
-		     (type (member -95195347) p2))
-		    (floor p1 p2)))
+                    (declare
+                     (optimize (speed 1) (safety 0)
+                               (debug 0) (space 0))
+                     (type (member 8174.8604) p1)
+                     (type (member -95195347) p2))
+                    (floor p1 p2)))
     8174.8604 -95195347))
   -1)
 
@@ -10215,9 +10215,9 @@ Broken at C::WT-MAKE-CLOSURE.
     (compile
      nil
      '(lambda (p1)
-	(declare (optimize (speed 3) (safety 0) (debug 3) (space 1))
-		 (type (member -94430.086f0) p1))
-	(floor (the single-float p1) 19311235)))
+        (declare (optimize (speed 3) (safety 0) (debug 3) (space 1))
+                 (type (member -94430.086f0) p1))
+        (floor (the single-float p1) 19311235)))
     -94430.086f0))
   -1)
 
@@ -10229,10 +10229,10 @@ Broken at C::WT-MAKE-CLOSURE.
     (compile
      nil
      '(lambda (p1)
-	      (declare (optimize (speed 1) (safety 2)
-				 (debug 2) (space 3))
-		       (type (eql -39466.56f0) p1))
-	      (ffloor p1 305598613)))
+              (declare (optimize (speed 1) (safety 2)
+                                 (debug 2) (space 3))
+                       (type (eql -39466.56f0) p1))
+              (ffloor p1 305598613)))
     -39466.56f0))
   -1.0f0)
 
@@ -10244,9 +10244,9 @@ Broken at C::WT-MAKE-CLOSURE.
     (compile
      nil
      '(lambda (p1)
-	(declare (optimize (speed 1) (safety 1) (debug 1) (space 2))
-		 (type (eql -83232.09f0) p1))
-	(ceiling p1 -83381228)))
+        (declare (optimize (speed 1) (safety 1) (debug 1) (space 2))
+                 (type (eql -83232.09f0) p1))
+        (ceiling p1 -83381228)))
     -83232.09f0))
   1)
 
@@ -10257,10 +10257,10 @@ Broken at C::WT-MAKE-CLOSURE.
     (compile
      nil
      '(lambda (p1)
-	(declare (optimize (speed 1) (safety 1)
-			   (debug 1) (space 0))
-		 (type (member -66414.414f0) p1))
-	(ceiling p1 -63019173f0)))
+        (declare (optimize (speed 1) (safety 1)
+                           (debug 1) (space 0))
+                 (type (member -66414.414f0) p1))
+        (ceiling p1 -63019173f0)))
     -66414.414f0))
   1)
 
@@ -10272,10 +10272,10 @@ Broken at C::WT-MAKE-CLOSURE.
     (compile
      nil
      '(lambda (p1)
-	(declare (optimize (speed 0) (safety 1)
-			   (debug 0) (space 1))
-		 (type (eql 20851.398f0) p1))
-	(fceiling p1 80839863)))
+        (declare (optimize (speed 0) (safety 1)
+                           (debug 0) (space 1))
+                 (type (eql 20851.398f0) p1))
+        (fceiling p1 80839863)))
     20851.398f0))
   1.0f0)
 
@@ -10284,9 +10284,9 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.562
   (let ((fn '(lambda (p1)
-	       (declare (optimize (speed 0) (safety 0) (debug 0) (space 2))
-			(type (complex rational) p1))
-	       (log p1))))
+               (declare (optimize (speed 0) (safety 0) (debug 0) (space 2))
+                        (type (complex rational) p1))
+               (log p1))))
     (notnot (complexp (funcall (compile nil fn) #C(-215549 39/40)))))
   t)
 
@@ -10295,10 +10295,10 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.563
   (funcall (compile nil '(lambda (x)
-			   (declare (optimize (speed 1) (safety 0) (debug 3) (space 1))
-				    (type (complex rational) x))
-			   (conjugate (the (eql #c(1 2)) x))))
-	   #c(1 2))
+                           (declare (optimize (speed 1) (safety 0) (debug 3) (space 1))
+                                    (type (complex rational) x))
+                           (conjugate (the (eql #c(1 2)) x))))
+           #c(1 2))
   #c(1 -2))
 
 ;;; PHASE
@@ -10311,9 +10311,9 @@ Broken at C::WT-MAKE-CLOSURE.
      (compile
       nil
       '(lambda (p1)
-	 (declare (optimize (speed 3) (safety 2) (debug 3) (space 0))
-		  (type complex p1))
-	 (phase (the (eql #c(1.0d0 2.0d0)) p1))))
+         (declare (optimize (speed 3) (safety 2) (debug 3) (space 0))
+                  (type complex p1))
+         (phase (the (eql #c(1.0d0 2.0d0)) p1))))
      #c(1.0d0 2.0d0))
     'double-float))
   t)
@@ -10327,7 +10327,7 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (x)
        (declare (optimize (speed 2) (safety 1) (debug 3) (space 0))
-		(type double-float x))
+                (type double-float x))
        (not (the (eql 1.0d0) x))))
    1.0d0)
   nil)
@@ -10355,9 +10355,9 @@ Broken at C::WT-MAKE-CLOSURE.
     (compile
      nil
      '(lambda (p2)
-	(declare (optimize (speed 3) (safety 1) (debug 0) (space 1))
-		 (type (integer -26794287907 505600792) p2))
-	(scale-float -15193.341216130497d0 (the (integer * 25) p2))))
+        (declare (optimize (speed 3) (safety 1) (debug 0) (space 1))
+                 (type (integer -26794287907 505600792) p2))
+        (scale-float -15193.341216130497d0 (the (integer * 25) p2))))
     -4)
    (scale-float -15193.341216130497d0 -4))
   t)
@@ -10370,9 +10370,9 @@ Broken at C::WT-MAKE-CLOSURE.
   (values
    (funcall
    (compile nil '(lambda (p2)
-		  (declare (optimize (speed 1) (safety 3) (debug 3) (space 1))
-		   (type (rational * 5325/3112) p2))
-		  (floor 13026.059 (the (member 5325/3112 0 -2316/167 -449/460) p2))))
+                  (declare (optimize (speed 1) (safety 3) (debug 3) (space 1))
+                   (type (rational * 5325/3112) p2))
+                  (floor 13026.059 (the (member 5325/3112 0 -2316/167 -449/460) p2))))
    5325/3112))
   7612)
 
@@ -10391,8 +10391,8 @@ Broken at C::WT-MAKE-CLOSURE.
 ;;; Incorrect return value
 (deftest misc.570
   (funcall (compile nil '(lambda ()
-			  (declare (optimize (speed 3) (safety 1)))
-			  (char-equal #\: #\: #\;))))
+                          (declare (optimize (speed 3) (safety 1)))
+                          (char-equal #\: #\: #\;))))
   nil)
 
 ;;; CODE-CHAR returns incorrect result
@@ -10401,14 +10401,14 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.571
   (and (< 1000 char-code-limit)
        (let ((c1 (code-char 1000))
-	     (c2
-	      (funcall (compile nil '(lambda (x)
-				      (declare (optimize speed (safety 1)))
-				      (code-char x)))
-		       1000)))
-	 (if (not (eql c1 c2))
-	     (list c1 c2)
-	     nil)))
+             (c2
+              (funcall (compile nil '(lambda (x)
+                                      (declare (optimize speed (safety 1)))
+                                      (code-char x)))
+                       1000)))
+         (if (not (eql c1 c2))
+             (list c1 c2)
+             nil)))
   nil)
 
 ;;; sbcl 0.8.20.19
@@ -10420,11 +10420,11 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p4)
        (declare (optimize (speed 1) (safety 2) (debug 1) (space 1))
-		(type (integer -59 65558) p4))
+                (type (integer -59 65558) p4))
        (string<= #.(coerce "1yapt1l7eeenz72u6xqhdfimcyk" 'base-string)
-		 #.(coerce "bababababbbabbabbababb" 'base-string)
-		 :start2
-		 (the (integer -3735 *) p4))))
+                 #.(coerce "bababababbbabbabbababb" 'base-string)
+                 :start2
+                 (the (integer -3735 *) p4))))
    22)
   nil)
 
@@ -10436,10 +10436,10 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p4)
        (declare (optimize (speed 2) (safety 1) (debug 2) (space 2))
-		(type unsigned-byte p4))
+                (type unsigned-byte p4))
        (string<= (coerce "pdhd5oeynvqlthz3xrrdycotf" 'base-string)
-		 (coerce "" 'base-string)
-		 :start1 (the (integer * 81) p4))))
+                 (coerce "" 'base-string)
+                 :start1 (the (integer * 81) p4))))
    10)
   nil)
 
@@ -10451,19 +10451,19 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p4)
        (declare (optimize (speed 3) (safety 1)
-			  (debug 1) (space 2))
-		(type (integer * 397079023) p4))
-	     (string<= (coerce "e99mo7yAJ6oU4" 'base-string)
-		       (coerce "aaABAAbaa" 'base-string)
-		       :start1
-		       (the
-			   (member -34
-				   131074
-				   67108872
-				   9
-				   -3305367300
-				   335)
-			 p4))))
+                          (debug 1) (space 2))
+                (type (integer * 397079023) p4))
+             (string<= (coerce "e99mo7yAJ6oU4" 'base-string)
+                       (coerce "aaABAAbaa" 'base-string)
+                       :start1
+                       (the
+                           (member -34
+                                   131074
+                                   67108872
+                                   9
+                                   -3305367300
+                                   335)
+                         p4))))
    9)
   9)
 
@@ -10491,8 +10491,8 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.578
   (funcall (compile nil '(lambda (p1) (declare (optimize safety)) (the (string 1) p1)))
-	   (make-array '(1) :element-type 'base-char :initial-element #\x
-		       :fill-pointer 0))
+           (make-array '(1) :element-type 'base-char :initial-element #\x
+                       :fill-pointer 0))
   "")
 
 ;;; clisp (11 Jan 2005)
@@ -10502,8 +10502,8 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.579
   (funcall
    (compile nil '(lambda ()
-		   (declare (optimize (speed 3) (safety 3) (debug 3) (space 0)))
-		   (member 61 '(432445) :allow-other-keys t :foo t))))
+                   (declare (optimize (speed 3) (safety 3) (debug 3) (space 0)))
+                   (member 61 '(432445) :allow-other-keys t :foo t))))
   nil)
 
 ;;; sbcl 0.8.20.19
@@ -10520,8 +10520,8 @@ Broken at C::WT-MAKE-CLOSURE.
    (floatp
     (funcall
      (compile nil '(lambda (x)
-		     (declare (type (eql -5067.2056) x))
-		     (+ 213734822 x)))
+                     (declare (type (eql -5067.2056) x))
+                     (+ 213734822 x)))
      -5067.2056)))
   t)
 
@@ -10530,9 +10530,9 @@ Broken at C::WT-MAKE-CLOSURE.
    (typep
     (funcall
      (compile nil '(lambda (x) (declare (type (eql -1.0) x))
-		     ;;; Note!  #x1000001 is the least positive integer
-		     ;;; for which this fails on x86
-		     (+ #x1000001 x)))
+                     ;;; Note!  #x1000001 is the least positive integer
+                     ;;; for which this fails on x86
+                     (+ #x1000001 x)))
      -1.0f0)
     'single-float))
   t)
@@ -10578,9 +10578,9 @@ Broken at C::WT-MAKE-CLOSURE.
      nil
      '(lambda (p1 p2)
         (declare (optimize (speed 1) (safety 1) (debug 0) (space 1))
-        	 (type (member -3712.8447) p1)
-		 (type (integer -34359738403 -24) p2))
-	(scale-float p1 p2)))
+                 (type (member -3712.8447) p1)
+                 (type (integer -34359738403 -24) p2))
+        (scale-float p1 p2)))
     -3712.8447 -27)
    (scale-float -3712.8447 -27))
   t)
@@ -10591,9 +10591,9 @@ Broken at C::WT-MAKE-CLOSURE.
 (deftest misc.585
   (funcall
    (compile nil '(lambda (p1)
-		   (declare (optimize (speed 0) (safety 0) (debug 3) (space 3))
-			    (type symbol p1))
-		   (copy-list p1)))
+                   (declare (optimize (speed 0) (safety 0) (debug 3) (space 3))
+                            (type symbol p1))
+                   (copy-list p1)))
    nil)
   nil)
 
@@ -10605,10 +10605,10 @@ Broken at C::WT-MAKE-CLOSURE.
     nil
     '(lambda (p6)
        (declare (optimize (speed 0) (safety 2) (debug 0) (space 0))
-		(type (integer -2 3009181) p6))
+                (type (integer -2 3009181) p6))
        (string> (coerce "ababaaabb" 'base-string)
-		(coerce "ubbm" 'base-string)
-		:start1 2 :start2 p6 :end1 8)))
+                (coerce "ubbm" 'base-string)
+                :start1 2 :start2 p6 :end1 8)))
    4)
   2)
 
@@ -10617,13 +10617,13 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.587
   (let ((result (funcall
-		 (compile
-		  nil
-		  '(lambda (p2)
-		     (declare (optimize (speed 0) (safety 3) (debug 1) (space 0))
-			      (type (eql 33558541) p2))
-		     (- 92215.266 p2)))
-		 33558541)))
+                 (compile
+                  nil
+                  '(lambda (p2)
+                     (declare (optimize (speed 0) (safety 3) (debug 1) (space 0))
+                              (type (eql 33558541) p2))
+                     (- 92215.266 p2)))
+                 33558541)))
     (notnot (typep result 'single-float)))
   t)
 
@@ -10632,7 +10632,7 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.588
   (funcall (compile nil '(lambda nil (declare (optimize (speed 2) (safety 1) (debug 1) (space 1)))
-			   (functionp 3502843))))
+                           (functionp 3502843))))
   nil)
 
 ;;;  (ARRAY NIL) is an illegal type specifier.
@@ -10651,9 +10651,9 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.591
   (let* ((s1 (coerce "708553218828630100500" 'base-string))
-	 (s2 (make-array '(13) :element-type 'base-char
-			 :displaced-to s1
-			 :displaced-index-offset 5)))
+         (s2 (make-array '(13) :element-type 'base-char
+                         :displaced-to s1
+                         :displaced-index-offset 5)))
     (parse-integer s2))
   3218828630100
   13)
@@ -10675,12 +10675,12 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (a b)
        (declare (ignorable a b))
        (declare (optimize (space 3) (debug 0) (safety 1)
-			  (compilation-speed 3) (speed 1)))
+                          (compilation-speed 3) (speed 1)))
        (prog2
-	   (catch 'ct1 (if (or (and t (not (and (and (or a t) nil) nil))) nil)
-			   a
-			 (reduce #'(lambda (lmv5 lmv2) 0) (vector b 0 a))))
-	   0)))
+           (catch 'ct1 (if (or (and t (not (and (and (or a t) nil) nil))) nil)
+                           a
+                         (reduce #'(lambda (lmv5 lmv2) 0) (vector b 0 a))))
+           0)))
    2212755 3154856)
   0)
 
@@ -10694,10 +10694,10 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (a b c)
        (declare (ignorable a b c))
        (declare (type (integer -1 0) a)
-		(type (integer -1065019672 -181184465) b)
-		(type (integer 30074 1948824693) c))
+                (type (integer -1065019672 -181184465) b)
+                (type (integer 30074 1948824693) c))
        (declare (optimize (safety 2) (compilation-speed 1) (speed 2)
-			  (space 0) (debug 0)))
+                          (space 0) (debug 0)))
        (ash c (min 82 -28192897))))
    0 -714979492 1474663829)
   0)
@@ -10719,8 +10719,8 @@ Broken at C::WT-MAKE-CLOSURE.
       (compile
        nil
        `(lambda ()
-	  (declare (optimize (speed 0) (safety 3) (debug 2) (space 1)))
-	  (typep ,s '(string 1)))))))
+          (declare (optimize (speed 0) (safety 3) (debug 2) (space 1)))
+          (typep ,s '(string 1)))))))
   t)
 
 
@@ -10729,11 +10729,11 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.597
   (funcall (compile nil '(lambda (c)
-			   (declare (optimize (speed 1) (compilation-speed 2)
-					      (space 1) (debug 1) (safety 2)))
-			   (declare (type (integer 1 41) c))
-			   (logxor -1 c)))
-	   8)
+                           (declare (optimize (speed 1) (compilation-speed 2)
+                                              (space 1) (debug 1) (safety 2)))
+                           (declare (type (integer 1 41) c))
+                           (logxor -1 c)))
+           8)
   -9)
 
 ;;; SBCL 0.9.1.19
@@ -10741,11 +10741,11 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.598
   (funcall (compile nil '(lambda (p1)
-			   (declare (optimize (speed 2) (safety 0) (debug 3)
-					      (space 1))
-				    (type short-float p1))
-			   (imagpart (the short-float p1))))
-	   -79916.61s0)
+                           (declare (optimize (speed 2) (safety 0) (debug 3)
+                                              (space 1))
+                                    (type short-float p1))
+                           (imagpart (the short-float p1))))
+           -79916.61s0)
   -0.0s0)
 
 ;;; The value 20408096470 is not of type (INTEGER 19856842407 20640917103)
@@ -10757,7 +10757,7 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda (b)
        (declare (type (integer 19856842407 20640917103) b))
        (declare (optimize (debug 1) (speed 3) (compilation-speed 2)
-			  (safety 3) (space 3)))
+                          (safety 3) (space 3)))
        (lognand b (deposit-field b (byte 0 0) 3762528061))))
    20408096470)
   -3225589269)
@@ -10772,7 +10772,7 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda ()
        (declare (notinline min ash))
        (declare (optimize (speed 0) (debug 1) (safety 1)
-			  (space 1) (compilation-speed 3)))
+                          (space 1) (compilation-speed 3)))
        (logxor (ash 0 (min 90 0)) 0))))
   0)
 
@@ -10783,8 +10783,8 @@ Broken at C::WT-MAKE-CLOSURE.
     '(lambda ()
        (declare (notinline gcd))
        (declare
-	(optimize (debug 3) (space 3) (safety 3)
-		  (compilation-speed 2) (speed 3)))
+        (optimize (debug 3) (space 3) (safety 3)
+                  (compilation-speed 2) (speed 3)))
        (logeqv 0 (gcd 0)))))
   -1)
 
@@ -10819,9 +10819,9 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.605
   (let ((form '(lambda (p1 p2)
-		 (declare (optimize (speed 3) (safety 1) (debug 0) (space 0))
-			  (type number p1) (type (float 0.0 3579.314s0) p2))
-		 (eql (the real p1) p2))))
+                 (declare (optimize (speed 3) (safety 1) (debug 0) (space 0))
+                          (type number p1) (type (float 0.0 3579.314s0) p2))
+                 (eql (the real p1) p2))))
     (not (funcall (compile nil form) 3579.314s0 3579.314s0)))
   nil)
 
@@ -10829,8 +10829,8 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.606
   (let ((form '(lambda ()
-		 (declare (optimize (speed 3) (safety 2) (debug 3) (space 2)))
-		 (equal #\a #c(-1775806.0s0 88367.29s0)))))
+                 (declare (optimize (speed 3) (safety 2) (debug 3) (space 2)))
+                 (equal #\a #c(-1775806.0s0 88367.29s0)))))
     (funcall (compile nil form)))
   nil)
 
@@ -10838,45 +10838,55 @@ Broken at C::WT-MAKE-CLOSURE.
 
 (deftest misc.607
   (funcall (compile nil '(lambda ()
-			   (declare (optimize (speed 0) (safety 2) (debug 2) (space 2)))
-			   (equal #*1 1))))
+                           (declare (optimize (speed 0) (safety 2) (debug 2) (space 2)))
+                           (equal #*1 1))))
   nil)
 
 ;;; Error in COMPILER::CMP-ANON [or a callee]: #\& is not of type FIXNUM.
 
 (deftest misc.608
   (funcall (compile nil '(lambda (p1)
-			   (declare (optimize (speed 3) (safety 2) (debug 3) (space 3))
-				    (type (integer -62603278 -31187) p1))
-			   (equal p1 #\&)))
-	   -31228)
+                           (declare (optimize (speed 3) (safety 2) (debug 3) (space 3))
+                                    (type (integer -62603278 -31187) p1))
+                           (equal p1 #\&)))
+           -31228)
   nil)
 
 ;;; Wrong return value (was returning T)
 
 (deftest misc.609
   (funcall (compile nil '(lambda ()
-			   (declare (optimize (speed 0) (safety 0) (debug 0) (space 3)))
-			   (equalp "b" #*))))
+                           (declare (optimize (speed 0) (safety 0) (debug 0) (space 3)))
+                           (equalp "b" #*))))
   nil)
 
 ;;; Error in COMPILER::CMP-ANON [or a callee]: 7933992 is not of type SYMBOL.
 
 (deftest misc.610
   (not (funcall (compile nil '(lambda (p2)
-				(declare (optimize (speed 1) (safety 1) (debug 3) (space 2))
-					 (type (cons symbol) p2))
-				(typep -32 p2)))
-		'(eql -32)))
+                                (declare (optimize (speed 1) (safety 1) (debug 3) (space 2))
+                                         (type (cons symbol) p2))
+                                (typep -32 p2)))
+                '(eql -32)))
   nil)
 
 ;;; Error in CAR [or a callee]: -757161859 is not of type LIST.
 
 (deftest misc.611
   (funcall (compile nil '(lambda (p1)
-			   (declare (optimize (speed 1) (safety 3) (debug 0) (space 2))
-				    (type (cons atom) p1))
-			   (car p1)))
-	   '(48144509 . a))
+                           (declare (optimize (speed 1) (safety 3) (debug 0) (space 2))
+                                    (type (cons atom) p1))
+                           (car p1)))
+           '(48144509 . a))
   48144509)
 
+;;; gcl (09 Aug 2005)
+;;; Error in COMPILER::POSSIBLE-EQ-LIST-SEARCH [or a callee]: COMPILER::POSSIBLE-EQ-LIST-SEARCH does not allow the keyword :B.
+
+(deftest misc.612
+  (funcall
+   (compile nil '(lambda (p1 p2)
+                  ((lambda (x y) (typep x (type-of y))) p1
+                   (the (member "foo" #\- :b "bar") p2))))
+   #*1 :b)
+  nil)