anchor.diff:           (marker (interpret-markers image 0 stream)))
       (cond ((= +M_SOF0+ marker)
              (decode-frame image stream buffer)
  -           (when (and colorspace-conversion (= (descriptor-ncomp image) 3))
  -             (inverse-colorspace-convert image))
  +           (when colorspace-conversion
  +	     (cond ((and (= (descriptor-ncomp image) 3) (eql (descriptor-adobe-app14-transform image) :ycbcr-rgb))
  +		    (inverse-colorspace-convert image))
  +		   ((eql (descriptor-adobe-app14-transform image) :ycck-cmyk)
  +		    (ycck-cmyk-convert image))
  +		   ((= (descriptor-ncomp image) 3)
  +		    (inverse-colorspace-convert image))))
              (values (descriptor-buffer image)
                      (descriptor-height image)
                      (descriptor-width image)
  
positive.code:                 (setf (aref buffer pv) ; RED
                        (the uint8 (limit (plus yy (aref *cr-r-tab* cr)))))))))
  
  (defun allocate-buffer (height width ncomp)
    (make-array (* height width ncomp) 
  	      :element-type 'uint8
  
negative.code: ;;; ANSI Common Lisp (mostly) baseline JPEG encoder/decoder implementation
  ;;; Copyright [c] 1999,2015-2017 Eugene Zaikonnikov <eugene@funcall.org>
  ;;;               
  ;;; This software is distributed under the terms of BSD-like license
  ;;; [see LICENSE for details]
  