anchor.diff:            (expected result))
     (format t "~<~%~:;but saw ~{~S~^; ~}~>"
             (actual result)))
  +
  +(defmethod print-failure ((result test-result))
  +  "Print the failed assertions in the unit test."
  +  (loop for fail in (fail result) do
  +        (print-failure fail)
  +        finally
  +        (print-summary result)))
  +
  +(defmethod print-failure ((results test-results-db))
  +  "Print all of the failure tests."
  +  (loop with db = (database results)
  +        for test in (failed-tests results) do
  +        (print-failure (gethash test db))))
   
   ;;; Print errors
   
  
positive.code:           (name test-result)
            (length (pass test-result))
            (length (fail test-result)))
    (format t "~@[, ~S execution errors~].~2%"
            (exerr test-result)))
  
  (defun run-code (code)
    "Run the code to test the assertions."
  
negative.code:     (format t "~{~& | ~S => ~S~}~%"
              (funcall (extras result))))
    (format t "~& |~%")
    (class-name (class-of result)))
  
  (defmethod print-failure ((result assert-result))
    (format t "~& | Expected ~{~S~^; ~} " (expected result))
  