anchor.diff:  ;; nesting of the input set. It seems that many elements are being
   ;; skipped, entirely.
   
  -(princ (frob-tree *Tree*) t)
  +(princ (tree-to-list *Tree*) t)
   |#
  
positive.code: (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))
  	    (length (simple-container-contents object)))))
  
  #+NIL
  
negative.code:       (ns (format nil "{~a}~a" ns n))
        (t (values n)))))
  
  ;; (qname-string (make-qname "http://a.example.com/" "b"))
  
  
  (defun qname= (q1 q2)
  