anchor.diff:                  for cb fixnum = (aref buffer pu)
                   for cr fixnum = (aref buffer pv) do
                   (setf (aref buffer py) ; BLUE
  -                      (the uint8 (limit (plus yy (aref *cb-b-tab* cb)))))
  +                      (the uint8 (limit (plus yy (aref +cb-b-tab+ cb)))))
                   (setf (aref buffer pu) ; GREEN
                         (the uint8 (limit (plus yy (ash (plus
  -						       (aref *cb-g-tab* cb)
  -						       (aref *cr-g-tab* cr))
  +						       (aref +cb-g-tab+ cb)
  +						       (aref +cr-g-tab+ cr))
   						      (- shift))))))
                   (setf (aref buffer pv) ; RED
  -                      (the uint8 (limit (plus yy (aref *cr-r-tab* cr)))))))))
  +                      (the uint8 (limit (plus yy (aref +cr-r-tab+ cr)))))))))
   
   (defun ycck-cmyk-convert (image)
     (let* ((buffer (descriptor-buffer image))
  
positive.code: (defconstant +g-v-off+ (* 6 256))
  (defconstant +b-v-off+ (* 7 256))
  
  (declaim (type fixnum-array *ctab* *cr-r-tab* *cb-g-tab* *cr-g-tab* *cb-b-tab*))
  
  ;;;Direct color conversion table
  (defparameter *ctab* (make-array 2048 :element-type 'fixnum :initial-element 0))
  
  ;;; Filling in the table
  (loop for i fixnum from 0 to 255 do
        (setf (aref *ctab* (plus i +r-y-off+))
              (mul +.299+ i))
        (setf (aref *ctab* (plus i +g-y-off+))
              (mul +.587+ i))
        (setf (aref *ctab* (plus i +b-y-off+))
              (mul +.114+ i))
        (setf (aref *ctab* (plus i +r-u-off+))
              (mul +-.1687+ i))
        (setf (aref *ctab* (plus i +g-u-off+))
              (mul +-.3313+ i))
        (setf (aref *ctab* (plus i +b-u-off+))
              (+ (mul +.5+ i) +uvoffset+ +one-half+))
        (setf (aref *ctab* (plus i +r-v-off+))
              (+ (mul +.5+ i) +uvoffset+ +one-half+))
        (setf (aref *ctab* (plus i +g-v-off+))
              (mul +-.4187+ i))
        (setf (aref *ctab* (plus i +b-v-off+))
              (mul +-.0813+ i)))
  
  ;;; Constantsants for the inverse colorspace conversion
  (defconstant +1.40200+ (round (+ (* 1.40200 (ash 1 shift)) 0.5)))
  
negative.code: 	    for cb fixnum = (aref buffer pu)
  	    for cr fixnum = (aref buffer pv) do
  	      (setf (aref buffer pv)	; BLUE
  		    (the uint8 (limit (minus +max-sample+ (plus yy (aref +cb-b-tab+ cb))))))
  	      (setf (aref buffer pu)	; GREEN
  		    (the uint8 (limit (minus +max-sample+
  					     (plus yy (ash (plus
  							    (aref +cb-g-tab+ cb)
  							    (aref +cr-g-tab+ cr))
  							   (- shift)))))))
  	      (setf (aref buffer py)	; RED
  		    (the uint8 (limit (minus +max-sample+ (plus yy (aref +cr-r-tab+ cr))))))))))
  
  (defun convert-cmyk-to-rgb (buffer h w &key rgb-buffer)
    (unless rgb-buffer
  