Merge upstreams
authorKevin M. Rosenberg <kevin@rosenberg.net>
Sat, 29 Aug 2015 17:04:48 +0000 (11:04 -0600)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Sat, 29 Aug 2015 17:04:48 +0000 (11:04 -0600)
1  2 
src/compress.lisp

index 172ff6d435fbc56743fcc61bb50300db8cf03e03,c3920f7edabb6e168e396d39757a75a1a94445cd..ff0d80ee951d082be5bdae9b3ac0dcfcd6eb365c
  ;; 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
@@@ -26,8 -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))