anchor.diff:                      table)
              (sort l #'string< :key #'string)))))
   
  -
   (defun remove-tests (names &optional (package *package*))
     (let ((table (get-package-table package)))
       (unless (null table)
         (if (null names)
             (clrhash table)
  -        (dolist (name names)
  -          (remhash name table))))))
  +          (dolist (name names)
  +            (remhash name table))))))
   
   (defun remove-all-tests (&optional (package *package*))
     (if (null package)
         (clrhash *tests*)
  -    (remhash (find-package package) *tests*)))
  -
  +      (remhash (find-package package) *tests*)))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;; Private functions
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -
   
   ;;; DEFINE-TEST support
   
  
positive.code: ;;; ASSERT macros
  
  (defmacro assert-eq (expected form &rest extras)
   (expand-assert :equal form form expected extras :test #'eq))
  
  (defmacro assert-eql (expected form &rest extras)
   (expand-assert :equal form form expected extras :test #'eql))
  
  (defmacro assert-equal (expected form &rest extras)
   (expand-assert :equal form form expected extras :test #'equal))
  
  (defmacro assert-equalp (expected form &rest extras)
   (expand-assert :equal form form expected extras :test #'equalp))
  
  (defmacro assert-error (condition form &rest extras)
   (expand-assert :error form (expand-error-form form)
                  condition extras))
  
  (defmacro assert-expands (&environment env expansion form &rest extras)
    (expand-assert :macro form 
  
negative.code:   (if (atom form) form (cadr form)))
  
  (defun store-test-code (name code &optional (package *package*))
    (setf (gethash name (get-package-table package :create t))
          code))
  
  ;;; ASSERTION support
  
  