anchor.diff:           (word (logior msb lsb)))
       word))
   
  +(eval-when (:compile-toplevel :load-toplevel :execute)
   ;;; APPn marker reading: just skipping the whole marker
  -(defun read-app (s)
  -  "APPn marker reading: just skipping the whole marker"
  -  (loop for i fixnum from 0 below (minus (read-word s) 2) do
  -        (read-byte s)))
  -
  +  (defun read-app (s)
  +    "APPn marker reading: just skipping the whole marker"
  +    (loop for i fixnum from 0 below (minus (read-word s) 2) do
  +         (read-byte s)))
  +  
   ;;; COM marker reading, same as read-app
  -(setf (symbol-function 'read-com) #'read-app)
  +  (setf (symbol-function 'read-com) #'read-app))
   
   ;;; Sets up restart interval
   (defun read-dri (image s)
  
positive.code: ;;  -*- Mode: LISP; Package: (JPEG :use (common-lisp)) -*-
  ;;; Generic Common Lisp JPEG encoder/decoder implementation
  ;;; $Id: jpeg.lisp,v 1.3 2008-05-10 05:53:19 charmon Exp $
  ;;; Version 1.023, May 2008
  ;;; Written by Eugene Zaikonnikov [viking@funcall.org]
  ;;; Copyright [c] 1999, Eugene Zaikonnikov <viking@funcall.org>
  
negative.code:                                      2)))
                                  (t
                                   (round val qc))))))
                      (#+clisp - #-clisp minus (get-internal-run-time) time1))))
  (format t "Done.~%")
  (finish-output)
  )
  