Improve behavior of boolean attributes

2024-03-12 15:03:36 +09:00 · 2024-03-12 15:03:36 +09:00 · f1fd511ac4
commit f1fd511ac4
parent c393b70231
1 changed files with 2 additions and 1 deletions
--- a/src/generator.lisp
+++ b/src/generator.lisp
@ -39,7 +39,8 @@
 (defmethod print-object ((attrs elm:attrs) stream)
  (loop 
    :for (key . value) :in (elm:attrs-alist attrs)
-    :do (format stream (if (boolean-attr-key-p key)
+    :do (format stream (if (and (boolean-attr-key-p key)
+                                (typep value 'boolean))
                           "~@[ ~a~]"
                           " ~a=~s")
                (string-downcase key)