anchor.diff:                (setf need-whitespace-p (< w n))
                 (setf pos next))))
           (t
  -          (%write-rune 32 sink))))))
  +          (%write-rune #/U+0020 sink))))))
   
   (defun unparse-string (str sink)
     (let ((y (sink-ystream sink)))
  
positive.code: 
  (defun sink-fresh-line (sink)
    (unless (zerop (ystream-column (sink-ystream sink)))
      (%write-rune 10 sink)
      (indent sink)))
  
  (defun maybe-close-tag (sink)
  
negative.code:               (when need-whitespace-p
                  (if (< (+ (ystream-column (sink-ystream sink)) w (- pos))
  		       (width sink))
                      (%write-rune #/U+0020 sink)
                      (sink-fresh-line sink)))
                (loop
  		  with y = (sink-ystream sink)
  