--
Matt
>From c781325c781407c4187fd8cb00ec23e5a8e6c8db Mon Sep 17 00:00:00 2001
From: Matthew Mondor <mmon...@pulsar-zone.net>
Date: Tue, 26 Nov 2013 21:54:32 -0500
Subject: [PATCH] - Dynamically bind the condition as well in the debugger,
not only the message - 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.
---
src/lsp/top.lsp | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index 3e830a6..d60cedf 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -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
@@ -772,7 +773,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)
@@ -1013,7 +1014,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))
@@ -1059,7 +1060,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 ()
@@ -1133,7 +1134,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)
@@ -1428,10 +1429,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))
--
1.7.12
------------------------------------------------------------------------------
Rapidly troubleshoot problems before they affect your business. Most IT
organizations don't have a clear picture of how application performance
affects their revenue. With AppDynamics, you get 100% visibility into your
Java,.NET, & PHP application. Start your 15-day FREE TRIAL of AppDynamics Pro!
http://pubads.g.doubleclick.net/gampad/clk?id=84349351&iu=/4140/ostg.clktrk
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
