# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1551469871 18000
# Node ID 72093637ac8bdc3ef398071fea2096cf5c634736
# Parent  9b6480080f3849ba1e0dc96d1011c051f8ec6554# Parent  3cf5a5efd686fa5e3cf81fb9c881dbc82324a459
Merge.

diff -r 3cf5a5efd686 -r 72093637ac8b src/debugging.lisp
--- a/src/debugging.lisp	Mon Feb 25 22:07:11 2019 -0500
+++ b/src/debugging.lisp	Fri Mar 01 14:51:11 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))))