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