anchor.diff:        `(defun ,name ,parameters
            ,@docstrings
            ,@declarations
  -         (multiple-value-bind (successes failures)
  -             (let ((*success-count* 0)
  -                   (*failure-count* 0)
  -                   (*current-test-name*        ',name)
  -                   (*current-test-parameters* (list ,@mandatory))
  -                   (*current-test-printed-p*  nil))
  -               (progress-start)
  -               (progn ,@forms)
  -               (progress-tally *success-count* *failure-count*)
  -               (values *success-count* *failure-count*))
  -           (incf *success-count* successes)
  -           (incf *failure-count* failures)
  -           (if (zerop failures)
  -               :success
  -               :failure))))))
  +         (let ((*current-test-name*        ',name)
  +               (*current-test-parameters* (list ,@mandatory)))
  +           (testing ,@forms))))))
   
   (defmacro with-debugger-on-error (&body body)
     `(let ((*debug-on-error* t))
  
positive.code:     (if *last-success-p*
          (format *test-output* "~A" (aref *report-string* (1- (length *report-string*))))
          (format *test-output* "~&~A" *report-string*))
      (finish-output *test-output*))
    (values))
  
  
  
negative.code:            "*DEBUG-ON-FAILURE*" "WITH-DEBUGGER-ON-FAILURE"
             "DEFINE-TEST" "CHECK" "ASSERT-TRUE" "ASSERT-FALSE" "EXPECT-CONDITION"
             "*VERBOSE-TALLY*"  "*VERBOSE-PROGRESS*"
             "TESTING"
             "PROGRESS-START"
             "PROGRESS-SUCCESS" "PROGRESS-FAILURE-MESSAGE" "PROGRESS-FAILURE"
             "PROGRESS-TALLY"
  