anchor.diff:                                    (princ .txt. !)
                                     (%format inf ..txt args))
           (character== txt. #\~)  (%format-directive inf .txt args)
  -        (%format-char inf txt args)))))
  +        (progn
  +          (princ txt. (format-info-stream inf))
  +          (%format inf .txt args))))))
   
   (defun format (str txt &rest args)
     (with-default-stream nstr str
  
positive.code:     #\A  (%format-directive-placeholder inf .txt args)
      #\F  (%format-directive-force-output inf .txt args)
      #\L  (%format-directive-fresh-line inf .txt args)
      #\~  (%format-char inf txt args)
      (%format-directive-tilde inf txt args)))
  
  (defun %format-char (inf txt args)
    (princ txt. (format-info-stream inf))
    (%format inf .txt args))
  
  (defun %format (inf txt args)
    (when txt
  
negative.code:   (princ #\~ (format-info-stream inf))
    (%format inf txt args))
  
  (defun %format-directive (inf txt args)
    (++! (format-info-processed-args inf))
    (case (char-upcase txt.) :test #'character==
  