anchor.diff:         (when ,standalone
   	 (write-attr "standalone" "yes"))
          (write-string "?>" *xml-stream*)
  -       (when *xml-pretty*
  -	 (terpri *xml-stream*)))
  +       (terpri *xml-stream*))
        ,@body))
   
   (defun finish-open-tag (&key close)
  
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))
  