mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Switch off the pretty printer while we are debugging.

Browse source
This commit is contained in:
jjgarcia 2004-12-01 16:50:24 +00:00
parent 7b2b3046f5
commit 08056b7589
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/lsp/top.lsp
View file

@ -885,12 +885,14 @@ package."
(declare (si::c-local))
(unless *break-enable*
(throw *quit-tag* nil))
(let*((*break-message* (format nil "~&~A~%" condition))
(*break-level* (1+ *break-level*))
(*break-env* nil)
(*standard-input* *debug-io*)
(let*((*standard-input* *debug-io*)
(*standard-output* *debug-io*)
(*readtable* (or *break-readtable* *readtable*)))
(*print-pretty* nil)
(*print-circle* t)
(*readtable* (or *break-readtable* *readtable*))
(*break-message* (format nil "~&~A~%" condition))
(*break-level* (1+ *break-level*))
(*break-env* nil))
(when (listen *debug-io*)
(clear-input *debug-io*))
(princ *break-message*)