(defclass deflate-compressor ()
((input
:initarg :input
:accessor input)
(chains
:initarg :chains
:accessor chains)
(hashes
:initarg :hashes
:accessor hashes)
(octet-buffer
:initarg :octet-buffer
:accessor octet-buffer)
(literal-fun
:initarg :literal-fun
:accessor literal-fun)
(length-fun
:initarg :length-fun
:accessor length-fun)
(distance-fun
:initarg :distance-fun
:accessor distance-fun)
(byte-fun
:initarg :byte-fun
:accessor byte-fun)
(compress-fun
:initarg :compress-fun
:accessor compress-fun))
(:default-initargs
:input (make-array 65536 :element-type '(unsigned-byte 8))
:chains (make-array 65536
:element-type '(unsigned-byte 16)
:initial-element 0)
:hashes (make-array 8191
:element-type '(unsigned-byte 16)
:initial-element 0)
:octet-buffer nil))
(loop for i from 1 to 10 do
(ccl::process-run-function "noname"
(lambda ()
(loop for j from 1 do
(make-instance 'deflate-compressor)))))