anchor.diff:      (!.write-attributes attrs)
   	(!.set-styles style)))
   
  +; TODO: Removed these IE compatibility functions.
   (defun caroshi-element-children-array (n)
     n.child-nodes)
   
  
positive.code: 
  (defun caroshi-element-get-if (x predicate)
    (with-queue n
      (x.walk (fn & (element? _)
                    (funcall predicate)
                    (enqueue n _)))
      (queue-list n)))
  
  (defclass (caroshi-element visible-node) ())
  
negative.code: (defun _caroshi-element-remove-class (elm x)
    (? (cons? x)
       (adolist x (_caroshi-element-remove-class elm !))
       (elm.set-class (apply #'string-concat (pad (remove x (elm.get-classes) :test #'string==) " ")))))
  
  (defun caroshi-element-set-style (n k v)
    (= (aref n.style k) v))
  