anchor.diff:      (setq sampling '((1 1))))
     (let* ((wd (loop for entry in sampling maximize (first entry)))
            (ht (loop for entry in sampling maximize (second entry)))
  +	 (*zz-result* (make-array 64 :element-type 'unsigned-byte))
  +	 (*prev-byte* 0) ; State variables for write-bits
  +	 (*prev-length* 0)
            (isampling (convert-sampling sampling wd ht))
            (height (ash ht 3))
            (width (ash wd 3))
  
positive.code:                                    for x-pos fixnum from (mul (ash x 3) H) by (ash H 3)
                                     for decoded-block =
                                        (izigzag (decode-block (descriptor-zz image)
                                                               (svref tables comp) nextbit s) +zzbuf+) do
                                     ;; DC decoding and predictor update
                                        (incf (dbref decoded-block 0 0) (svref preds comp))
                                        (setf (svref preds comp) (dbref decoded-block 0 0))
  
negative.code:       (setf (svref *cr-g-tab* i) (mul +-0.71414+ x))
        (setf (svref *cb-g-tab* i) (plus (mul +-0.34414+ x) +one-half+)))
  
  ;;; Constants for LLM DCT
  (defconstant dct-shift  ; defining DCT scaling
    (if (<= (integer-length most-positive-fixnum) 31)
  