From aec7af60fc90c4354be48caa514be784f23c0704 Mon Sep 17 00:00:00 2001 From: cracauer <cracauer> Date: Wed, 29 Jan 2003 21:48:40 +0000 Subject: [PATCH] When tracing, set the verbosity level of print-frame-call to 1. If you use the *default-print-frame-call-verbosity* variable I committed last week (to get source print along with frames in backtraces) then you would also print the source in trace prints. --- code/ntrace.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/ntrace.lisp b/code/ntrace.lisp index 0c9fc68e1..f46546db2 100644 --- a/code/ntrace.lisp +++ b/code/ntrace.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/ntrace.lisp,v 1.18 2003/01/23 21:05:34 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.19 2003/01/29 21:48:40 cracauer Exp $") ;;; ;;; ********************************************************************** ;;; @@ -305,7 +305,7 @@ (if (trace-info-encapsulated info) (locally (declare (special basic-definition argument-list)) (prin1 `(,(trace-info-what info) ,@argument-list))) - (print-frame-call frame)) + (print-frame-call frame :verbosity 1)) (terpri) (trace-print frame (trace-info-print info))) (trace-maybe-break info (trace-info-break info) "before" frame))) -- GitLab