X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ferror-error.lisp;h=5d3be6f1b4f8a640428ac3b7cc114f101316479f;hb=65b5ab7e713d04e0d76bc0ee196374f6e57b922f;hp=f76b5b82003c675240a17ecb78be7e1fa6a160a8;hpb=165f17e83d068bc971cd41f407518e600c59a905;p=sbcl.git

diff --git a/src/code/error-error.lisp b/src/code/error-error.lisp
index f76b5b8..5d3be6f 100644
--- a/src/code/error-error.lisp
+++ b/src/code/error-error.lisp
@@ -33,12 +33,12 @@
 
     (with-standard-io-syntax
       (let ((*print-readably* nil))
-	(dolist (item messages)
-	  (princ item *terminal-io*))
+        (dolist (item messages)
+          (princ item *terminal-io*))
         (terpri *terminal-io*)
         (sb!debug:backtrace most-positive-fixnum *terminal-io*)
         (force-output *terminal-io*)
-	(invoke-debugger
+        (invoke-debugger
          (coerce-to-condition "Maximum error nesting depth exceeded" nil
                               'simple-error
                               'error))))))