From 621cb9d5d6f49f91d2d6ff05044ea80e3ea6b67f Mon Sep 17 00:00:00 2001
From: Gleefre <varedif.a.s@gmail.com>
Date: Fri, 26 Jan 2024 15:07:31 +0100
Subject: [PATCH] Fix use of ALEXANDRIA:FORMAT-SYMBOL

---
 grovel/grovel.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/grovel/grovel.lisp b/grovel/grovel.lisp
index f1f2b66..66eae53 100644
--- a/grovel/grovel.lisp
+++ b/grovel/grovel.lisp
@@ -333,7 +333,7 @@ int main(int argc, char**argv) {
 (define-grovel-syntax constant ((lisp-name &rest c-names)
                                 &key (type 'integer) documentation optional)
   (when (keywordp lisp-name)
-    (setf lisp-name (format-symbol "~A" lisp-name)))
+    (setf lisp-name (format-symbol t "~A" lisp-name)))
   (c-section-header out "constant" lisp-name)
   (dolist (c-name c-names)
     (format out "~&#ifdef ~A~%" c-name)
-- 
2.11.4.GIT