Loading code/debug-int.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -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 $") ;;; ;;; ********************************************************************** ;;; Loading Loading @@ -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 Loading code/ntrace.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -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 $") ;;; ;;; ********************************************************************** ;;; Loading Loading @@ -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 Loading Loading
code/debug-int.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -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 $") ;;; ;;; ********************************************************************** ;;; Loading Loading @@ -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 Loading
code/ntrace.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -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 $") ;;; ;;; ********************************************************************** ;;; Loading Loading @@ -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 Loading