0.7.6.21:

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

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index 95d4437..2ff5f81 100644 (file)
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -482,3 +482,13 @@
                                       arguments))))
                 (t
                  (funcall handler name fp alien-context arguments)))))))))
+
+(defun control-stack-exhausted-error ()
+  (let ((sb!debug:*stack-top-hint* nil))
+    (infinite-error-protect
+     (format *error-output*
+            "Control stack guard page temporarily disabled: proceed with caution~%")
+     (error 'control-stack-exhausted))))
+
+
+