anchor.diff:     else do
      (push test-name (missing-tests results))
      finally
  -   (when *print-failures* (print-failure results))
  -   (when *print-errors* (print-error results))
      (summarize-results results)
      (return results)))
   
  
positive.code:     ;; Count errors and record the name
      (when (exerr result)
        (incf (exerr results))
        (push test-name (error-tests results)))))
  
  (defun summarize-results (results)
    "Print a summary of all results."
  
negative.code: 
  (defmethod print-error ((result test-result))
    "Print the error condition."
    (let ((exerr (exerr result))
          (*print-escape* nil))
      (when exerr
        (format t "~& | Execution error:~% | ~W" (exerr result))
        (format t "~& |~%"))
      (print-summary result)))
  
  (defmethod print-error ((results test-results-db))
  