/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

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

revision 1.31 by heller, Thu Oct 16 11:08:40 2003 UTC revision 1.32 by lgorrie, Thu Oct 16 20:05:21 2003 UTC
# Line 222  The time is measured in microseconds." Line 222  The time is measured in microseconds."
222       (* (- (get-internal-real-time) before)       (* (- (get-internal-real-time) before)
223          (/ 1000000 internal-time-units-per-second)))))          (/ 1000000 internal-time-units-per-second)))))
224    
225    (defmacro with-trapping-compiler-notes (() &body body)
226      `(call-trapping-compiler-notes (lambda () ,@body)))
227    
228  (defun call-with-compilation-hooks (fn)  (defun call-with-compilation-hooks (fn)
229    (multiple-value-bind (result usecs)    (multiple-value-bind (result usecs)
230        (with-trapping-compilation-notes ()        (with-trapping-compilation-notes ()

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

  ViewVC Help
Powered by ViewVC 1.1.5