ftr: WITH-INSTRUMENTED-FUNCTIONS

smithzvk · Nov 5, 2013 · 5cb7104 · 5cb7104
1 parent f0c8a19
commit 5cb7104
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/misc.lisp b/misc.lisp
@@ -802,3 +802,12 @@ the NEW-CAR."
          (setf (symbol-function ',function) ,original)))))
 
 
+(defmacro with-instrumented-functions (((function args &body instrumentation-body)
+                                        &rest functions)
+                                       &body body)
+  (if functions
+      `(with-instrumented-function (,function ,args ,@instrumentation-body)
+         (with-instrumented-functions ,functions
+           ,@body))
+      `(with-instrumented-function (,function ,args ,@instrumentation-body)
+         ,@body)))
diff --git a/package.lisp b/package.lisp
@@ -115,6 +115,7 @@
            ;; Dynamic programming
            #:defun-memoized #:defun-array-memoized #:memo-labels
            #:bg
-           #:with-instrumented-function))
+           #:with-instrumented-function
+           #:with-instrumented-functions))
 
 (pythonic-string-reader:enable-pythonic-string-syntax)