anchor.diff:  
   (defmethod caroshi-element write-attribute (name value)
     (set-attribute name value)
  -  (awhen (xlat-attribute name)
  -    (set-attribute ! value))
  +  (!? (xlat-attribute name)
  +      (set-attribute ! value))
     value)
   
   (defmethod caroshi-element write-attributes (attrs)
  
positive.code:   (add (new *text-node text)))
  
  (defmethod caroshi-element read-attribute (name)
    (| (awhen (xlat-attribute name)
         (get-attribute !))
       (get-attribute name)))
  
  (defmethod caroshi-element read-attributes ()
  
negative.code:   attrs)
  
  (defmethod caroshi-element remove-attributes (attrs)
    (@ (i attrs)
      (remove-attribute i)))
  
  (defmethod caroshi-element has-name? (x)
    (member (downcase (get-name)) (@ #'downcase (ensure-list x)) :test #'string==))
  