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

- Dynamically bind the condition as well in the debugger, not only

Browse source 
the message (the condition object holds important data which can be
   used programmatically).
 - Raise some *PRINT-LENGTH* limits in the debugger.  Having a limit
   is wise, but when it is too short the debugger can be rather
   useless.  Use 16 instead of the previous 2 or 4.
This commit is contained in:
Matthew Mondor 2015-08-26 09:36:38 -04:00
parent 9489b80c26
commit b0e7937f45
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

@ -41,6 +41,7 @@
(defparameter *last-error* nil)
(defparameter *break-message* nil)
(defparameter *break-condition* nil)
(defparameter *break-readtable* nil)
(defparameter *tpl-level* -1) ; nesting level of top-level loops
@ -773,7 +774,7 @@ Use special code 0 to cancel this operation.")
(defun tpl-disassemble-command ()
(let*((*print-level* 2)
(*print-length* 4)
(*print-length* 16)
(*print-pretty* t)
(*print-escape* nil)
(*print-readably* nil)
@ -1014,7 +1015,7 @@ Use special code 0 to cancel this operation.")
(defun tpl-variables-command (&optional no-values)
(let*((*print-level* 2)
(*print-length* 4)
(*print-length* 16)
(*print-pretty* t)
(*print-escape* nil)
(*print-readably* nil))
@ -1060,7 +1061,7 @@ Use special code 0 to cancel this operation.")
(last (frs-bds (1+ *frs-top*)))
(fi *frs-base*)
(*print-level* 2)
(*print-length* 4)
(*print-length* 16)
(*print-pretty* t))
((> bi last) (values))
(do ()
@ -1134,7 +1135,7 @@ Use special code 0 to cancel this operation.")
((= k 0) (values))
(let*((j (or (sch-frs-base *frs-base* i) (1+ *frs-top*)))
(*print-level* 2)
(*print-length* 4)
(*print-length* 16)
(*print-pretty* t))
(do () ((or (> j *frs-top*) (> (frs-ihs j) i)))
(print-frs j)
@ -1429,10 +1430,11 @@ package."
(*print-readably* nil)
(*print-pretty* nil)
(*print-circle* t)
(*print-length* 2)
(*print-length* 16)
(*readtable* (or *break-readtable* *readtable*))
(*break-message* (format nil "~&Condition of type: ~A~%~A~%"
(type-of condition) condition))
(*break-condition* condition)
(*break-level* (1+ *break-level*))
(break-level *break-level*)
(*break-env* nil))