CLJS-1451 Protocol impl do not support qualified method names

To solve the issue, the method's namespace is completely ignored,
which makes methods with the right name but the wrong namespace legal.

Author: bensu

src/main/clojure/cljs/core.cljc

@@ -1403,7 +1403,7 @@
       (ifn-invoke-methods type type-sym form))))
 
 (core/defn- add-proto-methods* [pprefix type type-sym [f & meths :as form]]
-  (core/let [pf (core/str pprefix f)]
+  (core/let [pf (core/str pprefix (name f))]
     (if (vector? (first meths))
       ;; single method case
       (core/let [meth meths]
@@ -1435,9 +1435,10 @@
   (core/when-not (= p 'Object)
     (core/let [var (ana/resolve-var (dissoc env :locals) p)
                minfo (core/-> var :protocol-info :methods)
+               ->name (comp symbol name first)
                [fname sigs] (if (core/vector? (second method))
-                              [(first method) [(second method)]]
-                              [(first method) (map first (rest method))])
+                              [(->name method) [(second method)]]
+                              [(->name method) (map first (rest method))])
                decmeths (core/get minfo fname ::not-found)]
       (core/when (= decmeths ::not-found)
         (ana/warning :protocol-invalid-method env {:protocol p :fname fname :no-such-method true}))

src/test/cljs/cljs/core_test.cljs

@@ -2936,6 +2936,14 @@
   (is (= (hash (.toString #uuid "0d1f9029-40fc-4728-8bdd-9862172d4370"))
          (hash (.toString (UUID. "0d1f9029-40fc-4728-8bdd-9862172d4370" nil))))))
 
+(defprotocol IFooBar
+  (a-method [t]))
+
+(deftest test-cljs-1451
+  (is (= "foobar" (a-method (reify
+                              IFooBar
+                              (cljs.core-test/a-method [_] "foobar"))))))
+
 (comment
   ;; ObjMap
   ;; (let [ks (map (partial str "foo") (range 500))