anchor.diff:  (defun compile-format (start end)
     (let ((result nil))
       (prog (c i j fn)
  -     L(multiple-value-setf (c i j) (next-directive start end))
  +     L(setf (values c i j) (next-directive start end))
         (when (if (null c) (< start end) (< start i))
           (push (literal start (if i i end)) result))
         (when (null c) (return (nreverse result)))
  
positive.code: ;reported in a file without stopping the compilation of the file.
  
  (defun maybe-compile-format-string (string force-fn?)
    (if (not (or force-fn? (fancy-directives-p string))) string
        (eval `(formatter ,string))))
  
  ;COMPILE-FORMAT gets called to turn a bit of format control string into code.
  
negative.code: (defun num-args-in-directive (start end)
    (let ((n 0) c i j)
      (incf n (num-args-in-args start T))
      (setf (values j i) (next-directive1 start end))
      (loop
        (setf (values c i j) (next-directive j end))
        (when (null c) (return n))
        (cond ((eql c #\;)
               (if (colonp j)
  