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

  (defmulti multi/-test (a &rest _) a)
  (unwind-protect
      (progn
  (defmethod multi/-test 'rect (_ w h) (* w h))
  (defmethod multi/-test 'circle (_ r) (* float-pi (* r r)))
  (defmethod-fallback multi/-test (&rest _) 'unknown)
  (should (= 52 (multi/-test 'rect 4 13)))
  (should (= 28.274333882308138 (multi/-test 'circle 3)))
  (should (eql 'unknown (multi/-test 'sphere))))

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

