anchor.diff:          (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))
  
positive.code:           (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 (generic-function-discriminating-function gf)
          (funcall (if (eq (class-of gf) *the-class-standard-gf*)
                       #'std-compute-discriminating-function
  
negative.code:       (setf (single-dispatch-emf-entry (classes-to-emf-table gf) class) emfun)
        (pushnew gf (class-dependents class))
        (apply emfun args))))
  
  (defun slow-unspecialized-dispatch-method-lookup (gf args)
    (let* ((classes (loop
                       for req in (required-portion gf args)
                       collect *the-class-t*))
           (applicable-methods (std-compute-applicable-methods-using-classes gf classes))
           (emfun (cond (applicable-methods
                          (std-compute-effective-method-function gf applicable-methods))
                         (t
                          (apply #'no-applicable-method gf args)))))
      (setf (generic-function-discriminating-function gf) emfun)
      (set-funcallable-instance-function gf emfun)
      (apply emfun args)))
  
  ;;; compute-applicable-methods-using-classes
  
  