anchor.diff:            (name test-result)
             (length (pass test-result))
             (length (fail test-result)))
  -  (format t "~@[, ~S execution errors~].~2%"
  -          (exerr test-result)))
  +  (if (exerr test-result)
  +      (format t ", and an execution error.")
  +      (write-char #\.))
  +  (terpri)
  +  (terpri))
   
   (defun run-code (code)
     "Run the code to test the assertions."
  
positive.code:           (expected result))
    (format t "~<~%~:;but saw ~{~S~^; ~}~>"
            (actual result)))
  
  ;;; Print errors
  
  
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))
  