anchor.diff:      (:xml-element-node
        (clean-element node mode))
       (otherwise
  +     (print (xtree:node-type node))
  +     (print (xtree:text-content node))
        (xtree:remove-child node))))
   
   (defun clean-element (element mode
  
positive.code:      (dolist (item (xtree:all-childs node))
         (clean item mode)))
      (:xml-text-node node)
      (:xml-comment-node
       (cond
         ((mode-allow-comments mode) node)
  
negative.code:     (clean node mode))
  
    (unless (element-allowed-p mode tagname)
      (let ((w (whitespace-element-p mode tagname)))
        (when w
          (xtree:insert-child-before (xtree:make-text " ") element))
  
        (dolist (node (xtree:all-childs element))
          (xtree:insert-child-before (xtree:detach node) element))
        
        (when w
          (xtree:insert-child-before (xtree:make-text " ") element))
        
        (xtree:remove-child element)
        (return-from clean-element)))
      
    (dolist (attr (xtree:all-attribute-nodes element))
      (unless (attribute-allowed-p mode tagname (xtree:local-name attr))
  