anchor.diff:             :assert-error)
     ;; Functions for managing tests
     (:export :define-test
  -           :get-tests
  -           :get-test-code
  -           :get-test-documentation
  +           :list-tests
  +           :test-code
  +           :test-documentation
              :remove-tests
              :run-tests
              :use-debugger)
     ;; Functions for managing tags
  -  (:export :get-tags
  -           :get-tagged-tests
  +  (:export :list-tags
  +           :tagged-tests
              :remove-tags
              :run-tags)
     ;; Functions for reporting test results
  
positive.code:   (if (eq :all names)
        (if (null package)
            (clrhash *test-db*)
            (remhash (find-package package) *test-db*))
        (let ((table (package-table package)))
          (unless (null table)
            (loop for name in names
                  always (remhash name table)
                  collect name into removed
                  finally (return removed))))))
  
  ;;; Manage tags
  
  
negative.code: 
  ;;; Manage tests
  
  (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 test-documentation (name &optional (package *package*))
    "Return the documentation for the test."
    (let ((unit-test (gethash name (package-table package))))
      (if (null unit-test)
  