Ignore:
Timestamp:
Feb 21, 2008, 10:05:23 PM (14 years ago)
Author:
mb
Message:

Merge in mb-coverage-merge branch. No other changes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/encapsulate.lisp

    r8421 r8554  
    585585
    586586(defmacro with-traces (syms &body body)
    587   `(unwind-protect
    588         (progn
    589           (let ((*trace-output* (make-broadcast-stream)))
    590             ;; if you're tracing ccl internals you'll get trace output as it encapsulates the
    591             ;; functions so hide all the trace output while eval'ing teh trace form itself.
    592             (trace ,@syms))
    593           ,@body)
    594      (untrace ,@syms)))
     587 `(unwind-protect
     588       (progn
     589         (let ((*trace-output* (make-broadcast-stream)))
     590           ;; if you're tracing ccl internals you'll get trace output as it encapsulates the
     591           ;; functions so hide all the trace output while eval'ing the trace form itself.
     592           (trace ,@syms))
     593         ,@body)
     594    (untrace ,@syms)))
    595595
    596596;; this week def is the name of an uninterned gensym whose fn-cell is original def
Note: See TracChangeset for help on using the changeset viewer.