X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ferror.lisp;h=db40332d30f9412c229107978e82827044c26329;hb=3f3033a6c0ddf0af8dd1b5a17c2a4b82ea59b94f;hp=085264c3834dfea00ae6b849b621f16c5d72270a;hpb=e7ef1082bd3e7f3851de9d90c5dbddf226a71382;p=sbcl.git

diff --git a/src/code/error.lisp b/src/code/error.lisp
index 085264c..db40332 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -164,6 +164,28 @@ calls, or a tail call that SBCL cannot or has not optimized away.
 
 PROCEED WITH CAUTION."))))
 
+(define-condition binding-stack-exhausted (storage-condition)
+  ()
+  (:report
+    (lambda (condition stream)
+      (declare (ignore condition))
+      (format stream
+              ;; no pretty-printing, because that would use a lot of stack.
+              "Binding stack exhausted.
+
+PROCEED WITH CAUTION."))))
+
+(define-condition alien-stack-exhausted (storage-condition)
+  ()
+  (:report
+    (lambda (condition stream)
+      (declare (ignore condition))
+      (format stream
+              ;; no pretty-printing, because that would use a lot of stack.
+              "Alien stack exhausted.
+
+PROCEED WITH CAUTION."))))
+
 (define-condition heap-exhausted-error (storage-condition)
   ()
   (:report