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:     (clean node mode))
  
    (unless (element-allowed-p mode tagname)
      (let ((fragment (xtree:make-document-fragment)))
        (dolist (node (xtree:all-childs element))
          (xtree:append-child fragment
                              (xtree:detach node)))
        
        (when (whitespace-element-p mode tagname)
          (xtree:prepend-child fragment
                               (xtree:make-text " "))
          (xtree:append-child fragment
                              (xtree:make-text " ")))
        
        (xtree:replace-child element fragment)
        (return-from clean-element fragment)))
      
    (dolist (attr (xtree:all-attribute-nodes element))
      (unless (attribute-allowed-p mode tagname (xtree:local-name attr))
  
negative.code:      (dolist (item (xtree:all-childs node))
         (clean item mode)))
      (:xml-text-node node)
      (:xml-cdata-section-node
       (xtree:replace-child node
                            (xtree:make-text (xtree:text-content node))))
      (:xml-comment-node
       (cond
         ((mode-allow-comments mode) node)
  