0.9.2.43:

[sbcl.git] / src / code / error-error.lisp

diff --git a/src/code/error-error.lisp b/src/code/error-error.lisp
index f76b5b8..5d3be6f 100644 (file)
--- 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))))))