/[cmucl]/src/code/interr.lisp
ViewVC logotype

Diff of /src/code/interr.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by rtoy, Tue Apr 20 17:57:44 2010 UTC revision 1.51 by rtoy, Thu Sep 1 16:53:46 2011 UTC
# Line 666  Line 666 
666  (defun yellow-zone-hit ()  (defun yellow-zone-hit ()
667    (let ((debug:*stack-top-hint* nil))    (let ((debug:*stack-top-hint* nil))
668      (format *error-output*      (format *error-output*
669              (intl:gettext "~2&~@<A control stack overflow has occurred: ~              (intl:gettext "~2&~@<A control stack overflow has occurred:~%~
670              the program has entered the yellow control stack guard zone.  ~              the program has entered the yellow control stack guard zone.~%~
671              Please note that you will be returned to the Top-Level if you ~              Please note that you will be returned to the Top-Level if you~%~
672              enter the red control stack guard zone while debugging.~@:>~2%"))              enter the red control stack guard zone while debugging.~@:>~2%"))
673      (infinite-error-protect (error 'stack-overflow))))      (infinite-error-protect (error 'stack-overflow))))
674    

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

  ViewVC Help
Powered by ViewVC 1.1.5