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