/[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.18 by toy, Thu Jan 23 21:05:34 2003 UTC revision 1.19 by cracauer, Wed Jan 29 21:48:40 2003 UTC
# Line 305  Line 305 
305               (if (trace-info-encapsulated info)               (if (trace-info-encapsulated info)
306                   (locally (declare (special basic-definition argument-list))                   (locally (declare (special basic-definition argument-list))
307                     (prin1 `(,(trace-info-what info) ,@argument-list)))                     (prin1 `(,(trace-info-what info) ,@argument-list)))
308                   (print-frame-call frame))                   (print-frame-call frame :verbosity 1))
309               (terpri)               (terpri)
310               (trace-print frame (trace-info-print info)))               (trace-print frame (trace-info-print info)))
311             (trace-maybe-break info (trace-info-break info) "before" frame)))             (trace-maybe-break info (trace-info-break info) "before" frame)))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5