anchor.diff:  (defmethod caroshi-element has-name? (x)
     (member (downcase (get-name)) (@ #'downcase (ensure-list x)) :test #'string==))
   
  -(defmethod caroshi-element get-name ()
  -  (read-attribute "name"))
  -
  -(defmethod caroshi-element set-name (x)
  -  (write-attribute "name" x))
  -
  -(defmethod caroshi-element get-class ()
  -  (read-attribute "class"))
  -
  -(defmethod caroshi-element get-classes ()
  -  (split #\  (get-class) :test #'character==))
  -
  -(defmethod caroshi-element class? (x)
  -  (member x (get-classes) :test #'string==))
  -
  -(defmethod caroshi-element set-class (x)
  -  (write-attribute "class" x))
  +(defmethod caroshi-element get-name ()     (read-attribute "name"))
  +(defmethod caroshi-element set-name (x)    (write-attribute "name" x))
  +(defmethod caroshi-element get-class ()    (read-attribute "class"))
  +(defmethod caroshi-element get-classes ()  (split #\  (get-class) :test #'character==))
  +(defmethod caroshi-element class? (x)      (member x (get-classes) :test #'string==))
  +(defmethod caroshi-element set-class (x)   (write-attribute "class" x))
   
   (defmethod caroshi-element add-class (x)
     (unless (class? x)
       (set-class (+ (get-class) " " x))))
   
  -(defmethod caroshi-element add-classes (x)
  -  (@ (i x x)
  -    (add-class i)))
  -
   (defmethod caroshi-element remove-class (x)
  -  (? (cons? x)
  -     (adolist x
  -       (remove-class !))
  -     (set-class (apply #'string-concat (pad (remove x (get-classes) :test #'string==) " ")))))
  +   (set-class (apply #'string-concat (pad (remove x (get-classes) :test #'string==) " "))))
   
   (defmethod caroshi-element set-id (id)
     (? id
  
positive.code:   (= (aref style k) v))
  
  (defmethod caroshi-element get-style (x)
    (declare type string x)
    (| (aref style x)
       (aref (document.default-view.get-computed-style this nil) x)))
  
  (defmethod caroshi-element show ()
    (set-style "display" ""))
  
  (defmethod caroshi-element hide ()
    (set-style "display" "none"))
  
  (defmethod caroshi-element get-opacity ()
    (number (get-style "opacity")))
  
negative.code: (defmethod caroshi-element add-text (text)
    (add (new *text-node text)))
  
  (defmethod caroshi-element read-attribute (name)
    (| (awhen (xlat-attribute name)
         (get-attribute !))
       (get-attribute name)))
  