anchor.diff:  (defgeneric draw-snake (snake)
     (:documentation "Draws an object on screen."))
   
  -(defgeneric add-piece-snake (snake)
  -  (:documentation "Adds a new piece to the snake."))
  -
   
   (defmethod init-snake ((thesnake snake))
     ;; Spawn fruit
  
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:   (format t "===SNAKE GAME===~%")
    (setf *frame-count* 0)
    (setf *last-fps-message-time* (sdl2:get-ticks))
    (setf *random-state* (make-random-state t))
  
    ;; Init snake
    (init-snake *snake*))
  