anchor.diff:                         (std-compute-effective-method-function gf applicable-methods)
                          (compute-effective-method-function gf applicable-methods))))
           (insert-into-emf-cache (classes-to-emf-table gf) args emfun)
  +        (dolist (c classes)
  +          (register-redefinition-flusher gf c))
           (apply emfun args)))))
   
   (defun reordered-argument (gf arguments index)
  
positive.code:   (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)))))
      (set-funcallable-instance-function gf emfun)
      (apply emfun args)))
  
  ;;; compute-applicable-methods-using-classes
  
  
negative.code:                             (apply #'no-applicable-method gf args))))))
          ;; Cache is only valid for non-eql methods.
          (when validp
            (register-redefinition-flusher gf class)
            (setf (single-dispatch-emf-entry (classes-to-emf-table gf) class) emfun))
          (apply emfun args)))))
  
  