/[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.45 by rtoy, Fri Jun 30 18:41:22 2006 UTC revision 1.46 by rtoy, Wed Nov 8 22:09:56 2006 UTC
# Line 682  Line 682 
682  #+stack-checking  #+stack-checking
683  (defun red-zone-hit ()  (defun red-zone-hit ()
684    (format *error-output*    (format *error-output*
685            "~2&~@<Fatal control stack overflow.  You have entered ~            "~2&~@<Fatal control stack overflow.  You have entered~%~
686             the red control stack guard zone while debugging.  ~             the red control stack guard zone while debugging.~%~
687             Returning to Top-Level.~@:>~2%")             Returning to Top-Level.~@:>~2%")
688    (throw 'lisp::top-level-catcher nil))    (throw 'lisp::top-level-catcher nil))
689    
# Line 693  Line 693 
693      ;; Don't reserve any more pages      ;; Don't reserve any more pages
694      (setf lisp::reserved-heap-pages 0)      (setf lisp::reserved-heap-pages 0)
695      (format *error-output*      (format *error-output*
696              "~2&~@<Imminent dynamic space overflow has occurred:  ~              "~2&~@<Imminent dynamic space overflow has occurred:~%~
697              Only a small amount of dynamic space is available now. ~              Only a small amount of dynamic space is available now.~%~
698              Please note that you will be returned to the Top-Level without ~              Please note that you will be returned to the Top-Level without~%~
699              warning if you run out of space while debugging.~@:>~%")              warning if you run out of space while debugging.~@:>~%")
700      (infinite-error-protect (error 'heap-overflow))))      (infinite-error-protect (error 'heap-overflow))))
701    

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

  ViewVC Help
Powered by ViewVC 1.1.5