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

Perf: anon fn is faster here

Browse source
This commit is contained in:
Peter Taoussanis 2015-09-19 11:04:33 +07:00
parent cea505484a
commit db375e7686
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/taoensso/nippy.clj
View file

@ -448,12 +448,13 @@
(defmacro read-compact-long [in] `(long (BigInteger. (read-bytes ~in :small))))
(defmacro ^:private read-coll [in coll]
`(let [in# ~in] (encore/repeatedly-into* ~coll (.readInt in#) (thaw-from-in in#))))
`(let [in# ~in] (encore/repeatedly-into ~coll (.readInt in#)
(fn [] (thaw-from-in in#)))))
(defmacro ^:private read-kvs [in coll]
`(let [in# ~in]
(encore/repeatedly-into* ~coll (quot (.readInt in#) 2) ; /2 here is vestigial
[(thaw-from-in in#) (thaw-from-in in#)])))
(encore/repeatedly-into ~coll (quot (.readInt in#) 2) ; /2 here is vestigial
(fn [] [(thaw-from-in in#) (thaw-from-in in#)]))))
(def ^:private class-method-sig (into-array Class [IPersistentMap]))
@ -578,8 +579,8 @@
;;; DEPRECATED
id-old-reader (encore/read-edn (.readUTF in))
id-old-string (.readUTF in)
id-old-map (apply hash-map (encore/repeatedly-into* []
(* 2 (.readInt in)) (thaw-from-in in)))
id-old-map (apply hash-map (encore/repeatedly-into [] (* 2 (.readInt in))
(fn [] (thaw-from-in in))))
id-old-keyword (keyword (.readUTF in))
id-prefixed-custom ; Prefixed custom type