anchor.diff:                              (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)))))
   
  
positive.code:                        (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)
          (apply emfun args)))))
  
  (defun reordered-argument (gf arguments index)
  
negative.code:                                  (slot-def (accessor-method-slot-definition (first applicable-methods)))
                                   (slot-name (slot-definition-name slot-def))
                                   (effective-slot (find-effective-slot instance slot-name)))
                              (cond (effective-slot
                                     (let* ((location (safe-slot-definition-location effective-slot))
                                            (typecheck (safe-slot-definition-typecheck effective-slot))
  