anchor.diff:  
   (defun update (delta-t)
     (if *running*
  -      (update-object *snake* delta-t))
  +      (update-snake *snake* delta-t))
     (update-fps)
     
     ;; Change angle
  
positive.code:   (setf *last-fps-message-time* (sdl2:get-ticks))
  
    ;; Init snake
    (init-object *snake*))
  
  (defun update-fps ()
    (incf *frame-count*)
  
negative.code: 
  (defun draw()
    (gl:clear :color-buffer)
    (draw-snake *snake*)
    (sdl2:gl-swap-window *window*))
  
  (defun main-loop ()
  