anchor.diff:  
   (defmethod start ((instance game))
     (with-slots (state score) instance
  -    (setf state :running
  +    (setf state :starting
   	  score 0)))
   
   (defmethod end ((instance game))
  
positive.code:      (with-font (make-font :face *font-face* :size 40 :color (color 4))
         (text "PRESS R TO RESTART" 205 290)))))
  
  (defmethod kit.sdl2:keyboard-event ((instance qelt) state timestamp repeat-p keysym)
    (declare (ignorable timestamp repeat-p keysym))
    (with-slots (color-ring shape-ring scanner game) instance
  
negative.code:      (with-font (make-font :face *font-face* :size 20 :color (color 4))
         (text "(c) Danilo Vidovic (vydd)" 286 440)
         (text "made during Spring Lisp Game Jam 2016" 218 460)))
      ((:starting :running)
       (when (eql (slot-value game 'state) :starting)
         (with-font (make-font :face *font-face* :size 16 :color (color 4))
  	 (text "PRESS SPACE WHEN YOU MATCH SHAPE AND COLOR" 208 143)))
       (with-font (make-font :face *font-face* :size 30 :color (color 4))
         (text title 700 540)
         (text (format nil "SCORE~6d" (slot-value game 'score)) 30 540))
  