anchor.diff:  (defparameter *cell-width* 15)
   (defparameter *cell-height* 14)
   (defparameter *cell-row* 0)
  -
  -(defparameter *frame-rate* 20)
  +(defparameter *number-of-frames* 15)
  +(defparameter *frame-rate* 60)
   (defparameter *screen-width* 500)
   (defparameter *screen-height* 500)
   (defparameter *bg-color* sdl:*black*)
  
positive.code:   (let ((config-file (merge-pathnames "config.lisp")))
      (load config-file)))
  
  (defvar *current-cell* 0)
  (defvar *running* t)
  (defun main ()
    (load-config)
  
negative.code: 		  :color-key (sdl:color :r 255 :b 255)))
  	   (background (when *background-image-filename*
  			 (sdl-image:load-image (namestring 
  						(merge-pathnames *background-image-filename*)))))
  	   (current-cell 0))
       (sdl:with-events ()
         (:quit-event () (prog1 t
  			 (sdl:free image)))
  