Skip to content
Snippets Groups Projects
Commit 3c509a4a authored by wlott's avatar wlott
Browse files

Bind debug:*stack-top-hint* before calling break.

parent 13a464eb
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -206,9 +206,10 @@
(print-trace-start frame bpt print)) (print-trace-start frame bpt print))
(t (setf conditionp nil))) (t (setf conditionp nil)))
(when (and break (eval break)) (when (and break (eval break))
(break "Breaking before TRACE'd call to ~S." (di:flush-frames-above frame)
(di:debug-function-name (let ((*stack-top-hint* frame))
(di:frame-debug-function frame)))))) (break "Breaking before TRACE'd call to ~S."
function-or-name)))))
debug-fun :kind :function-start)) debug-fun :kind :function-start))
(end (di:make-breakpoint (end (di:make-breakpoint
#'(lambda (frame bpt values cookie) #'(lambda (frame bpt values cookie)
...@@ -219,9 +220,10 @@ ...@@ -219,9 +220,10 @@
print-after)) print-after))
(pop *traced-entries*) (pop *traced-entries*)
(when (and break-after (eval break-after)) (when (and break-after (eval break-after))
(break "Breaking after TRACE'd call to ~S." (di:flush-frames-above frame)
(di:debug-function-name (let ((*stack-top-hint* frame))
(di:frame-debug-function frame))))) (break "Breaking after TRACE'd call to ~S."
function-or-name))))
(pop *traced-entries*))) (pop *traced-entries*)))
debug-fun :kind :function-end debug-fun :kind :function-end
:function-end-cookie :function-end-cookie
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment