diff --git a/src/hsx.lisp b/src/hsx.lisp index c066044..66e8b72 100644 --- a/src/hsx.lisp +++ b/src/hsx.lisp @@ -32,7 +32,7 @@ (defparameter *builtin-elements* (make-hash-table)) -(defmacro define-and-export-builtin-elements (&body names) +(defmacro define-and-export-builtin-elements (&rest names) `(progn ,@(mapcan (lambda (name) (list `(defhsx ,name ,(string-downcase name)) @@ -41,8 +41,8 @@ names))) (define-and-export-builtin-elements - ; tag-elements - a abbr address area article aside audio b base bdi bdo blockquote + ; tag-elements + a abbr address area article aside audio b base bdi bdo blockquote body br button canvas caption cite code col colgroup data datalist dd del details dfn dialog div dl dt em embed fieldset figcaption figure footer form h1 h2 h3 h4 h5 h6 head header hr i iframe @@ -68,9 +68,9 @@ (defmacro hsx (form) (modify-first-of-lists form - #'builtin-element-p - (lambda (node) - (find-symbol (string node) :hsx/hsx)))) + #'builtin-element-p + (lambda (node) + (find-symbol (string node) :hsx/hsx)))) (defun modify-first-of-lists (tree test result) (if tree