anchor.diff:                (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))
  +        (#+clisp - #-clisp 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
  
positive.code: (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 load eval)
    (defvar *optimize*  '(optimize (safety 0) (space 0) (debug 0) (speed 3))))
  ;    '(optimize (safety 1) (space 3) (debug 0) (speed 0))))
  
  (eval-when (compile load eval)
  ;;; For ease of reference
  (defmacro dbref (data x y)
    `(the fixnum (svref (svref ,data ,y) ,x)))
  
negative.code:                                      2)))
                                  (t
                                   (round val qc))))))
                      (#+clisp - #-clisp minus (get-internal-run-time) time1))))
  (format t "Done.~%")
  (finish-output)
  )
  