anchor.diff:  (defmethod print-object ((object simple-node) stream)
     (print-unreadable-object (object stream :type t :identity t)
       (format stream "~a (~d)"
  -	    (qname-frob (simple-node-element object))
  +	    (qname-string (simple-node-element object))
   	    (length (simple-container-contents object)))))
   
   #+NIL
  
positive.code: ;; nesting of the input set. It seems that many elements are being
  ;; skipped, entirely.
  
  (princ (frob-tree *Tree*) t)
  |#
  
negative.code: 	     )))))))
  
  
  (defgeneric tree-to-list (container)
    (:method ((container simple-container))
      (mapcar #'tree-to-list (simple-container-contents container)))
    (:method ((container simple-node))
      (let ((name (qname-string (simple-node-element container))))
        ;; (warn "TREE-TO-LIST ~S" name)
        (cons name
  	    (call-next-method)))))
  
  