/usr/share/common-lisp/source/memstore/src/compress.lisp is in cl-memstore 1.1.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | ;; -*- Mode: Common-Lisp -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; FILE IDENTIFICATION
;;
;; Name: compress.lisp
;; Purpose: Uses zlib to compress and uncompress vectors of octets
;; Author: Kevin Rosenberg
;; Date Started: July 2011
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(in-package #:memstore)
;; 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
(make-instance 'salza2:zlib-compressor))))
(values comp (length comp))))
;; 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 (data)
(chipz:decompress nil 'chipz:zlib data))
|