anchor.diff:      :seamless :selected :typemustmatch))
   
   (defun boolean? (attr)
  +  (declare (inline memq))
     (memq attr *boolean-attributes*))
   
   (define-global-parameter *core-attributes*
  
positive.code:     :ins :del :col :meter :output))
  
  (defun inline? (element)
    (memq element *inline-elements*))
  
  (define-global-parameter *paragraph-elements*
  
negative.code:           preformatted?))
  
  (define-global-parameter *void-elements*
      '(:!doctype :area :base :br :col :command :embed :hr :img
        :input :keygen :link :meta :param :source :track :wbr))
  
  (defun void? (element)
    (declare (inline memq))
    (memq element *void-elements*))
  
  (define-global-parameter *literal-elements*
  