X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ferror.lisp;h=66a6ebca73cc87dff74f4ab4e880263d32218ddd;hb=caf8bb05a82659e688c125b418783bc8a3bd2be8;hp=8a448f127a2da4ade621ed2959572a34c65cda77;hpb=bff8455d98c50672cdc29abcf1809b8823f5f117;p=sbcl.git

diff --git a/src/code/error.lisp b/src/code/error.lisp
index 8a448f1..66a6ebc 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -60,6 +60,7 @@
   ()
   (: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."))))