From ed92e5ccc22fc13cb2f808983131b9504f3c1769 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Mon, 21 Jul 2003 13:41:53 +0000 Subject: [PATCH] * src/code/ntrace.lisp (trace-1): Encapsulate if can-set-function-end-breakpoint-p returns false. * src/code/debug-int.lisp (can-set-function-end-breakpoint-p): Return true of compiled-debug-function-returns is :standard. --- code/debug-int.lisp | 4 ++-- code/ntrace.lisp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 05190e6cf..bd7cfe692 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.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-int.lisp,v 1.103 2003/05/11 08:57:13 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.104 2003/07/21 13:41:53 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3855,7 +3855,7 @@ (compiled-debug-function (eq (c::compiled-debug-function-returns (compiled-debug-function-compiler-debug-fun what)) - :what)))) + :standard)))) ;;; These are unique objects created upon entry into a function by a ;;; :function-end breakpoint's starter hook. These are only created when users diff --git a/code/ntrace.lisp b/code/ntrace.lisp index 490ba8e97..9ee0db234 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.27 2003/06/18 09:23:11 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.28 2003/07/21 13:41:53 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -422,7 +422,7 @@ (encapsulated (if (eq (trace-info-encapsulated info) :default) (let ((encapsulate-p - (or (di::can-set-function-end-breakpoint-p debug-fun) + (or (not (di::can-set-function-end-breakpoint-p debug-fun)) (encapsulate-by-package-p function-or-name)))) (ecase kind (:compiled -- GitLab