anchor.diff:  (defmethod caroshi-element set-name (x)
     (write-attribute "name" x))
   
  -(dont-obfuscate index-of)
  -
   (defmethod caroshi-element class? (x)
     (!? (read-attribute "class")
         (let c (+ " " ! " ")
  
positive.code:      (set-class (apply #'string-concat (pad (remove-string== x (get-classes)) " ")))))
  
  (defmethod caroshi-element set-id (id)
    (write-attribute "id" id))
  
  (defmethod caroshi-element get-id (id)
    (!? (read-attribute "id")
  
negative.code: (defmethod caroshi-element set-style (k v)
    (= (aref style k) v))
  
  (defmethod caroshi-element get-style (x)
    (declare type string x)
    (| (aref style x)
  