anchor.diff:  
   (defmethod caroshi-element get-opacity ()
     (number (get-style "opacity")))
  -
  -(dont-obfuscate opacity remove-property filter)
   
   (defmethod caroshi-element set-opacity (x)
     (? (integer== 1 x)
  
positive.code: (defmethod caroshi-element set-style (k v)
    (= (aref style k) v))
  
  (dont-obfuscate default-view get-computed-style)
  
  (defmethod caroshi-element get-style (x)
    (declare type string x)
    (| (aref style x)
  
negative.code:      (set-class (apply #'string-concat (pad (remove-string== x (get-classes)) " ")))))
  
  (defmethod caroshi-element set-id (id)
    (? id
       (write-attribute "id" id)
       (remove-attribute "id")))
  
  (defmethod caroshi-element get-id (id)
    (!? (read-attribute "id")
  