anchor.diff:     else do
      (push test-name (missing-tests results))
      finally
  +   (when *signal-results*
  +     (signal 'test-run-complete :results results))
      (summarize-results results)
  -    (signal 'test-run-complete :results results)
      (return results)))
   
   (defun run-tests (test-names &optional (package *package*))
  
positive.code:    (push test-name (missing-tests results))
     ;; Summarize and return the test results
     finally
     (summarize-results results)
      (signal 'test-run-complete :results results)
     (return results)))
  
  (defun %run-thunks (test-names &optional (package *package*))
  
negative.code: (defparameter *use-debugger* nil
    "If not NIL, enter the debugger when an error is encountered in an
  assertion.")
  
  (defparameter *signal-results* nil
    "Signal the result if non NIL.")
  
  (defun use-debugger-p (condition)
    "Debug or ignore errors."
  