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:             (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:    ;; 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*))
  