anchor.diff:  
   (in-package #:jpeg)
   
  -(declaim (inline csize write-stuffed quantize get-average zigzag encode-block llm-dct descale crunch colorspace-convert subsample
  -                 inverse-llm-dct dequantize upsample extend recieve decode-ac decode-dc decode-block izigzag write-bits))
  +(declaim (inline csize write-stuffed quantize get-average zigzag encode-block
  +                 llm-dct descale crunch colorspace-convert subsample inverse-llm-dct
  +                 dequantize upsample extend recieve decode-ac decode-dc decode-block
  +                 izigzag write-bits))
   
   (eval-when (:compile-toplevel :load-toplevel :execute)
     (defvar *optimize*  '(optimize (safety 0) (space 0) (debug 0) (speed 3))))
  
positive.code:                                  (encode-block (zigzag (svref sampled-buf pos))
                                                 hufftabs (svref preds cn) out-stream)))))))))
      (unless (zerop *prev-length*)
        (write-stuffed (deposit-field #xff ;byte padding & flushing
                                      (byte (minus 8 *prev-length*) 0)
                                      (ash *prev-byte* (minus 8 *prev-length*)))
                       out-stream))
  
negative.code: ;;; Creation of this software was sponsored by Kelly E. Murray
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  ;;; WARNING: IT IS HIGHLY RECOMMENDED TO SUSPEND ALL CPU-CONSUMING OS THREADS DURING
  ;;; COMPILATION. OTHERWISE SYSTEM-DEPENDENT OPTIMISATIONS MAY BE MISIDENTIFIED WHICH
  ;;; SHOULD RESULT IN A SUFFICIENTLY DEGRADED PERFORMANCE.
  
  ;;; Two main functions available:
  ;;;
  