anchor.diff:        (terpri s)))
     args)
   
  +(defun format-ignore (s args params at-sign colon)
  +  (declare (ignore s params at-sign colon))
  +  args)
  +
   (defparameter *format-functions*
     '((#\C format-c)
       (#\R format-r)
  
positive.code:     (#\A format-a)
      (#\~ format-~)
      (#\% format-%)
      (#\& format-&)))
  
  (defun whitespace[1]p (c)
    (or (eql c #\Newline)
  
negative.code:                  (if fn
                       (setf args (funcall fn destination args prefix-parameters
                                           at-sign-modifier colon-modifier))
                       (cerror "Invalid format control character ~S in ~S."
                               (char control-string offset) control-string))))))
          (write-char (char control-string offset) destination))))
  
  (defun format* (destination control-string args)
  