diff --git a/code/debug.lisp b/code/debug.lisp index a0e9f000f602815a7d9939e792a22c9c06b617c4..f820337167d58ff4d44619de481a3d28e3d46d24 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)