kill jvm reflection

This commit is contained in:
Max Penet 2017-01-10 11:40:53 +01:00
parent 66ebd8c536
commit f8d3ad5167
2 changed files with 5 additions and 5 deletions

View file

@ -28,7 +28,7 @@
(pr-str o)
(str o)))
(defn smart-str [& elems]
(defn ^String smart-str [& elems]
(apply str (map smart-str* elems)))
(defn fast-constantly [v]

View file

@ -130,9 +130,9 @@
(recur (+ i 2) (+ j 2)))))))
(let [none-count (i/get-cell none-cell)
array (if (not= 0 none-count)
(java.util.Arrays/copyOf array (* 2 (- len none-count)))
array
)]
(java.util.Arrays/copyOf array (int (* 2 (- len none-count))))
array
)]
(clojure.lang.PersistentArrayMap/createAsIfByAssoc array)))))
@ -246,7 +246,7 @@
(recur (+ i 2) (+ j 2)))))))
(let [none-count (i/get-cell none-cell)
array (if (not= 0 none-count)
(java.util.Arrays/copyOf array (* 2 (- len none-count)))
(java.util.Arrays/copyOf array (int (* 2 (- len none-count))))
array
)]
(clojure.lang.PersistentArrayMap. array)))))