anchor.diff:        (unless (= tiff-magic 42)
           (error "Error reading TIFF file. ~S is not 42." tiff-magic)))
       (let ((ifds (read-ifds stream)))
  -      ifds)))
  +      (let ((ifd (car ifds)))
  +        (read-image stream ifd)))))
   
   (defun read-tiff-file (pathname)
     (with-open-file (stream pathname :direction :input :element-type :default)
  -    (read-tiff-stream stream)))+    (read-tiff-stream stream)))
  +
  +(defun write-tiff-stream (stream image)
  +  (declare (ignore stream image))
  +  (error "Not yet!"))
  +
  +(defun write-tiff-file (pathname image)
  +  (with-open-file (stream pathname :direction :output :element-type :default)
  +    (write-tiff-stream stream image)))
  
positive.code:        (progn
           (file-position stream ifd)
           (read-ifd stream))))
  
  (defun read-tiff-stream (stream)
    (let ((*byte-order*))
  
negative.code:     (read-sequence buf stream)
      buf))
  
  (defun read-int-16 (stream &key (byte-order *byte-order*))
    (let ((bytes (read-bytes stream 2)))
      (ecase byte-order
        ((:big-endian nil) (+ (ash (aref bytes 0) 8) (aref bytes 1)))
        (:little-endian (+ (ash (aref bytes 1) 8) (aref bytes 0))))))
  
  (defun read-int-16-array (stream count)
    (let ((array (make-array count :element-type '(unsigned-byte 16))))
      (loop for i below count
         do (setf (aref array i) (read-int-16 stream)))
      array))
  
  (defun read-int-32 (stream)
    (let ((bytes (read-bytes stream 4)))
  