anchor.diff:        (image-info stream (car ifds)))))
   
   (defun read-tiff-file-info (pathname)
  -  (with-open-file (stream pathname :direction :input :element-type :default)
  +  (with-open-file (stream pathname :direction :input :element-type '(unsigned-byte 8))
       (read-tiff-stream-info stream)))
   
  
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:   (let ((stream (gensym "write-tiff-file")))
      `(with-open-file (,stream ,pathname
                               :direction :output
                               :element-type '(unsigned-byte 8)
                               ,@args)
         (write-tiff-stream ,stream ,image)
         ,pathname)))
  