anchor.diff:      (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*))
  +    (force-output *test-output*))
     (values))
   
   
  
positive.code:            "*DEBUG-ON-FAILURE*" "WITH-DEBUGGER-ON-FAILURE"
             "DEFINE-TEST" "CHECK" "ASSERT-TRUE" "ASSERT-FALSE" "EXPECT-CONDITION"
             "*VERBOSE-TALLY*"  "*VERBOSE-PROGRESS*"
             "PROGRESS-START"
             "PROGRESS-SUCCESS" "PROGRESS-FAILURE-MESSAGE" "PROGRESS-FAILURE"
             "PROGRESS-TALLY"
  
negative.code:       `(defun ,name ,parameters
           ,@docstrings
           ,@declarations
           (let ((*current-test-name*        ',name)
                 (*current-test-parameters* (list ,@mandatory)))
             (testing ,@forms))))))
  
  (defmacro with-debugger-on-error (&body body)
    `(let ((*debug-on-error* t))
  