anchor.diff:        (loop for tag being each hash-key in tags
               collect tag))))
   
  -(defun get-tag-tests (tag &optional (package *package*))
  -  "Returns the code stored for the test name."
  -  (let ((test-names (gethash tag (package-tags package))))
  -    (if (null test-names)
  -        (warn "No tests defined for tag ~A in package ~S."
  -              tag package)
  -        test-names)))
  +(defun get-tagged-tests (tags &optional (package *package*))
  +  "Run the tests associated with the specified tags in package."
  +  (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."
  
positive.code: 
  ;;; Manage tags
  
  (defun get-tags (&optional (package *package*))
    "Return a list of the tags in package."
    (let ((tags (package-tags package)))
  
negative.code:            :remove-tests
             :run-tests
             :use-debugger)
    ;; Functions for managing tags
    (:export :get-tags
             :get-tagged-tests
             :remove-tags
             :run-tags)
    ;; Functions for reporting test results
    (:export :test-names
             :failed-tests
  