anchor.diff:          (strip-byte-counts (get-ifd-values ifd +strip-byte-counts-tag+))
           (compression (get-ifd-value ifd +compression-tag+))
           (predictor (get-ifd-value ifd +predictor-tag+))
  +        image-info
  +        (jpeg-tables (get-ifd-values ifd +jpeg-tables+))
           (color-map (get-ifd-values ifd +color-map-tag+)))
  +    (when jpeg-tables
  +      (setf image-info (make-instance 'jpeg-image-info :jpeg-tables jpeg-tables)))
       (let* ((k (expt 2 bits-per-sample))
              (color-index (make-array k)))
         (loop for i below k
  
positive.code:           (t
             (error "Planar Configuration ~A not supported." planar-configuration)))))))
  
  (defun read-indexed-strip (stream array start-row strip-offset
                             strip-byte-count width bits-per-sample
                             bytes-per-pixel compression)
    (file-position stream strip-offset)
    (let ((compressed (read-bytes stream strip-byte-count)))
      (let ((decoded (funcall (find-compression-decoder compression) compressed))
  	  (decoded-offset 0))
        (let ((strip-length (/ (length decoded) width)))
  	(loop for i from start-row below (+ start-row strip-length)
  	   do
  	   (let ((rowoff (* i width bytes-per-pixel)))
  	     (loop for j below width
  		do
  		(let ((pixoff (+ rowoff (* bytes-per-pixel j))))
  		  (case bits-per-sample
  		    (8
  		     (setf (aref array pixoff)
  			   (aref decoded decoded-offset))
  		     (incf decoded-offset))
  		    (16
  		     (let ((data-offset pixoff))
  		       (ecase *byte-order*
  			 (:big-endian
  			  (setf (aref array data-offset)
  				(aref decoded decoded-offset)
  				(aref array (1+ data-offset))
  				(aref decoded (1+ decoded-offset))))
  			 (:little-endian
  			  (setf (aref array (1+ data-offset))
  				(aref decoded decoded-offset)
  				(aref array data-offset)
  				(aref decoded (1+ decoded-offset)))))
  		     (incf decoded-offset 2))))))))))))
  
  (defun read-indexed-image (stream ifd)
    (let ((image-width (get-ifd-value ifd +image-width-tag+))
          (image-length (get-ifd-value ifd +image-length-tag+))
  
negative.code:        (read-grayscale-image stream ifd))
        (#.+photometric-interpretation-rgb+
         (read-rgb-image stream ifd))
        (#.+photometric-interpretation-palette-color+
         (read-indexed-image stream ifd))))))
  
  