This list taken from http://www.wdvl.com/Authoring/HTML/4/Tags
(def-html-tag <:a :core :i18n :event accesskey charset coords href hreflang name onblur onfocus rel rev shape tabindex target type)
(def-html-tag <:abbr :core :event :i18n)
(def-html-tag <:acronym :core :event :i18n)
(def-html-tag <:address :core :event :i18n)
(def-empty-html-tag <:area :core :event :i18n alt accesskey coords href nohref onblur onfocus shape tabindex)
(def-html-tag <:b :core :event :i18n)
(def-empty-html-tag <:base href)
(def-html-tag <:bdo :i18n id style title)
(def-html-tag <:big :core :event :i18n)
(def-html-tag <:blockquote :core :event :i18n cite)
(def-html-tag <:body :core :i18n :event onload onunload)
(def-empty-html-tag <:br :core)
(def-html-tag <:button :core :event :i18n accesskey disabled name onblur onfocus tabindex type value)
(def-html-tag <:caption :core :event :i18n)
(def-html-tag <:cite :core :event :i18n)
(def-html-tag <:code :core :event :i18n)
(def-empty-html-tag <:col :core :event :i18n align char charoff span valign width)
(def-html-tag <:colgroup :core :event :i18n align char charoff span valign width)
(def-html-tag <:dd :core :event :i18n)
(def-html-tag <:del :core :event :i18n cite datetime)
(def-html-tag <:dfn :core :event :i18n)
(def-html-tag <:div :core :event :i18n)
(def-html-tag <:dl :core :event :i18n)
(def-html-tag <:dt :core :event :i18n)
(def-html-tag <:em :core :event :i18n)
(def-html-tag <:fieldset :core :event :i18n)
(def-html-tag <:form :core :event :i18n action accept-charset enctype method name onreset onsubmit target)
(def-empty-html-tag <:frame :core frameborder longdesc marginheight marginwidth noresize scrolling src)
(def-html-tag <:frameset :core cols onload olunload rows)
(def-html-tag <:h1 :core :event :i18n)
(def-html-tag <:h2 :core :event :i18n)
(def-html-tag <:h3 :core :event :i18n)
(def-html-tag <:h4 :core :event :i18n)
(def-html-tag <:h5 :core :event :i18n)
(def-html-tag <:h6 :core :event :i18n)
(def-html-tag <:head :i18n profile)
(def-empty-html-tag <:hr :core :event width align)
(deftag <:html (&attribute dir lang prologue doctype &allow-custom-attributes custom-attributes &body body) (assert (or (and (not prologue) (not doctype)) (xor prologue doctype)) () "You can only specify one of PROLOGUE or DOCTYPE") (when doctype (emit-code `(awhen ,doctype (princ "<!DOCTYPE html PUBLIC " *yaclml-stream*) (princ it *yaclml-stream*) (princ (strcat ">" ~%) *yaclml-stream*)))) (when prologue (emit-code `(awhen ,prologue (princ it *yaclml-stream*)))) (emit-open-tag "html" (list* "dir" dir "lang" lang custom-attributes)) (emit-body body) (emit-close-tag "html"))
(def-html-tag <:i :core :event :i18n)
(def-html-tag <:iframe :core frameborder longdesc marginheight marginwidth name scrolling src width height)
(def-empty-html-tag <:img :core :event :i18n alt src height ismap longdesc usemap width)
(def-empty-html-tag <:input :core :event :i18n accept accesskey alt checked disabled maxlength name onblur onchange onfocus onselect readonly size src tabindex type usemap value width height)
(def-html-tag <:ins :core :event :i18n cite datetime)
(def-html-tag <:kbd :core :event :i18n)
(def-html-tag <:label :core :event :i18n accesskey for onblur onfocus)
(def-html-tag <:legend :core :event :i18n accesskey)
(def-html-tag <:li :core :event :i18n)
(def-empty-html-tag <:link :core :event :i18n charset href hreflang media rel rev type)
(def-html-tag <:map :core :event :i18n name)
(def-empty-html-tag <:meta :i18n content http-equiv name scheme)
(def-html-tag <:noframes :core :event :i18n)
(def-html-tag <:noscript :core :event :i18n)
(def-html-tag <:object :core :event :i18n archive classid codebase codetype data declare height name standby tabindex type usemap width)
(def-html-tag <:ol :core :event :i18n)
(def-html-tag <:optgroup :core :event :i18n label disabled)
(def-html-tag <:option :core :event :i18n disabled label selected value)
(def-html-tag <:p :core :event :i18n)
(def-empty-html-tag <:param name id type value valuetype)
(def-html-tag <:pre :core :event :i18n)
(def-html-tag <:q :core :event :i18n cite)
(def-html-tag <:samp :core :event :i18n)
(def-html-tag <:script type charset defer src title language)
(def-html-tag <:select :core :event :i18n disabled multiple name accesskey onblur onfocus onchange size tabindex)
(def-html-tag <:small :core :event :i18n)
(def-html-tag <:span :core :event :i18n)
(def-html-tag <:strong :core :event :i18n)
(def-html-tag <:style :i18n type media title)
(def-html-tag <:sub :core :event :i18n)
(def-html-tag <:sup :core :event :i18n)
(def-html-tag <:table :core :event :i18n border cellpadding cellspacing frame summary width)
(def-html-tag <:tbody :core :event :i18n align char charoff valign)
(def-html-tag <:td :core :event :i18n abbr align axis char charoff colspan headers rowspan scope valign width)
(def-html-tag <:textarea :core :event :i18n cols rows accesskey disables name onblur onchange onfocus onselect readonly tabindex)
(def-html-tag <:tfoot :core :event :i18n)
(def-html-tag <:th :core :event :i18n abbr align axis char charoff colspan headers rowspan scope valign)
(def-html-tag <:thead :core :event :i18n align char charoff valign)
(def-html-tag <:title :i18n)
(def-html-tag <:tr :core :event :i18n align char charoff valign)
(def-html-tag <:tt :core :event :i18n)
(def-html-tag <:ul :core :event :i18n)
(def-html-tag <:var :core :event :i18n)
(deftag <:embed (&allow-other-attributes others) (emit-empty-tag "embed" others))