From 13519c7a3b152e090e552b62212aec575f71d820 Mon Sep 17 00:00:00 2001
From: Nathan McCamish <176253562+nmccamish@users.noreply.github.com>
Date: Wed, 6 Nov 2024 14:00:48 -0500
Subject: [PATCH] macros: fix with-profile

Replace lem-base with lem-core, refactor so that only that which we
profile gets unprofiled.
---
 src/macros.lisp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/macros.lisp b/src/macros.lisp
index 5da1d2c4c..a479f8435 100644
--- 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)