anchor.diff:  	     (progn
   	       (format t "Snake collided with tail @ piece #~a~%" (- max-piece i))
   	       (format t "Final score: ~apts.~%" *player-score*)
  -	       (setf *running* nil)))
  +	       ;;(setf *running* nil)
  +	       (init-snake thesnake)
  +	       ))
   	 (incf i)))
   
     ;; With fruit
  
positive.code: 				    (setf (input-values-left *input-state*) t))
  				   ((>= value 32767)
  				    (setf (input-values-right *input-state*) t))))
  				((= axis-id 1)
  				 (setf (input-values-up *input-state*) nil)
  				 (setf (input-values-down *input-state*) nil)
  				 (cond
  
negative.code: (defparameter *window-width* 960)
  (defparameter *window-height* 540)
  (defparameter *game-controllers* nil)
  (defparameter *running* t)
  
  
  