anchor.diff:             :print-failures
              :print-errors
              :summarize-results)
  +  ;; Functions for extensibility via signals
  +  (:export :test-run-complete
  +           :results)
     ;; Utility predicates
     (:export :logically-equal :set-equal))
   
  
positive.code:             (length (missing-tests results)))))
  
  ;;; Run the tests
  
  (defun %run-all-thunks (&optional (package *package*))
    "Run all of the test thunks in the package."
  
negative.code:    (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*))
  