anchor.diff: -; tré – Copyright (c) 2008–2015 Sven Michael Klose <pixel@copei.de>
  -
  -(dont-obfuscate
  -	node-name
  -	node-value)
  -
  -(dont-obfuscate
  -	class
  -	http-equiv
  -	id
  -	lang
  -	meta
  -	rel
  -	src
  -    width
  -    height
  -	left)
  +; tré – Copyright (c) 2008–2016 Sven Michael Klose <pixel@copei.de>
   
   (defvar *attribute-xlat*
     (new "class" "className"))
  
positive.code: (defmethod caroshi-element set-name (x)
    (write-attribute "name" x))
  
  (dont-obfuscate index-of)
  
  (defmethod caroshi-element class? (x)
    (!? (read-attribute "class")
        (let c (+ " " ! " ")
  
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")
  