From 7772e600111b6d9f3c06b11ea8565c162989a700 Mon Sep 17 00:00:00 2001
From: jeaye <contact@jeaye.com>
Date: Wed, 31 Aug 2016 22:44:20 -0700
Subject: [PATCH] Delay LZ4 creation; close #85

Some environments, such as Google App Engine, restrict classes which can
be used; as such, only if LZ4 is used should it be created.
---
 src/taoensso/nippy.clj             |  6 +++---
 src/taoensso/nippy/compression.clj | 14 +++++++-------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/taoensso/nippy.clj b/src/taoensso/nippy.clj
index 4caf99b..8aafe6c 100644
--- a/src/taoensso/nippy.clj
+++ b/src/taoensso/nippy.clj
@@ -975,12 +975,12 @@
                 compressor
                 (if (identical? compressor :auto)
                   (if no-header?
-                    lz4-compressor
+                    @lz4-compressor
                     (if-let [fc *auto-freeze-compressor*]
                       (fc ba)
                       ;; Intelligently enable compression only if benefit
                       ;; is likely to outweigh cost:
-                      (when (> (alength ba) 8192) lz4-compressor)))
+                      (when (> (alength ba) 8192) @lz4-compressor)))
 
                   (if (fn? compressor)
                     (compressor ba) ; Assume compressor selector fn
@@ -1244,7 +1244,7 @@
     nil        nil
     :snappy    snappy-compressor
     :lzma2     lzma2-compressor
-    :lz4       lz4-compressor
+    :lz4       @lz4-compressor
     :no-header (throw (ex-info ":auto not supported on headerless data." {}))
     :else (throw (ex-info ":auto not supported for non-standard compressors." {}))
     (throw (ex-info (str "Unrecognized :auto compressor id: " compressor-id)
diff --git a/src/taoensso/nippy/compression.clj b/src/taoensso/nippy/compression.clj
index c10a92a..9651649 100644
--- a/src/taoensso/nippy/compression.clj
+++ b/src/taoensso/nippy/compression.clj
@@ -99,7 +99,7 @@
       ba-decomp)))
 
 (def ^:private ^net.jpountz.lz4.LZ4Factory lz4-factory
-  (net.jpountz.lz4.LZ4Factory/fastestInstance))
+  (delay (net.jpountz.lz4.LZ4Factory/fastestInstance)))
 
 (def lz4-compressor
   "Default net.jpountz.lz4 compressor:
@@ -111,13 +111,13 @@
 
   Thanks to Max Penet (@mpenet) for our first implementation,
   Ref. https://github.com/mpenet/nippy-lz4"
-  (LZ4Compressor. (.fastCompressor   lz4-factory)
-                  (.fastDecompressor lz4-factory)))
+  (delay (LZ4Compressor. (.fastCompressor   @lz4-factory)
+                         (.fastDecompressor @lz4-factory))))
 
 (def lz4hc-compressor
   "Like `lz4-compressor` but trades some write speed for ratio."
-  (LZ4Compressor. (.highCompressor   lz4-factory)
-                  (.fastDecompressor lz4-factory)))
+  (delay (LZ4Compressor. (.highCompressor   @lz4-factory)
+                         (.fastDecompressor @lz4-factory))))
 
 (comment
   (def ba-bench (.getBytes (apply str (repeatedly 1000 rand)) "UTF-8"))
@@ -130,8 +130,8 @@
   (println
    {:snappy (bench1 snappy-compressor)
     ;:lzma2  (bench1 lzma2-compressor) ; Slow!
-    :lz4    (bench1 lz4-compressor)
-    :lz4hc  (bench1 lz4hc-compressor)})
+    :lz4    (bench1 @lz4-compressor)
+    :lz4hc  (bench1 @lz4hc-compressor)})
 
   ;;; 2014 April 7
   {:snappy {:time 2251, :ratio 0.852},