anchor.diff:    (let ((stream (gensym "write-tiff-file")))
       `(with-open-file (,stream ,pathname
                                :direction :output
  -                             :element-type :default
  +                             :element-type '(unsigned-byte 8)
                                ,@args)
          (write-tiff-stream ,stream ,image)
          ,pathname)))
  
positive.code:         (read-image stream ifd)))))
  
  (defun read-tiff-file (pathname)
    (with-open-file (stream pathname :direction :input :element-type :default)
      (read-tiff-stream stream)))
  
  ;; we should return the number of strips (and possibly the length of
  
negative.code:       (image-info stream (car ifds)))))
  
  (defun read-tiff-file-info (pathname)
    (with-open-file (stream pathname :direction :input :element-type '(unsigned-byte 8))
      (read-tiff-stream-info stream)))
  
  