Merge upstreams

[memstore.git] / src / compress.lisp

diff --git a/src/compress.lisp b/src/compress.lisp
index c3920f7edabb6e168e396d39757a75a1a94445cd..ff0d80ee951d082be5bdae9b3ac0dcfcd6eb365c 100644 (file)
--- 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))