anchor.diff:    (iV (make-array 4) :type (simple-array t (*)))
     (qdest (make-array 4) :type (simple-array t (*)))
     (zz (make-array 64 :element-type 'sint16) :type sint16-array)
  -  (ncomp 0 :type fixnum))
  +  (ncomp 0 :type fixnum)
  +  (adobe-app14-transform nil))
   
   ;;; Reads an JPEG marker from the stream
   (defun read-marker (s)
  
positive.code: ;;; ANSI Common Lisp (mostly) baseline JPEG encoder/decoder implementation
  ;;; Copyright [c] 1999,2015,2016 Eugene Zaikonnikov <eugene@funcall.org>
  ;;;               
  ;;; This software is distributed under the terms of BSD-like license
  ;;; [see LICENSE for details]
  
negative.code: (defconstant +M_DRI+ #xdd)
  (defconstant +M_DAC+ #xcc)
  (defconstant +M_APP0+ #xe0)
  (defconstant +M_APP14+ #xee)
  
  ;;; Default quantization tables
  (define-constant +q-luminance+
  