mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 21:13:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

Wrap printing *break-message* in ignore-errors

Browse source 
This is to prevent infinite recursion if *error-output* is full.

Fixes #43.
This commit is contained in:
Daniel Kochmański 2016-11-19 22:10:57 +01:00
parent 4bd6e91ddd
commit caba1989f4
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/lsp/top.lsp
View file

@ -1453,9 +1453,13 @@ package."
;; Like in SBCL, the error message is output through *error-output*
;; The rest of the interaction is performed through *debug-io*
(finish-output)
(fresh-line *error-output*)
(terpri *error-output*)
(princ *break-message* *error-output*)
;; We wrap the following in `ignore-errors' because error may be
;; caused by writing to the `*error-output*', what leads to
;; infinite recursion!
(ignore-errors
(fresh-line *error-output*)
(terpri *error-output*)
(princ *break-message* *error-output*))
(loop
;; Here we show a list of restarts and invoke the toplevel with
;; an extended set of commands which includes invoking the associated