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