anchor.diff:  (defun _caroshi-element-remove-class (elm x)
     (? (cons? x)
        (adolist x (_caroshi-element-remove-class elm !))
  -     (elm.set-class (appy #'string-concat (pad (remove x (elm.get-classes) :test #'string==)
  -                                               " ")))))
  +     (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))
  
positive.code:     (!.write-attributes attrs)
  	(!.set-styles style)))
  
  (defun caroshi-element-children-array (n)
    n.child-nodes)
  
  
negative.code: 
  (defun caroshi-element-get-if (x predicate)
    (with-queue n
      (x.walk [& (element? _)
                 (funcall predicate)
                 (enqueue n _)])
      (queue-list n)))
  
  (defclass (caroshi-element visible-node) ())
  