anchor.diff:      #(99 99 99 99 99 99 99 99)
       #(99 99 99 99 99 99 99 99)))
   
  -(defconstant *q-luminance-hi*
  +(defconstant +q-luminance-hi+
     #(#(10 7 6 10 15 25 32 38)
       #(8 8 9 12 16 36 38 34)
       #(9 8 10 15 25 36 43 35)
  
positive.code:                 (2 #(0 1))
                  (4 #(0 1 2 3))
                  (otherwise (error "Illegal number of components specified")))))
      (declare (special *zz-rezult* *prev-byte* *prev-length*))
      (cond ((/= ncomp (length sampling))
             (error "Wrong sampling list for ~D component(s)" ncomp))
            ((> (length q-tabs) ncomp)
  
negative.code: ;;; returns NIL
  ;;;
  ;;; Additionaly, you may use more user-friendly version of encode-image: encode-wrapper.
  ;;; (encoding-wrapper filename image ncomp h w &key quality)
  ;;; All parameters have the same meaning as in encode-image, except quality.
  ;;; It is an integer value ranging 1 to 5 which specifies
  ;;; subjective quality of a resulting image.
  