anchor.diff:  ;;;; Purpose:       A Pacman game.
   ;;;; Programmer:    Nicolas Lamirault <nicolas.lamirault@gmail.com>
   ;;;;
  -;;;; This file, part of clacman, is Copyright (c) 2007 by Nicolas Lamirault
  +;;;; This file, part of clacman, is Copyright (c) 2007, 2015 by Nicolas Lamirault
   ;;;;
   ;;;; clacman users are granted the rights to distribute and use this software
   ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  
positive.code:       (with-slots (matrix phantoms pacman) game
          (pal:event-loop ()
            (case state
              
              (:ready
               (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))
  
negative.code:                unless (or (null (first pos))
                            (null (second pos)))
                 do (move ghost matrix (first pos) (second pos))))
  
            (draw-game game level points username))))))
  