anchor.diff:            (setf (bit relevant-args i) 1))))
       (setf (generic-function-relevant-arguments gf) relevant-args))
     (reset-gf-emf-table gf)
  -  (setf (classes-to-emf-table gf) (if (generic-function-single-dispatch-p gf)
  -                                      (make-single-dispatch-emf-table)
  -                                      (make-hash-table :test #'equal)))
  +  (setf (classes-to-emf-table gf) (cond ((generic-function-single-dispatch-p gf)
  +                                         (make-single-dispatch-emf-table))
  +                                        ((generic-function-unspecialized-dispatch-p gf)
  +                                         nil)
  +                                        (t (make-hash-table :test #'equal))))
     (setf (generic-function-discriminating-function gf)
           (funcall (if (eq (class-of gf) *the-class-standard-gf*)
                        #'std-compute-discriminating-function
  
positive.code:             (setf (class-dependents class) (remove gf (class-dependents class))))
            (classes-to-emf-table gf))
           (clear-single-dispatch-emf-table (classes-to-emf-table gf)))
          (t (loop
                for classes being the hash-keys in (classes-to-emf-table gf)
                do (loop
                      for class in classes
                      do (setf (class-dependents class) (remove gf (class-dependents class)))))
             (clrhash (classes-to-emf-table gf)))))
  
  (defun required-portion (gf args)
    (let ((number-required (length (gf-required-arglist gf))))
  
negative.code:         (generic-function-single-dispatch-p gf)
        (cond (single-dispatch-p
               (slow-single-dispatch-method-lookup* gf argument-offset args :never-called))
              ((generic-function-unspecialized-dispatch-p gf)
               (slow-unspecialized-dispatch-method-lookup gf args))
              (t (setf (generic-function-discriminating-function gf)
                       (compute-n-effective-discriminator gf (classes-to-emf-table gf) (length (gf-required-arglist gf))))
                 (set-funcallable-instance-function gf (generic-function-discriminating-function gf))
  