mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 14:32:11 -08:00
Code Issues Projects Releases Packages Wiki Activity

debugger: be more error-prone in debugger

Browse source
This commit is contained in:
Daniel Kochmanski 2017-03-19 21:27:50 +01:00
parent 43c19eafe2
commit 1cff676abd
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/lsp/top.lsp
View file

@ -1448,11 +1448,12 @@ package."
(setq *console-owner* mp:*current-process*)
;; As of ECL 9.4.1 making a normal function return from the debugger
;; seems to be a very bad idea! Basically, it dumps core...
(when (listen *debug-io*)
(clear-input *debug-io*))
(ignore-errors
(when (listen *debug-io*)
(clear-input *debug-io*)))
;; Like in SBCL, the error message is output through *error-output*
;; The rest of the interaction is performed through *debug-io*
(finish-output)
(ignore-errors (finish-output))
;; We wrap the following in `ignore-errors' because error may be
;; caused by writing to the `*error-output*', what leads to
;; infinite recursion!