X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ferror-error.lisp;h=cefeab5e3ed58bc30b8fb0b13cd18deb6157c8d2;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=5d3be6f1b4f8a640428ac3b7cc114f101316479f;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/error-error.lisp b/src/code/error-error.lisp
index 5d3be6f..cefeab5 100644
--- a/src/code/error-error.lisp
+++ b/src/code/error-error.lisp
@@ -36,7 +36,7 @@
         (dolist (item messages)
           (princ item *terminal-io*))
         (terpri *terminal-io*)
-        (sb!debug:backtrace most-positive-fixnum *terminal-io*)
+        (sb!debug:backtrace :stream *terminal-io*)
         (force-output *terminal-io*)
         (invoke-debugger
          (coerce-to-condition "Maximum error nesting depth exceeded" nil