anchor.diff:  	    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))))))
  +		    (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))
  +							    (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))))))))))
  +		    (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
  
positive.code:                 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)))))
                  (setf (aref buffer pu) ; GREEN
                        (the uint8 (limit (plus yy (ash (plus
  						       (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)))))))))
  
  (defun ycck-cmyk-convert (image)
    (let* ((buffer (descriptor-buffer image))
  
negative.code:                 for b fixnum = (aref rgb pos)
                  for cx fixnum = (minus xd dx)
                  for cy fixnum = (minus yd dy) do
  	       (setf (s16ref Y cx cy) (minus (ash (the fixnum (+ (aref +ctab+ (plus r +r-y-off+))
  								 (aref +ctab+ (plus g +g-y-off+))
  								 (aref +ctab+ (plus b +b-y-off+))))
  						  (- shift))
                                               128))
                  (setf (s16ref U cx cy) (minus (ash (the fixnum (+ (aref +ctab+ (plus r +r-u-off+))
  								  (aref +ctab+ (plus g +g-u-off+))
  								  (aref +ctab+ (plus b +b-u-off+))))
  						   (- shift))
                                               128))
  	       (setf (s16ref V cx cy) (minus (ash (the fixnum (+ (aref +ctab+ (plus r +r-v-off+))
  								 (aref +ctab+ (plus g +g-v-off+))
  								 (aref +ctab+ (plus b +b-v-off+))))
  						  (- shift))
                                               128))))
      (values xend yend)))
  