anchor.diff:  
   ;;; Manage tests
   
  -(defun get-tests (&optional (package *package*))
  +(defun list-tests (&optional (package *package*))
     "Return a list of the tests in package."
     (let ((table (package-table package)))
       (when table
         (loop for test-name being each hash-key in table
               collect test-name))))
   
  -(defun get-test-documentation (name &optional (package *package*))
  +(defun test-documentation (name &optional (package *package*))
     "Return the documentation for the test."
     (let ((unit-test (gethash name (package-table package))))
       (if (null unit-test)
  
positive.code:         nconc (copy-list tests) into all-tests
          finally (return (delete-duplicates all-tests))))
  
  (defun get-tags (&optional (package *package*))
    "Return a list of the tags in package."
    (let ((tags (package-tags package)))
      (when tags
        (loop for tag being each hash-key in tags
              collect tag))))
  
  (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)
  
negative.code:            :assert-error)
    ;; Functions for managing tests
    (:export :define-test
             :list-tests
             :test-code
             :test-documentation
             :remove-tests
             :run-tests
             :use-debugger)
    ;; Functions for managing tags
    (:export :list-tags
             :tagged-tests
             :remove-tags
             :run-tags)
    ;; Functions for reporting test results
  