Enable locals completion for defmethod

CHANGELOG.md

@@ -2,6 +2,9 @@
 
 ### master (unreleased)
 
+- [#84](https://github.com/alexander-yakushev/compliment/pull/84) Enable
+  locals completion for `defmethod` form
+
 ### 0.3.12 (2021-10-21)
 
 - [#77](https://github.com/alexander-yakushev/compliment/issues/77): Add ability

src/compliment/sources/local_bindings.clj

@@ -6,7 +6,7 @@
 (def let-like-forms '#{let if-let when-let if-some when-some loop with-open
                        dotimes with-local-vars})
 
-(def defn-like-forms '#{defn defn- fn defmacro})
+(def defn-like-forms '#{defn defn- fn defmacro defmethod})
 
 (def doseq-like-forms '#{doseq for})
 

test/compliment/sources/t_local_bindings.clj

@@ -57,7 +57,12 @@
                                          '(defn multiarg-fn "docstring"
                                             ([arg] (multiarg-fn arg nil))
                                             ([arg1 arg2] (do-stuff __prefix__))))))
-    => (just ["multiarg-fn" "arg" "arg1" "arg2"] :in-any-order))
+    => (just ["multiarg-fn" "arg" "arg1" "arg2"] :in-any-order)
+
+    (strip-tags (src/candidates "" *ns* (ctx/parse-context
+                                         '(defmethod multimethod "dispatch-val"
+                                            [foo bar & rest] __prefix__))))
+    => (just ["multimethod" "foo" "bar" "rest"]))
 
   (defmacro ^{:completion/locals :letfn} like-letfn [& _])
   (fact "letfn is supported"