Merge pull request #1589 from nmccamish/fix-with-profile

macros: fix with-profile
lem-project · Nov 7, 2024 · 7e4732b · 7e4732b
2 parents 5687f52 + 13519c7
commit 7e4732b
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/src/macros.lisp b/src/macros.lisp
@@ -32,12 +32,13 @@
 
 #+sbcl
 (defmacro with-profile (&body body)
-  `(progn
-     (sb-profile:profile "LEM" "LEM-BASE" "LEM-INTERFACE")
-     ,@body
-     (with-debug-output ("PROFILE")
-       (sb-profile:report))
-     (sb-profile:unprofile)))
+  (let ((names '("LEM" "LEM-CORE" "LEM-INTERFACE")))
+    `(progn
+       (sb-profile:profile ,@names)
+       ,@body
+       (with-debug-output ("PROFILE")
+         (sb-profile:report))
+       (sb-profile:unprofile ,@names))))
 
 (defmacro with-editor-stream (() &body body)
   (alexandria:with-gensyms (stream)