Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
9babc9b1
Commit
9babc9b1
authored
Sep 01, 2011
by
rtoy
Browse files
Insert line breaks in the yellow-zone message.
parent
b7b2103a
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/interr.lisp
View file @
9babc9b1
...
@@ -5,7 +5,7 @@
...
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
;;;
(
ext:file-comment
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.5
0
201
0
/0
4/20
1
7
:5
7
:4
4
rtoy
Rel
$"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.5
1
201
1
/0
9/01
1
6
:5
3
:4
6
rtoy
Exp
$"
)
;;;
;;;
;;; **********************************************************************
;;; **********************************************************************
;;;
;;;
...
@@ -666,9 +666,9 @@
...
@@ -666,9 +666,9 @@
(
defun
yellow-zone-hit
()
(
defun
yellow-zone-hit
()
(
let
((
debug:*stack-top-hint*
nil
))
(
let
((
debug:*stack-top-hint*
nil
))
(
format
*error-output*
(
format
*error-output*
(
intl:gettext
"~2&~@<A control stack overflow has occurred:
~
(
intl:gettext
"~2&~@<A control stack overflow has occurred:
~%
~
the program has entered the yellow control stack guard zone.
~
the program has entered the yellow control stack guard zone.
~%
~
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
~%
~
enter the red control stack guard zone while debugging.~@:>~2%"
))
enter the red control stack guard zone while debugging.~@:>~2%"
))
(
infinite-error-protect
(
error
'stack-overflow
))))
(
infinite-error-protect
(
error
'stack-overflow
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment