Explicitly discard attributes given to fragment

src/elements.lisp

@@ -221,8 +221,11 @@
        (defmacro ,name (&body attrs-and-children)
          `(,',%name ,@attrs-and-children)))))
 
-(defun %<> (&rest children)
+(defun %<> (&rest attrs-and-children)
-  (make-fragment :children children))
+  (multiple-value-bind (attrs children)
+      (split-attrs-and-children attrs-and-children)
+    (declare (ignore attrs))
+    (make-fragment :children children)))
 
 (defmacro <> (&body children)
   `(%<> ,@children))