anchor.diff:      (< (+ (* delta-x delta-x) (* delta-y delta-y))
   	(* sum-of-radius sum-of-radius))))
   
  -(defmethod add-piece-snake ((thesnake snake))
  -  
  -  )
  +(defun is-overlapping-snake (fst thesnake)
  +  (loop for x in (piece-list thesnake)
  +       do (if (is-overlapping-piece fst x)
  +	      (return t)))
  +  nil)
   
   (defmethod update-snake ((thesnake snake) delta-t)
     ;; Calculate snake walk ratio
  
positive.code:     (set-append (make-vec2 :x (vec2-x *fruit-position*)
  			   :y (vec2-y *fruit-position*))
  		(fruit-list thesnake))
      ;; Reset fruit position (TO-DO!)
      (setf *fruit-position* (make-vec2 :x -30.0 :y -30.0)) ; out of screen
      )
    
    ;; Grow after eating
    ;; Tail's last piece is always the first on our piece-list
  
negative.code: 	 (incf i))))
  
  
  ;; The actual snake instance!
  (defparameter *snake* (make-instance 'snake))
  
  
  