diff --git a/Units/parser-clojure.r/clojure-methods.b/README b/Units/parser-clojure.r/clojure-methods.b/README
new file mode 100644
index 0000000000..0f13bcff06
--- /dev/null
+++ b/Units/parser-clojure.r/clojure-methods.b/README
@@ -0,0 +1 @@
+About methodId kind, see #4126.
diff --git a/Units/parser-clojure.r/clojure-methods.b/args.ctags b/Units/parser-clojure.r/clojure-methods.b/args.ctags
new file mode 100644
index 0000000000..4f109dc1f6
--- /dev/null
+++ b/Units/parser-clojure.r/clojure-methods.b/args.ctags
@@ -0,0 +1,2 @@
+--sort=no
+--fields=+KzZ
diff --git a/Units/parser-clojure.r/clojure-methods.b/expected.tags b/Units/parser-clojure.r/clojure-methods.b/expected.tags
new file mode 100644
index 0000000000..9a793193d3
--- /dev/null
+++ b/Units/parser-clojure.r/clojure-methods.b/expected.tags
@@ -0,0 +1,7 @@
+multimethod.test	input.clj	/^(ns multimethod.test)$/;"	kind:namespace
+test	input.clj	/^(defmulti test$/;"	kind:multi	scope:namespace:multimethod.test
+documented-multimethod	input.clj	/^(defmulti documented-multimethod "Documentation"$/;"	kind:multi	scope:namespace:multimethod.test
+test	input.clj	/^(defmethod test nil$/;"	kind:method	scope:namespace:multimethod.test
+test	input.clj	/^(defmethod test :test$/;"	kind:method	scope:namespace:multimethod.test
+test	input.clj	/^(defmethod test :test2 named-method$/;"	kind:method	scope:namespace:multimethod.test
+named-method	input.clj	/^(defmethod test :test2 named-method$/;"	kind:methodId	method:test	scope:namespace:multimethod.test
diff --git a/Units/parser-clojure.r/clojure-methods.b/input.clj b/Units/parser-clojure.r/clojure-methods.b/input.clj
new file mode 100644
index 0000000000..31b4784212
--- /dev/null
+++ b/Units/parser-clojure.r/clojure-methods.b/input.clj
@@ -0,0 +1,19 @@
+(ns multimethod.test)
+
+(defmulti test
+  (fn [type] type))
+
+(defmulti documented-multimethod "Documentation"
+  (fn [type] type))
+
+(defmethod test nil
+  [& _]
+  nil)
+
+(defmethod test :test
+  [& _]
+  nil)
+
+(defmethod test :test2 named-method
+  [& _]
+  nil)
diff --git a/Units/parser-clojure.r/clojure-vars.b/args.ctags b/Units/parser-clojure.r/clojure-vars.b/args.ctags
new file mode 100644
index 0000000000..4f109dc1f6
--- /dev/null
+++ b/Units/parser-clojure.r/clojure-vars.b/args.ctags
@@ -0,0 +1,2 @@
+--sort=no
+--fields=+KzZ
diff --git a/Units/parser-clojure.r/clojure-vars.b/expected.tags b/Units/parser-clojure.r/clojure-vars.b/expected.tags
new file mode 100644
index 0000000000..b5bad91d48
--- /dev/null
+++ b/Units/parser-clojure.r/clojure-vars.b/expected.tags
@@ -0,0 +1,7 @@
+vars.test	input.clj	/^(ns vars.test)$/;"	kind:namespace
+var	input.clj	/^(def var 'var)$/;"	kind:variable	namespace:vars.test
+doc-var	input.clj	/^(def doc-var "Documentation" 'var)$/;"	kind:variable	scope:namespace:vars.test
+dynamic-var	input.clj	/^(def dynamic-var ^:dynamic 'var)$/;"	kind:variable	scope:namespace:vars.test
+const-var	input.clj	/^(def const-var ^:const 'var)$/;"	kind:variable	scope:namespace:vars.test
+once-var	input.clj	/^(defonce once-var 'evaluated-once)$/;"	kind:variable	scope:namespace:vars.test
+fn-var	input.clj	/^(def fn-var (fn [] true))$/;"	kind:function	scope:namespace:vars.test
diff --git a/Units/parser-clojure.r/clojure-vars.b/input.clj b/Units/parser-clojure.r/clojure-vars.b/input.clj
new file mode 100644
index 0000000000..8a040f9caf
--- /dev/null
+++ b/Units/parser-clojure.r/clojure-vars.b/input.clj
@@ -0,0 +1,13 @@
+(ns vars.test)
+
+(def var 'var)
+
+(def doc-var "Documentation" 'var)
+
+(def dynamic-var ^:dynamic 'var)
+
+(def const-var ^:const 'var)
+
+(defonce once-var 'evaluated-once)
+
+(def fn-var (fn [] true))