anchor.diff:      query-selector-all
       _caroshi-rotation)
   
  -(defmethod caroshi-element child-array ()
  -  this.child-nodes)
  -
   (defmethod caroshi-element child-list ()
     (array-list child-nodes))
   
  
positive.code: 
  (defmethod caroshi-element find-element-at (x y)
    (do-children (i this this)
      (dom-extend i)
  	(& (element? i)
  	   (i.inside? x y)
  	   (return (| (i.find-element-at x y)
  
negative.code:   attrs)
  
  (defmethod caroshi-element remove-attributes (attrs)
    (@ (i attrs)
      (remove-attribute i)))
  
  (defmethod caroshi-element has-name? (x)
    (member (downcase (get-name)) (@ #'downcase (ensure-list x)) :test #'string==))
  