anchor.diff:  (defun update (delta-t)
     (if *running*
         (update-snake *snake* delta-t))
  -  (update-fps)
  -  
  -  ;; Change angle
  -  ;;(incf *angle* 0.5)
  -  ;;(if (> *angle* 360.0)
  -  ;;    (decf *angle* 360.0))
  -  )
  +  (update-fps))
   
   (defun draw()
     (gl:clear :color-buffer)
  
positive.code: 		  (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-return)
  		    (setf (input-values-restart *input-state*) t)))
  	
  	(:controlleraxismotion (:which controller-id :axis axis-id :value value)
  			       (when (= controller-id 0)
  				 (when (= axis-id 0) ;; Horizontal axis
  				   (format t "Axis value: ~a~%" value)
  				   (setf (input-values-left *input-state*) nil)
  				   (setf (input-values-right *input-state*) nil)
  				   (cond
  				     ((< value 0)
  				      (setf (input-values-left *input-state*) t))
  				     ((> value 0)
  				      (setf (input-values-right *input-state*) t))))
  				 ;;to-do
  				  ))
  	
  	(:idle ()
  	       #+(and sbcl (not sb-thread))
  
negative.code: (defparameter *gl-context* nil)
  (defparameter *window-width* 960)
  (defparameter *window-height* 540)
  (defparameter *game-controllers* nil)
  (defparameter *angle* 0.0)
  (defparameter *running* t)
  
  