From 1506747e42c2b2157a28f333fbd70e19b0138f87 Mon Sep 17 00:00:00 2001 From: Peter Taoussanis Date: Wed, 30 Sep 2015 11:53:17 +0700 Subject: [PATCH] Tune buffer size, freeze compressor selector --- src/taoensso/nippy.clj | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/taoensso/nippy.clj b/src/taoensso/nippy.clj index ae64828..b1d2ada 100644 --- a/src/taoensso/nippy.clj +++ b/src/taoensso/nippy.clj @@ -203,7 +203,7 @@ (if (counted? ~'x) (do (.writeInt ~'out (count ~'x)) (encore/run!* (fn [i#] (freeze-to-out ~'out i#)) ~'x)) - (let [bas# (ByteArrayOutputStream.) + (let [bas# (ByteArrayOutputStream. 64) sout# (DataOutputStream. bas#) cnt# (reduce (fn [^long cnt# i#] (freeze-to-out sout# i#) @@ -377,9 +377,9 @@ [^bytes ba] (let [ba-len (alength ba)] (cond - ;; (> ba-len 1024) lzma2-compressor - ;; (> ba-len 512) lz4hc-compressor - (> ba-len 128) lz4-compressor + ;; (> ba-len 4098) lzma2-compressor + ;; (> ba-len 2048) lz4hc-compressor + (> ba-len 1024) lz4-compressor :else nil))) (encore/defonce* ^:dynamic *default-freeze-compressor-selector* @@ -403,7 +403,7 @@ compressor (if legacy-mode? snappy-compressor compressor) encryptor (when password (if-not legacy-mode? encryptor nil)) skip-header? (or skip-header? legacy-mode?) - baos (ByteArrayOutputStream.) + baos (ByteArrayOutputStream. 64) dos (DataOutputStream. baos)] (freeze-to-out! dos x) (let [ba (.toByteArray baos)