anchor.diff:      ;; Count errors and record the name
       (when (exerr result)
         (incf (exerr results))
  -      (push test-name (error-tests results)))))
  +      (push test-name (error-tests results)))
  +    ;; Running output
  +    (when *print-failures* (print-failure result))
  +    (when *print-errors* (print-error result))))
   
   (defun summarize-results (results)
     "Print a summary of all results."
  
positive.code:    (push test-name (missing-tests results))
     ;; Summarize and return the test results
     finally
     (when *print-failures* (print-failure results))
     (when *print-errors* (print-error results))
     (summarize-results results)
     (return results)))
  
  
negative.code:    else do
     (push test-name (missing-tests results))
     finally
     (summarize-results results)
     (return results)))
  
  