anchor.diff:      (dolist (a (nreverse *current-tag-attrs*))
         (write-attr (car a) (cdr a)))
       (if close
  -	(write-string " />" *xml-stream*)
  +	(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))
  
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: 	       (progn
  		 (indent -1)
  		 (write-string "</" *xml-stream*)
  		 (write-name *current-tag-name*)
  		 (write-char #\> *xml-stream*)
  		 (when ,was-pretty
  		   (terpri *xml-stream*)))
  