anchor.diff:  (defun enemy-kill-player (enemy)
     (declare (ignore enemy))
     (do-objects (player :type 'player)
  -    (player-die player)))
  +    (when (null (death-tick player))
  +      (setf (death-tick player) 0))))
   
   (defun enemy-die (enemy)
     (setf (death-tick enemy) 0)
  
positive.code:          (setf (claiming-p player) nil)
           (setf (loc player) (initial-location player))
           (setf (pos player) (cell-center-position (initial-location player)))
           (setf (movement-actions player) '()))
          (t (outer-world))))
  
  (defun increment-score (increment player)
  
negative.code: 
  (defconstant* player-movement-steps 3)
  (defconstant* player-life-bonus 500000)
  (defconstant* player-death-ticks 64)
  
  (defclass player ()
    ((pos :accessor pos)
  