From 5514d9a656804b405d4d6674873e62e2ae2fbc74 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Thu, 13 Jul 2023 16:33:46 +0200
Subject: [PATCH] Remove uneccessary string fn

---
 src/component/button.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/component/button.lisp b/src/component/button.lisp
index f7ad28c..9a9c11e 100644
--- a/src/component/button.lisp
+++ b/src/component/button.lisp
@@ -118,7 +118,7 @@
          (type-name (concatenate 'string outline-name type))
          (macro-name (intern (string-upcase (concatenate 'string "BTN-" outline-name type size-name)))))
     `(defmacro ,macro-name (&body body)
-       `(btn (:type ,(string ',type-name) :size ,(string ',size-name)) ,@body))))
+       `(btn (:type ,,type-name :size ,,size-name) ,@body))))
 
 (defmacro define-btns (names)
   "This macro generates a suite of button-creating macros for each provided button type.