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

diff --git a/src/code/error.lisp b/src/code/error.lisp
index 25ef8e3..66a6ebc 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -49,6 +49,7 @@
 (define-condition simple-file-error    (simple-condition file-error)    ())
 (define-condition simple-program-error (simple-condition program-error) ())
 (define-condition simple-stream-error  (simple-condition stream-error)  ())
+(define-condition simple-parse-error   (simple-condition parse-error)   ())
 
 ;;; This condition is signalled whenever we make a UNKNOWN-TYPE so that
 ;;; compiler warnings can be emitted as appropriate.
@@ -59,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."))))