anchor.diff:          (empty (concat "<" tag-name " />"))
           (t (concat "<" tag-name ">"))))
   
  -(defun parse-initial-tag (tag &key as-list)
  +(defun parse-initial-tag (tag &key (as-list nil))
     "
     Given an XHTML tag, parse it for CSS id and/or classes.
   
  
positive.code: ;    (let ((tag-attrs (list :id id :class classes)))
  ;         ((map-attrs (first (second body))))
  ;      (if map-attrs
  ;        (values tag (append tag-attrs map-attrs) (second (second (body))))
  ;        (values tag tag-attrs body)))))
  
  (defun normalize-element (body &key as-list)
  
negative.code:       (setf tag-name parsed-tag-name
              id parsed-id
              classes (substitute #\Space #\. parsed-classes)))
      (cond (as-list (list tag-name id classes))
            (t (values tag-name id classes)))))
  
  (defun make-element (tag-name &key attrs content)
    ""
  