anchor.diff:  
   (defun setup-view ()
     ;; Disable VSync
  -  (sdl2:gl-set-swap-interval 0)
  +  ;;(sdl2:gl-set-swap-interval 0)
   
     ;; Setup viewport and ortographic view
     (gl:viewport 0 0 *window-width* *window-height*)
  
positive.code: 	     ;; TO-DO: Game Over
  	     (progn
  	       (format t "Snake collided with tail @ piece #~a~%" (- max-piece i))
  	       (setf *running* nil)))
  	 (incf i)))
  
  
negative.code:     (set-append (make-vec2 :x (vec2-x *fruit-position*)
  			   :y (vec2-y *fruit-position*))
  		(fruit-list thesnake))
      ;; Add to score
      (incf *player-score*)
      ;; Reset fruit position
      (loop do
  	 (setf *fruit-position*
  