/[cmucl]/src/code/ntrace.lisp
ViewVC logotype

Diff of /src/code/ntrace.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by gerd, Wed Jun 18 09:23:11 2003 UTC revision 1.28 by gerd, Mon Jul 21 13:41:53 2003 UTC
# Line 422  Line 422 
422             (encapsulated             (encapsulated
423              (if (eq (trace-info-encapsulated info) :default)              (if (eq (trace-info-encapsulated info) :default)
424                  (let ((encapsulate-p                  (let ((encapsulate-p
425                         (or (di::can-set-function-end-breakpoint-p debug-fun)                         (or (not (di::can-set-function-end-breakpoint-p debug-fun))
426                             (encapsulate-by-package-p function-or-name))))                             (encapsulate-by-package-p function-or-name))))
427                    (ecase kind                    (ecase kind
428                      (:compiled                      (:compiled

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5