anchor.diff:    (add (new *text-node text)))
   
   (defmethod caroshi-element read-attribute (name)
  -  (| (awhen (xlat-attribute name)
  -       (get-attribute !))
  +  (| (!? (xlat-attribute name)
  +         (get-attribute !))
        (get-attribute name)))
   
   (defmethod caroshi-element read-attributes ()
  
positive.code:     query-selector-all
      _caroshi-rotation)
  
  (defmethod caroshi-element child-array ()
    this.child-nodes)
  
  (defmethod caroshi-element child-list ()
    (array-list child-nodes))
  
  
negative.code:   (& html (= inner-h-t-m-l html))
    (dom-tree-extend this))
  
  (defmethod caroshi-element get-child-at (idx)
    (assert (integer<= 0 idx) (+ "caroshi-element get-child-at " idx " is not a positive integer"))
    (let x first-child
  