anchor.diff:  				    (setf (input-values-left *input-state*) t))
   				   ((>= value 32767)
   				    (setf (input-values-right *input-state*) t))))
  -				((= axis-id 1)
  +				
  +				((= axis-id 1) ; Vertical axis
   				 (setf (input-values-up *input-state*) nil)
   				 (setf (input-values-down *input-state*) nil)
   				 (cond
  
positive.code:   ;; Init game controllers
    (loop for i from 0 upto (- (sdl2:joystick-count) 1)
       do (when (sdl2:game-controller-p i)
  	  (format t "Found gamepad: ~a~%"
  		  (sdl2:game-controller-name-for-index i))
  	  ;; Will only be fetching the controllers.
  	  ;; Won't get joysticks because haptic systems
  	  ;; are not important right now
  
negative.code:   
    ;; Init snake
    (init-snake *snake*))
  
  
  (defun update-fps ()
    (incf *frame-count*)
  