anchor.diff:  
   (def-html-tag <:address :core :event :i18n)
   
  -(def-html-tag <:area :core :event :i18n
  -              alt
  -              accesskey
  -              coords
  -              href
  -              nohref
  -              onblur
  -              onfocus
  -              shape
  -              tabindex)
  +(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-html-tag <:base href)
  +(def-empty-html-tag <:base href)
   
   (def-html-tag <:bdo :i18n
                 id
  
positive.code: (def-html-tag <:head :i18n
                profile)
  
  (def-html-tag <:hr :core :event width align)
  
  (deftag <:html (&attribute dir lang (prologue t) &body body)
    (when prologue
  
negative.code: 
  (def-html-tag <:p :core :event :i18n)
  
  (def-empty-html-tag <:param
                      name
                      id
                      type
                      value
                      valuetype)
  
  (def-html-tag <:pre :core :event :i18n)
  
  