# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1552100963 18000
# Node ID 71b34a9a34137f752b911fd6201e53e2d4809365
# Parent  782fc1421b1600c05c4b350e7ae7b2907298a21d# Parent  72093637ac8bdc3ef398071fea2096cf5c634736
Merge.

diff -r 782fc1421b16 -r 71b34a9a3413 src/debugging.lisp
--- a/src/debugging.lisp	Fri Mar 08 22:08:44 2019 -0500
+++ b/src/debugging.lisp	Fri Mar 08 22:09:23 2019 -0500
@@ -192,12 +192,12 @@
   (dump-profile filename))
 
 #+sbcl
-(defmacro profile (&body body)
-  "Profile `body` and dump the report to `lisp.prof`."
+(defmacro profile (form &key (mode :cpu))
+  "Profile `form` and dump the report to `lisp.prof`."
   `(progn
-     (start-profiling)
+     (start-profiling :mode ,mode)
      (unwind-protect
-         (time (progn ,@body))
+         (time ,form)
        (stop-profiling))))