anchor.diff:                                   (slot-def (accessor-method-slot-definition (first applicable-methods)))
                                    (slot-name (slot-definition-name slot-def))
                                    (effective-slot (find-effective-slot instance slot-name)))
  -                            (register-redefinition-flusher gf class)
                               (cond (effective-slot
                                      (let* ((location (safe-slot-definition-location effective-slot))
                                             (typecheck (safe-slot-definition-typecheck effective-slot))
  
positive.code:     (pushnew gf (gethash class *redefinition-flush-table* '()))))
  
  (defun flush-emf-tables-on-class-redefinition (class)
    ;; CLASS is being redefined, flush any associated the EMF tables and wipe away the entry.
    (let ((gfs (mezzano.supervisor:with-mutex (*redefinition-flush-table-lock*)
                 (prog1
                     (gethash class *redefinition-flush-table*)
  
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)))))
  
  