From e4eec0749f936540b98a507d1bbecb03e769a7ca Mon Sep 17 00:00:00 2001
From: paku <paku@skyizwhite.dev>
Date: Mon, 27 May 2024 18:11:04 +0900
Subject: [PATCH] Amend stuffs

---
 src/element.lisp | 2 +-
 tests/hsx.lisp   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/element.lisp b/src/element.lisp
index 1ca6492..bcd9623 100644
--- a/src/element.lisp
+++ b/src/element.lisp
@@ -89,7 +89,7 @@
       :for (key value) :on props :by #'cddr
       :do (format stream (if (typep value 'boolean)
                              "~@[ ~a~]"
-                             " ~a=~s")
+                             " ~a=\"~a\"")
                   (string-downcase key)
                   value))))
 
diff --git a/tests/hsx.lisp b/tests/hsx.lisp
index b1eae1d..5f47937 100644
--- a/tests/hsx.lisp
+++ b/tests/hsx.lisp
@@ -59,9 +59,9 @@
                "child1"
                "child2"))))
 
+(defhsx comp1 #'%comp1)
 (defun %comp1 (&key prop1 prop2 children)
   (declare (ignore prop1 prop2 children)))
-(defhsx comp1 #'%comp1)
 
 (defcomp comp2 (&key prop1 prop2 children)
   (declare (ignore prop1 prop2 children)))