anchor.diff:  
   ;;; Inverse LLM DCT and dequantization
   (defun inverse-llm-dct (block q-table)
  -  "Performs Inverse LMM DCT and dequantizetion"
  +  "Performs Inverse LMM DCT and dequantization"
     (let ((tmp0 0) (tmp1 0) (tmp2 0) (tmp3 0)
           (tmp10 0) (tmp11 0) (tmp12 0) (tmp13 0)
           (z1 0) (z2 0) (z3 0) (z4 0) (z5 0)
  
positive.code: 
  ;;; Builds common decoding and encoding tables
  (defun build-universal-tables (bits)
    (let ((huffsize (make-array 256))
          (huffcode (make-array 256))
          (lastk 0))
      (declare #.*optimize* (type fixnum lastk)
               (type (simple-array t (*)) huffcode huffsize)
  	     (type uint8-array bits))
      ;; generating huffsize
        (loop for i fixnum from 1 to 16
  
negative.code: 
  ;;;Builds ordered code tables for encoder
  (defun build-tables (bits huffval)
    (let ((ehufco (make-array 256 :element-type 'fixnum))
          (ehufsi (make-array 256 :element-type 'fixnum)))
      (multiple-value-bind (huffcode huffsize lastk)
          (build-universal-tables bits)
        (declare (type fixnum-array huffsize huffcode)
                 (type fixnum lastk))
        (loop with i fixnum for k from 0 below lastk do
              (setf i (aref huffval k))
  