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: ;;;; Purpose:       A Pacman game.
  ;;;; Programmer:    Nicolas Lamirault <nicolas.lamirault@gmail.com>
  ;;;;
  ;;;; This file, part of clacman, is Copyright (c) 2007 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
  
negative.code: 
  
  (defmethod draw-game ((game game) level points &optional username)
    (pal:clear-screen (pal:color 0 0 0))
    (with-slots (matrix phantoms pacman) game
      (loop ;;for y from 0 to 15 ;;29
         for y below +matrix-height+
  