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