 		  `(~'-lookup [this# ~ksym else#]
          (cond
            ~@(mapcat (fn [f] [`(identical? ~ksym ~(keyword f)) f]) base-fields)
-           :else (get ~'__extmap ~ksym else#)))
+           :else (core/get ~'__extmap ~ksym else#)))
 		  'ICounted
 		  `(~'-count [this#] (+ ~(count base-fields) (count ~'__extmap)))
 		  'ICollection

                            memfn ns or proxy proxy-super pvalues refer-clojure reify sync time
                            when when-first when-let when-not while with-bindings with-in-str
                            with-loading-context with-local-vars with-open with-out-str with-precision with-redefs
                            satisfies? identical? true? false? nil? str

                            aget aset
                            + - * / < <= > >= == zero? pos? neg? inc dec max min mod

	       prefer-table# (atom {})
	       method-cache# (atom {})
	       cached-hierarchy# (atom {})
	       hierarchy# (core/get ~options :hierarchy cljs.core/global-hierarchy)
	       ]
	   (cljs.core.MultiFn. ~(name mm-name) ~dispatch-fn ~default hierarchy#
			       method-table# prefer-table# method-cache# cached-hierarchy#))))))
