anchor.diff:                   (not (mismatch output original :end1 bytes-output
                                   :end2 bytes-output)))))))))
   
  -(defun gzip-test/whole-file-cons (compressed-pathname original-pathname)
  +(defun test/whole-file-cons (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
  
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:                                           :element-type '(unsigned-byte 8)))
              (original (make-array (file-length stream)
                                    :element-type '(unsigned-byte 8))))
          (read-sequence compressed-input compressed-stream)
          (let ((output (decompress nil format compressed-input)))
            (read-sequence original stream)
            (and (= (length original) (length output))
                 (not (mismatch output original))))))))
  
  (defun test/incremental-file (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
  