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