     (if (base-type tsym)
       (let [t (base-type tsym)
             assign-impls (fn [[psym sigs]]
-                           (let [pfn-prefix (subs (str psym) 0 (inc (.lastIndexOf (str psym) ".")))]
+                           (let [pfn-prefix (subs (str psym) 0 (clojure.core/inc (.lastIndexOf (str psym) ".")))]
                              (cons `(aset ~psym ~t true)
                                    (map (fn [[f & meths]]
                                           `(aset ~(symbol (str pfn-prefix f)) ~t (fn* ~@meths)))


(defmacro aset [a i v]
  (list 'js* "(~{}[~{}] = ~{})" a i v))

(defn- protocol-prefix [psym]
  (str (.replace (str psym) \. \$) "$"))

                            with-loading-context with-local-vars with-open with-out-str with-precision with-redefs
                            satisfies?

                            aget aset + - * / <= >= == zero? pos? neg? inc dec rem]))

(alias 'core 'clojure.core)

