anchor.diff:  		  (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-right)
   		    (setf (input-values-right *input-state*) t))
   		  (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-return)
  -		    (setf (input-values-restart *input-state*) t)))
  +		    (setf (input-values-start *input-state*) t))
  +		  (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-escape)
  +		    (setf (input-values-back *input-state*) t)))
   	
   	(:joyaxismotion (:which controller-id :axis axis-id :value value)
   			(when (= controller-id 0)
  -			  (cond ((= axis-id 0) ;; Horizontal axis
  +			  (cond ((= axis-id 0) ; Horizontal axis
   				 (setf (input-values-left *input-state*) nil)
   				 (setf (input-values-right *input-state*) nil)
   				 (cond
  
positive.code: 		  (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-right)
  		    (setf (input-values-right *input-state*) nil))
  		  (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-return)
  		    (setf (input-values-restart *input-state*) nil)))
  	
  	(:keydown (:keysym keysym)
  		  (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-up)
  
negative.code: 	     (progn
  	       (format t "Snake collided with tail @ piece #~a~%" (- max-piece i))
  	       (format t "Final score: ~apts.~%" *player-score*)
  	       ;;(setf *running* nil)
  	       (init-snake thesnake)
  	       ))
  	 (incf i)))
  
    ;; With fruit
  