anchor.diff:                                (lambda (x)
                                   (make-instance 'rational :numerator (car x)
                                                  :denominator (cdr x)))
  -                              (print data))
  +                              data)
                      :value-count (length data))))
   
   
  
positive.code:         (incf *tiff-file-offset* 8)
          (setf (ifd-offset fields) *tiff-file-offset*)
          
          (let ((num-entries (print (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)))
          
            ;; skip one more ifd-entry
            (incf *tiff-file-offset* 12)
  
negative.code:            ifd
             (make-ifd-entry-long
              +strip-offsets-tag+
              (map 'vector
                   (lambda (x) (+ x
                                  *tiff-file-offset*
                                  out-of-line-data-size))
                   strip-offsets)))
  
            (values fields out-of-line-data-size strip-offsets strip-byte-counts))))))
  
  