Clojure: Fix skipMetadata not called for functions (#2728)

* Clojure: Fix skipMetadata not called for functions

* Units(Clojure): Add tests clojure-metadata-in-fn

* Units(Clojure): Fix input.clj path for test clojure-metadata-in-fn

Units/parser-clojure.r/clojure-metadata-in-fn.d/expected.tags

@@ -0,0 +1,6 @@
+my-fn	input.clj	/^(defn my-fn [])$/;"	f
+my-hinted-fn	input.clj	/^(defn my-hinted-fn ^MyReturnType [])$/;"	f
+my-private-fn	input.clj	/^(defn ^:private my-private-fn [])$/;"	f
+my-private-hinted-fn	input.clj	/^(defn ^:private my-private-hinted-fn ^MyReturnType [])$/;"	f
+my-public-fn	input.clj	/^(defn ^{:foo :bar} my-public-fn [])$/;"	f
+so-many-hints	input.clj	/^(defn ^:private so-many-hints ^MyReturnType$/;"	f

Units/parser-clojure.r/clojure-metadata-in-fn.d/input.clj

@@ -0,0 +1,12 @@
+(defn my-fn [])
+
+(defn ^:private my-private-fn [])
+
+(defn ^{:foo :bar} my-public-fn [])
+
+(defn my-hinted-fn ^MyReturnType [])
+
+(defn ^:private my-private-hinted-fn ^MyReturnType [])
+
+(defn ^:private so-many-hints ^MyReturnType
+  [^MyArgType x])

parsers/clojure.c

@@ -123,6 +123,7 @@ static int makeNamespaceTag (vString * const name, const char *dbp)
 
 static void makeFunctionTag (vString * const name, const char *dbp, int scope_index)
 {
+	dbp = skipMetadata (dbp);
 	functionName (name, dbp);
 	if (vStringLength (name) > 0 && ClojureKinds[K_FUNCTION].enabled)
 	{