macros: fix with-profile

Replace lem-base with lem-core, refactor so that only that which we profile gets unprofiled.
lem-project · Nov 6, 2024 · 13519c7 · 13519c7
1 parent 5687f52
commit 13519c7
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)