From b08b4fdd809048c6de3cf3cb60699ea028350e44 Mon Sep 17 00:00:00 2001 From: cracauer <cracauer> Date: Thu, 16 Jan 2003 20:53:01 +0000 Subject: [PATCH] Backtrace print tuning: Replace the hardcoded default for the keyword parameter "verbosity" when printing backtrace frames with a parameter debug:*default-print-frame-call-verbosity* Default is 1, which is the old value. Setting it >= 2 gets you the source location printed for every frame print in a backtrace (when the source is available). --- code/debug.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/code/debug.lisp b/code/debug.lisp index a0e9f000f..f82033716 100644 --- a/code/debug.lisp +++ b/code/debug.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.55 2001/12/13 01:10:18 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.56 2003/01/16 20:53:01 cracauer Exp $") ;;; ;;; ********************************************************************** ;;; @@ -20,6 +20,7 @@ (export '(internal-debug *in-the-debugger* backtrace *flush-debug-errors* *debug-print-level* *debug-print-length* *debug-prompt* + *default-print-frame-call-verbosity* *debug-readtable* *help-line-scroll-count* *stack-top-hint* *auto-eval-in-frame* var arg @@ -48,6 +49,9 @@ "*PRINT-LENGTH* is bound to this value when debug prints a function call. If null, use *PRINT-LENGTH*.") +(defparameter *default-print-frame-call-verbosity* 1 + "default value for the verbose argument to print-frame-call. If set to >= 2, source will be printed for all frames") + (defvar *in-the-debugger* nil "This is T while in the debugger.") @@ -638,7 +642,7 @@ See the CMU Common Lisp User's Manual for more information. (or *debug-print-length* *print-length*)) ((:print-level *print-level*) (or *debug-print-level* *print-level*)) - (verbosity 1) + (verbosity *default-print-frame-call-verbosity*) (number nil)) (cond ((zerop verbosity) -- GitLab