anchor.diff:           (Vmax (loop for entry across fr maximize (the fixnum (second entry))))
            (x-growth (ash Hmax 3))
            (y-growth (ash Vmax 3))
  -	 (*ws* (2d-sint16-array
  -		'(0  0  0  0  0  0  0  0)
  -		'(0  0  0  0  0  0  0  0)
  -		'(0  0  0  0  0  0  0  0)
  -		'(0  0  0  0  0  0  0  0)
  -		'(0  0  0  0  0  0  0  0)
  -		'(0  0  0  0  0  0  0  0)
  -		'(0  0  0  0  0  0  0  0)
  -		'(0  0  0  0  0  0  0  0))) ; Temporary workspace for IDCT
            (freqs (make-array ncomp :initial-contents
                               (loop for i fixnum from 0 below ncomp ; collecting sampling frequencies
                                     for cid fixnum = (first (aref (scan-cdesc scan) i))
  
positive.code: (defmacro dct-limit (n)
    `(aref *idct-limit-array* (logand (plus ,n 255) 511)))
  
  (defvar *ws*)
  (declaim (type sint16-2d-array *ws*))
  
  ;;; Inverse LLM DCT and dequantization
  (defun inverse-llm-dct (block q-table)
    "Performs Inverse LMM DCT and dequantization"
    (let ((tmp0 0) (tmp1 0) (tmp2 0) (tmp3 0)
          (tmp10 0) (tmp11 0) (tmp12 0) (tmp13 0)
  
negative.code:   (qdest (make-array 4) :type (simple-array t (*)))
    (zz (make-array 64 :element-type 'sint16) :type sint16-array)
    (ncomp 0 :type fixnum)
    (ws (2d-sint16-array
         '(0  0  0  0  0  0  0  0)
         '(0  0  0  0  0  0  0  0)
         '(0  0  0  0  0  0  0  0)
         '(0  0  0  0  0  0  0  0)
         '(0  0  0  0  0  0  0  0)
         '(0  0  0  0  0  0  0  0)
         '(0  0  0  0  0  0  0  0)
         '(0  0  0  0  0  0  0  0))
        :type sint16-2d-array)	; Temporary workspace for IDCT
    (adobe-app14-transform nil))
  
  ;;; Reads an JPEG marker from the stream
  