anchor.diff:       ',name))
   
   ;;; Remove tests from the test DB
  +
  +;;; 0.8.1 Compatibility revision for Quicklisp
  +(defun remove-all-tests (&optional (package *package*))
  +  (remove-tests :all package))
   
   (defun remove-tests (names &optional (package *package*))
     "Remove individual tests or entire sets."
  
positive.code:       (%run-thunks test-names package)))
  
  ;;; 0.8.1 Compatibility revision for Quicklisp
  (defmacro run-tests (&rest test-names)
    (let ((names (or test-names :all)))
      `(new-run-tests ,names)))
  
negative.code:            :assert-error)
    ;; Functions for managing tests
    (:export :define-test
             :run-tests :run-all-tests
             :remove-tests :remove-all-tests
             :use-debugger)
    ;; Functions for reporting test results
    (:export :test-names
  