anchor.diff:          (incf *tiff-file-offset* 8)
           (setf (ifd-offset fields) *tiff-file-offset*)
           
  -        (let ((num-entries (print (entry-count ifd))))
  +        (let ((num-entries (entry-count ifd)))
             (incf *tiff-file-offset* (+ 2 (* num-entries 12))))
           
           (let ((out-of-line-data-size 
                  (* 4 (length strip-offsets))))
             (loop for entry in (entries ifd)
  -             do (describe entry) 
  -               (incf out-of-line-data-size 
  -                     (ifd-entry-out-of-line-bytes entry)))
  +             do (incf out-of-line-data-size 
  +                      (ifd-entry-out-of-line-bytes entry)))
           
             ;; skip one more ifd-entry
             (incf *tiff-file-offset* 12)
  
positive.code:                               (lambda (x)
                                  (make-instance 'rational :numerator (car x)
                                                 :denominator (cdr x)))
                                (print data))
                     :value-count (length data))))
  
  
  
negative.code:                                      (+ start count))
                               stream))))))
  
  (defun write-tiff-file (pathname image &rest args)
    (with-open-file (stream pathname
                            :direction :output
                            :element-type '(unsigned-byte 8)
                            :if-exists :supersede)
      (apply #'write-tiff-stream stream image args)
      pathname))
  
  
  