anchor.diff:        (with-slots (matrix phantoms pacman) game
           (pal:event-loop ()
             (case state
  -            
  +
               (:ready
  -             (pal:test-keys            
  +             (pal:test-keys
                  ;;(:key-a (display-about))
                  (:key-s (setf state :playing))
                  (:key-q (return-from pal:event-loop))))
  -          
  +
               (:paused
                (pal:test-keys
                  (:key-p (setf state :playing))
                  (:key-q (return-from pal:event-loop))))
  -          
  +
               (:playing
                (pal:test-keys
                  (:key-p (setf state :paused))
  
positive.code:                unless (or (null (first pos))
                            (null (second pos)))
                 do (move ghost matrix (first pos) (second pos))))
              
            (draw-game game level points username))))))
negative.code:                           (pal:v (+ x 18) y)
                            (pal:v (+ x 18) (+ y 18))
                            (pal:v x (+ y 18)))
                      r g b
                      255))
  
  
  