X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Finterr.lisp;h=2ff5f81b3e4208a382cf5f84747d3445d80c79df;hb=6c129930bd75f25a66aa0cbf0e5bc8091401d5ce;hp=02147a8139c52b5850723b242602ad76decf0979;hpb=dc5e3163fe667e2629c7769aa8cf2e501eeeefa6;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index 02147a8..2ff5f81 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -488,6 +488,7 @@
     (infinite-error-protect
      (format *error-output*
 	     "Control stack guard page temporarily disabled: proceed with caution~%")
-     (error "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."))))
+     (error 'control-stack-exhausted))))
+