0.7.10.30:

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

diff --git a/src/code/error.lisp b/src/code/error.lisp
index 8a448f1..66a6ebc 100644 (file)
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -60,6 +60,7 @@
   ()
   (:report
     (lambda (condition stream)
   ()
   (:report
     (lambda (condition stream)

+      (declare (ignore condition))

       (format stream
              "Control stack exhausted (no more space for function call frames).  This is probably due to heavily nested or infinitely recursive function calls, or a tail call that SBCL cannot or has not optimized away."))))
 
       (format stream
              "Control stack exhausted (no more space for function call frames).  This is probably due to heavily nested or infinitely recursive function calls, or a tail call that SBCL cannot or has not optimized away."))))