anchor.diff:  
   
   (defun progress-tally (success-count failure-count)
  +  "When testing verbosely, prints the test tally, SUCCESS-COUNT and
  +FAILURE-COUNT."
     (when (verbose *verbose-tally*)
       (let ((name-max-length 40))
         (flet ((write-tally (name)
  
positive.code: 
  
  (defun progress-failure-message (expression message &rest arguments)
    (incf *failure-count*)
    (vector-push-extend #\! *report-string*)
    (unless *current-test-printed-p*
  
negative.code: 
  
  (defun progress-start ()
    "Resets the progress counters (success/failure counts)."
    (setf *success-count*  0
          *failure-count*  0
          *last-success-p* nil
  