anchor.diff:        (setf tag-name parsed-tag-name
               id parsed-id
               classes (substitute #\Space #\. parsed-classes)))
  -    ; XXX change this to a (cond)
  -    (if (eql as-list t)
  -      ; if a list is required, return that now
  -      (return-from parse-initial-tag (list tag-name id classes))
  -      ; otherwise, just return the values (the default behaviour)
  -      (values tag-name id classes))))
  +    (cond (as-list (list tag-name id classes))
  +          (t (values tag-name id classes)))))
   
   (defun make-element (tag-name &key attrs content)
     ""
  
positive.code:         (empty (concat "<" tag-name " />"))
          (t (concat "<" tag-name ">"))))
  
  (defun parse-initial-tag (tag &key as-list)
    "
    Given an XHTML tag, parse it for CSS id and/or classes.
  
  
negative.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)
  