anchor.diff:     (summarize-results results)
      (return results)))
   
  -(defun run-tests (test-names &optional (package *package*))
  +(defun run-tests (&optional (test-names :all) (package *package*))
     "Run the specified tests in package."
     (reset-counters)
     (if (eq :all test-names)
         (%run-all-thunks package)
         (%run-thunks test-names package)))
   
  -(defun run-tags (tags &optional (package *package*))
  +(defun run-tags (&optional (tags :all) (package *package*))
     "Run the tests associated with the specified tags in package."
     (reset-counters)
     (%run-thunks (tagged-tests tags package) package))
  
positive.code:     (when tags
        (loop for tag being each hash-key in tags collect tag))))
  
  (defun tagged-tests (tags &optional (package *package*))
    "Return a list of the tests associated with the tags."
    (if (eq :all tags)
        (%tests-from-all-tags package)
        (%tests-from-tags tags package)))
  
  (defun remove-tags (tags &optional (package *package*))
    "Remove individual tags or entire sets."
    (if (eq :all tags)
        (if (null package)
  
negative.code:               name (package-name package))
          (code unit-test))))
  
  (defun remove-tests (&optional (names :all) (package *package*))
    "Remove individual tests or entire sets."
    (if (eq :all names)
        (if (null package)
  