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:               (loop for row across *q-luminance* do
                      (loop for q-coef fixnum across row
                            maximize (round (random 128) q-coef))))
          (minus (get-internal-run-time) time1))
        (let ((time1 (get-internal-run-time)))
          (loop for i fixnum from 1 to 3000 do
                (loop for q-row across *q-luminance* do
  
negative.code:                                      2)))
                                  (t
                                   (round val qc))))))
                      (#+clisp - #-clisp minus (get-internal-run-time) time1))))
  (format t "Done.~%")
  (finish-output)
  )
  