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: 	    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
  
negative.code: (defconstant +-0.34414+ (round (+ (* -0.34414 (ash 1 shift)) 0.5)))
  
  ;;; Inverse color conversion tables
  (define-constant +cr-r-tab+ (make-array 256
                                          :element-type 'fixnum
                                          :initial-contents
                                          (loop for i from 0 to 255
                                                for x from -127
                                                collect (ash (plus (mul +1.40200+ x) +one-half+) (- shift)))))
  (define-constant +cb-g-tab+ (make-array 256
                                          :element-type 'fixnum
                                          :initial-contents
                                          (loop for i from 0 to 255
                                                for x from -127
                                                collect (plus (mul +-0.34414+ x) +one-half+))))
  (define-constant +cr-g-tab+ (make-array 256
                                          :element-type 'fixnum
                                          :initial-contents
                                          (loop for i from 0 to 255
                                                for x from -127
                                                collect (mul +-0.71414+ x))))
  (define-constant +cb-b-tab+ (make-array 256
                                          :element-type 'fixnum
                                          :initial-contents
                                          (loop for i from 0 to 255
                                                for x from -127
                                                collect (ash (plus (mul +1.77200+ x) +one-half+) (- shift)))))
  
  ;;; Constants for LLM DCT
  (defconstant dct-shift  ; defining DCT scaling
  