X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-type.lisp;h=31f05ae0d159e06baf7ec0eccbe1c5bb2319cb46;hb=25fe91bf63fd473d9316675b0e0ca9be0079e9eb;hp=b1833ec372389983ddbb830c51bbed154a61fe3b;hpb=c906a1440506a4133adf3e77371bde75ad7721ee;p=sbcl.git

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index b1833ec..31f05ae 100644
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -341,9 +341,9 @@
   ;              (sort (mapcar #'car pairs) #'<)))
   ;; aver that the cars of the list elements are sorted into increasing order
   (aver (or (null pairs)
-	    (do ((p pairs (cdr p)))
-		((null (cdr p)) t)
-	      (when (> (caar p) (caadr p)) (return nil)))))
+            (do ((p pairs (cdr p)))
+                ((null (cdr p)) t)
+              (when (> (caar p) (caadr p)) (return nil)))))
   (let ((pairs (let (result)
                 (do ((pairs pairs (cdr pairs)))
                     ((null pairs) (nreverse result))