anchor.diff:  (defun enemy-kill-player (enemy)
     (declare (ignore enemy))
     (do-objects (player :type 'player)
  -    (remove-object player)))
  +    (player-die player)))
   
    
  
positive.code:                    (gl:vertex ex ey)
                     (gl:vertex sx ey)))))))
  
  (defun claim-cells (grid)
    (let ((unclaimed-neighbors '()))
      (dotimes (row grid-rows)
  
negative.code:          (setf (claiming-p player) nil)))
        (t (warn "Player changed to a cell it shouldn't have changed to (~D)." cell)))))
  
  (defun player-die (player)
    (cond ((plusp (lives player))
           (decf (lives player))
           (disclaim-cells (grid player))
           (setf (claiming-p player) nil)
           (setf (row player) (initial-row player))
           (setf (col player) (initial-col player))
           (setf (pos player) (cell-center-position (row player) (col player)))
           (setf (movement-actions player) '()))
          (t (outer-world))))
  
  
  ;;;; Enemy
  