luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix #109

Browse source
This commit is contained in:
Nathan Marz 2016-06-06 07:48:30 -04:00
parent c81ba0196f
commit 571ba316da
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/clj/com/rpl/specter/impl.cljx
View file

@ -1085,6 +1085,13 @@
) )
))) )))
;; This is needed when aset is used on primitive values in mk-params-maker
;; to avoid reflection
#+clj
(defn aset-object [^objects a i ^Object v]
(aset a i v))
#+clj #+clj
(defn mk-params-maker [ns-str params-code possible-params-code used-locals] (defn mk-params-maker [ns-str params-code possible-params-code used-locals]
(let [ns (find-ns (symbol ns-str)) (let [ns (find-ns (symbol ns-str))
@ -1095,7 +1102,7 @@
(let [~array-sym (fast-object-array ~(count params-code))] (let [~array-sym (fast-object-array ~(count params-code))]
~@(map-indexed ~@(map-indexed
(fn [i c] (fn [i c]
`(aset ~array-sym ~i ~c)) `(aset-object ~array-sym ~i ~c))
params-code params-code
) )
~array-sym ~array-sym