anchor.diff:    (labels
       ((test-case-inner (tests tests-passed tests-failed)
          (cond ((null tests)
  -              (format t "~d tests run: ~d passed, ~d failed~%"
  -                      (+ tests-passed tests-failed) tests-passed tests-failed))
  +              (format t "(~a) ~d tests run: ~d passed, ~d failed~%"
  +                      test-case-name (+ tests-passed tests-failed)
  +                      tests-passed tests-failed))
                (t (let* ((test-name (cadar tests))
                          (assertions (caddar tests))
                          (test-passedp (test test-case-name test-name assertions))
  
positive.code:              (t (let* ((assertion (caar assertions))
                         (argument1 (cadar assertions))
                         (argument2 (caddar assertions))
                         (assertion-passedp
                           ((assert assertion) test-case-name test-name
                                               argument1 argument2))
                         (passedp (and passedp assertion-passedp)))
                    (test-inner (cdr assertions) passedp))))))
      (test-inner assertions t)))
  
negative.code: 
  (defun assert-equal (test-case-name test-name param1 param2)
    (let ((passedp (equal param1 param2)))
      (not (if (not passedp) (format t "(~a) ~a: ~a != ~a~%"
                                     test-case-name test-name param1 param2)))))
  