anchor.diff:                                  :element-type '(unsigned-byte 8)))
               (original (make-array (file-length stream)
                                     :element-type '(unsigned-byte 8)))
  -            (zstream (make-inflate-state :gzip)))
  +            (zstream (make-dstate format)))
           (let ((compressed-bytes (read-sequence compressed-input compressed-stream)))
             (read-sequence original stream)
             (multiple-value-bind (bytes-read bytes-output)
  
positive.code: (defpackage :chipz-tests
    (:use :cl :chipz)
    (:export #:run-all-tests))
  
  (in-package :chipz-tests)
  
  (defun gzip-test/whole-file (compressed-pathname original-pathname)
    (with-open-file (compressed-stream compressed-pathname :direction :input
                                       :element-type '(unsigned-byte 8))
      (with-open-file (stream original-pathname :direction :input
  
negative.code:                               :end2 output-index)))))))
  
  #+chipz-system:gray-streams
  (defun test/gray-stream-read-sequence (format compressed-pathname original-pathname)
    (with-open-file (compressed-stream compressed-pathname :direction :input
                                       :element-type '(unsigned-byte 8))
      (with-open-file (stream original-pathname :direction :input
                              :element-type '(unsigned-byte 8))
        (let ((zstream (make-decompressing-stream format compressed-stream))
              (output (make-array (file-length stream)
                                  :element-type '(unsigned-byte 8)))
              (original (make-array (file-length stream)
  