anchor.diff:    (local-name (error 'frob) :type simple-ncname))
   
   
  -(defun qname-frob (qname)
  +(defun qname-string (qname)
     (declare (type qname qname)
   	   (values simple-string))
     (let ((ns (qname-namespace qname))
  
positive.code: 	     )))))))
  
  
  (defgeneric frob-tree (container)
    (:method ((container simple-container))
      (mapcar #'frob-tree (simple-container-contents container)))
    (:method ((container simple-node))
      (let ((name (qname-frob (simple-node-element container))))
        ;; (warn "FROB-TREE ~S" name)
        (cons name
  	    (call-next-method)))))
  
  
negative.code: ;; nesting of the input set. It seems that many elements are being
  ;; skipped, entirely.
  
  (princ (tree-to-list *Tree*) t)
  |#
  