anchor.diff:     (push test-name (missing-tests results))
      finally
      (summarize-results results)
  +    (signal 'test-run-complete :results results)
      (return results)))
   
   (defun run-tests (test-names &optional (package *package*))
  
positive.code:    ;; Summarize and return the test results
     finally
     (summarize-results results)
     (return results)))
  
  (defun %run-thunks (test-names &optional (package *package*))
  
negative.code:            :print-failures
             :print-errors
             :summarize-results)
    ;; Functions for extensibility via signals
    (:export :test-run-complete
             :results)
    ;; Utility predicates
    (:export :logically-equal :set-equal))
  
  