anchor.diff:                            :if-exists :supersede)
       (write-tiff-stream stream image)
       pathname))
  +
  +
  
positive.code:            (add-ifd-entry 
              ifd
              (make-ifd-entry-short +photometric-interpretation-tag+
                                    +photometric-interpretation-rgb+)))))
        (setf (ifd-list fields)
              (list ifd))
        (fixup-ifd-entries fields))))
  
  (defun fixup-ifd-entries (fields)
    (incf *tiff-file-offset* 8)
    (setf (ifd-offset fields) *tiff-file-offset*)
    (let ((ifd (car (ifd-list fields))))
      (let ((num-entries (entry-count ifd)))
        (incf *tiff-file-offset* (+ 2 (* num-entries 12)))))
    fields)
  
  ;;;
  ;;; The general strategy here is to:
  
negative.code:                (if (minusp pad)
                     (let ((cur (file-position out))
                           (offset *tiff-file-offset*))
                       (print (list 'cur cur))
                       (print (list 'offset offset))
                       (progn (file-position out offset)
                              (loop for x across value
                                 do (write-value type out x))
  