anchor.diff:           children))
   
   (defmethod element-name       ((entity cons))
  -  (html-tag entity))
  +  (car entity))
   
   (defmethod element-attributes ((entity cons))
  -  (loop :for (k v) :on (html-attributes entity)
  +  (loop :for (k v) :on (cadr entity)
           :collect (list k v)))
   
   (defmethod element-children   ((entity cons))
  -  (html-contents entity))
  -
  -
  -(defstruct (attribute (:type list)) name value)
  +  (cddr entity))
  +
  +
  +(defun make-attribute (name value)
  +  (list name value))
  +
  +(defmethod attribute-name  ((attribute cons))
  +  (first attribute))
  +
  +(defmethod attribute-value ((attribute cons))
  +  (second attribute))
  +
   
   
   ;;; xmls entity name may go in namespaces in which case they're lists: (name namespace).
  
positive.code: 
  (defmethod string-single-child-p ((element cons))
    (and (= 1 (length (element-children element)))
         (stringp (first-child element))))
  
  
  
  
negative.code: 
  
  (defmethod element-at-path ((element cons) tag-path)
    (if (null tag-path)
        element
        (element-at-path (child-tagged element (first tag-path))
                         (rest tag-path))))
  
  