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: 
  (defmethod print-error ((result test-result))
    "Print the error condition."
    (let ((*print-escape* nil))
      (format t "~& | Execution error:~% | ~W" (exerr result))
      (format t "~& |~%")
      (print-summary result)))
  
  (defmethod print-error ((results test-results-db))
  
negative.code:    (push test-name (missing-tests results))
     ;; Summarize and return the test results
     finally
     (summarize-results results)
     (return results)))
  
  