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:   (local-name (error 'frob) :type simple-ncname))
  
  
  (defun qname-frob (qname)
    (declare (type qname qname)
  	   (values simple-string))
    (let ((ns (qname-namespace qname))
  
negative.code: ;; nesting of the input set. It seems that many elements are being
  ;; skipped, entirely.
  
  (princ (tree-to-list *Tree*) t)
  |#
  