anchor.diff:  			     :y (vec2-y (pos thesnake)))
   		  (piece-list thesnake))
         ;; Also remove first piece
  -      (pop (piece-list thesnake))
  +      ;; But only if the snake is not supposed to
  +      ;; grow in size
  +      (if (not *has-snake-eaten*)
  +	  (pop (piece-list thesnake))
  +	  ;; Else just reset its eating state
  +	  (setf *has-snake-eaten* nil))
         ;; Allow snake to move next frame
         (setf *has-snake-moved* nil)))
     
  
positive.code: 		  (is-overlapping-piece (pos thesnake) snake-piece))
  	     ;; TO-DO: Game Over
  	     (progn
  	       (format t "Collision: piece #~a~%" i)
  	       (setf *running* nil)))
  	 (incf i)))
  
    ;; With fruit
    ;; TO-DO
    )
  	
  
    
  
negative.code: 	      (setf *has-snake-moved* t)))))
  
  
    ;; Collision detection
    ;; With own tail
    ;; So basically we'll only have to do that for the head.
    ;; Just iterate and check if overlapping a piece of your own tail.
  