From 3c509a4a454ed6aced7765a2e61ff5213ba8abca Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 10 Mar 1992 18:37:08 +0000
Subject: [PATCH] Bind debug:*stack-top-hint* before calling break.

---
 code/ntrace.lisp | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/code/ntrace.lisp b/code/ntrace.lisp
index a98ed4ad0..167cc2e05 100644
--- a/code/ntrace.lisp
+++ b/code/ntrace.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.5 1992/03/10 15:55:28 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.6 1992/03/10 18:37:08 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -206,9 +206,10 @@
 				  (print-trace-start frame bpt print))
 				 (t (setf conditionp nil)))
 			   (when (and break (eval break))
-			     (break "Breaking before TRACE'd call to ~S."
-				    (di:debug-function-name
-				     (di:frame-debug-function frame))))))
+			     (di:flush-frames-above frame)
+			     (let ((*stack-top-hint* frame))
+			       (break "Breaking before TRACE'd call to ~S."
+				      function-or-name)))))
 		     debug-fun :kind :function-start))
 	     (end (di:make-breakpoint
 		   #'(lambda (frame bpt values cookie)
@@ -219,9 +220,10 @@
 						print-after))
 			     (pop *traced-entries*)
 			     (when (and break-after (eval break-after))
-			       (break "Breaking after TRACE'd call to ~S."
-				      (di:debug-function-name
-				       (di:frame-debug-function frame)))))
+			       (di:flush-frames-above frame)
+			       (let ((*stack-top-hint* frame))
+				 (break "Breaking after TRACE'd call to ~S."
+					function-or-name))))
 			   (pop *traced-entries*)))
 		   debug-fun :kind :function-end
 		   :function-end-cookie
-- 
GitLab