   (defmulti multi/-test (a) a)
   (unwind-protect
       (progn
-  (defmethod-fallback multi/-test (&rest _) 'unknown)
+  (defmulti-method-fallback multi/-test (&rest _) 'unknown)
   (should (eql 'unknown (multi/-test 1)))
   (multi-remove-method-fallback 'multi/-test)
   (should-error (multi/-test 1)))

  (defmulti multi/-test (&rest _) '(multi method))
  (unwind-protect
      (progn
  (defmethod multi/-test '(multi method) (a) a)
  (should (= 2 (multi/-test 2))))
    (reset-state)))


  (defmulti multi/-test (a) 1)
  (unwind-protect
      (progn
  (defmulti-method multi/-test 1 (a) a)
  (should (= 2 (multi/-test 2))))
    (reset-state)))

