(when old-method
(remove-method #'find-method-combination old-method))
(add-method #'find-method-combination new-method)
(when old-method
(remove-method #'find-method-combination old-method))
(add-method #'find-method-combination new-method)
(setf (gethash type *long-method-combination-functions*) function)
(when old-method (remove-method #'find-method-combination old-method))
(add-method #'find-method-combination new-method)
(setf (gethash type *long-method-combination-functions*) function)
(when old-method (remove-method #'find-method-combination old-method))
(add-method #'find-method-combination new-method)