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: 
  (defun xlat-attribute (x)
    (aref *attribute-xlat* x))
  
  (dont-obfuscate create-element-n-s)
  
  (defun make-native-element (name doc ns)
    (? (& ns (defined? doc.create-element-n-s))
  
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)
  