From 1b699a09ee328060093b02ad35e71e63d35808bc Mon Sep 17 00:00:00 2001
From: paku <paku@skyizwhite.dev>
Date: Sat, 10 Feb 2024 02:53:51 +0900
Subject: [PATCH] Explicitly discard attributes given to fragment

---
 src/elements.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/elements.lisp b/src/elements.lisp
index 150cd23..07021a8 100644
--- a/src/elements.lisp
+++ b/src/elements.lisp
@@ -221,8 +221,11 @@
        (defmacro ,name (&body attrs-and-children)
          `(,',%name ,@attrs-and-children)))))
 
-(defun %<> (&rest children)
-  (make-fragment :children children))
+(defun %<> (&rest attrs-and-children)
+  (multiple-value-bind (attrs children)
+      (split-attrs-and-children attrs-and-children)
+    (declare (ignore attrs))
+    (make-fragment :children children)))
 
 (defmacro <> (&body children)
   `(%<> ,@children))