anchor.diff:         (let ((*current-tag-name* ,(if (listp name)
   				      `(list ,@name)
   				      name))
  +	     (*xml-ns-dict* *xml-ns-dict*)
   	     (*current-tag-attrs* nil)
   	     (*current-tag-opened* nil)
   	     (*current-tag-compact* (or *current-tag-compact* ,compact))
  
positive.code:     (dolist (a (nreverse *current-tag-attrs*))
        (write-attr (car a) (cdr a)))
      (if close
  	(write-string " />" *xml-stream*)
  	(write-char #\> *xml-stream*))
      (when *current-tag-compact*
        (setf *xml-pretty* nil))
  
negative.code: 	       (progn
  		 (indent -1)
  		 (write-string "</" *xml-stream*)
  		 (write-name *current-tag-name*)
  		 (write-char #\> *xml-stream*)
  		 (when ,was-pretty
  		   (terpri *xml-stream*)))
  