anchor.diff:  
   ;; Set absolute position relative to browser window.
   (defmethod caroshi-element set-position (x y)
  -  (declare type number x y)
     (set-styles (new "left" (+ x "px")
                      "top"  (+ y "px")))
     this)
  
positive.code: (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 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==) " ")))))
  
  (defmethod caroshi-element set-id (id)
    (? id
  
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)))
  