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

Note re double vestigial kvs length

Browse source
This commit is contained in:
Peter Taoussanis 2015-09-17 18:51:29 +07:00
parent 36abe07f2b
commit cea505484a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/taoensso/nippy.clj
View file

@ -215,7 +215,7 @@
(defmacro ^:private freezer-kvs [type id & body] (defmacro ^:private freezer-kvs [type id & body]
`(freezer ~type ~id `(freezer ~type ~id
(.writeInt ~'out (* 2 (count ~'x))) (.writeInt ~'out (* 2 (count ~'x))) ; *2 here is vestigial
(encore/backport-run! (encore/backport-run!
(fn [kv#] (fn [kv#]
(freeze-to-out ~'out (key kv#)) (freeze-to-out ~'out (key kv#))
@ -452,7 +452,7 @@
(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) (encore/repeatedly-into* ~coll (quot (.readInt in#) 2) ; /2 here is vestigial
[(thaw-from-in in#) (thaw-from-in in#)]))) [(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]))