fixed inadvertant reflection in protocol paths, replace object-array in jvm impl with faster impl

VERSION

@@ -1 +1 @@
-0.9.0
+0.9.1-SNAPSHOT

project.clj

@@ -5,7 +5,8 @@
                  [org.clojure/clojurescript "0.0-3211"]
                  ]
   :jvm-opts ["-XX:-OmitStackTraceInFastThrow"] ; this prevents JVM from doing optimizations which can remove stack traces from NPE and other exceptions
-  :source-paths ["src"]
+  :source-paths ["src/clj"]
+  :java-source-paths ["src/java"]
   :test-paths ["test", "target/test-classes"]
   :jar-exclusions [#"\.cljx"]
   :auto-clean false
@@ -13,10 +14,10 @@
                    [[org.clojure/test.check "0.7.0"]]
                    :plugins
                    [[com.keminglabs/cljx "0.6.0"]]
-                   :cljx {:builds [{:source-paths ["src"]
+                   :cljx {:builds [{:source-paths ["src/clj"]
                                     :output-path "target/classes"
                                     :rules :clj}
-                                   {:source-paths ["src"]
+                                   {:source-paths ["src/clj"]
                                     :output-path "target/classes"
                                     :rules :cljs}
                                    {:source-paths ["test"]

src/clj/com/rpl/specter/defhelpers.clj

@@ -9,7 +9,7 @@
                     :let [args (vec (gensyms i))
                           setters (for [j (range i)] `(aset ~a ~j ~(get args j)))]]
                 `(~invoke-name [this# ~@args]
-                  (let [~a (object-array ~i)]
+                  (let [~a (com.rpl.specter.impl/fast-object-array ~i)]
                     ~@setters
                     (com.rpl.specter.impl/bind-params* this# ~a 0)
                     )))]

src/clj/com/rpl/specter/impl.cljx

@@ -12,6 +12,8 @@
             [clojure.string :as s]
             #+clj [com.rpl.specter.defhelpers :as dh]
             )
+  #+clj
+  (:import [com.rpl.specter Util])
   )
 
 (defn spy [e]
@@ -79,6 +81,15 @@
 
 (declare bind-params*)
 
+#+clj
+(defmacro fast-object-array [i]
+  `(com.rpl.specter.Util/makeObjectArray ~i))
+
+#+cljs
+(defn fast-object-array [i]
+  (object-array i))
+
+
 #+clj
 (dh/define-ParamsNeededPath
   clojure.lang.IFn
@@ -555,16 +566,20 @@
     structure))
 
 (defn compiled-selector [^com.rpl.specter.impl.CompiledPath path]
-  (-> path .-transform-fns .-selector))
+  (let [^com.rpl.specter.impl.TransformFunctions tfns (.-transform-fns path)]
+    (.-selector tfns)))
 
 (defn compiled-transformer [^com.rpl.specter.impl.CompiledPath path]
-  (-> path .-transform-fns .-transformer))
+  (let [^com.rpl.specter.impl.TransformFunctions tfns (.-transform-fns path)]
+    (.-transformer tfns)))
 
 (defn params-needed-selector [^com.rpl.specter.impl.ParamsNeededPath path]
-  (-> path .-transform-fns .-selector))
+  (let [^com.rpl.specter.impl.TransformFunctions tfns (.-transform-fns path)]
+    (.-selector tfns)))
 
 (defn params-needed-transformer [^com.rpl.specter.impl.ParamsNeededPath path]
-  (-> path .-transform-fns .-transformer))
+  (let [^com.rpl.specter.impl.TransformFunctions tfns (.-transform-fns path)]
+      (.-transformer tfns)))
 
 #+clj
 (defn extend-protocolpath* [protpath-prot extensions]

src/java/com/rpl/specter/Util.java

@@ -0,0 +1,7 @@
+package com.rpl.specter;
+
+public class Util {
+  public static Object[] makeObjectArray(int size) {
+    return new Object[size];
+  }
+}