X-Git-Url: http://git.kpe.io/?p=memstore.git;a=blobdiff_plain;f=src%2Fcompress.lisp;fp=src%2Fcompress.lisp;h=ff0d80ee951d082be5bdae9b3ac0dcfcd6eb365c;hp=c3920f7edabb6e168e396d39757a75a1a94445cd;hb=51026e8bede49e9dd304195fe4dee30df6326d27;hpb=a78b79b063a808bec0f463db1bb9dc78ba832a46

diff --git a/src/compress.lisp b/src/compress.lisp
index c3920f7..ff0d80e 100644
--- a/src/compress.lisp
+++ b/src/compress.lisp
@@ -14,6 +14,9 @@
 ;; KMR: zlib gives compression errors on random tests:
 ;;    indices outside of input array size
 ;; Using salza2 as default compressor
+(defun compress-zlib (data)
+  (zlib:compress data :fixed))
+
 (defun compress (data)
   (let ((comp (salza2:compress-data
                data
@@ -22,8 +25,9 @@
 
 ;; KMR: zlib appears to works fine with salza2 zlib compressor, but
 ;; moving to chipz as default decompressor as appears better supported
-;;(defun uncompress-zlib (data)
-;;  (zlib:uncompress data))
+
+(defun uncompress-zlib (data)
+  (zlib:uncompress data))
 
 (defun uncompress (data)
   (chipz:decompress nil 'chipz:zlib data))