anchor.diff:  (defun enemy-kill-player (enemy)
     (declare (ignore enemy))
     (do-objects (player :type 'player)
  -    (remove-object player)))
  +    (player-die player)))
   
    
  
positive.code:   (halo-update (halo player)))
  
  (defmethod render ((player player))
    (gl:with-pushed-matrix
      (with-vec (x y (pos player))
        (gl:translate x y 0.0)
        (dotimes (i 5)
          (gl:color 0.0 0.0 1.0 (* i 0.2))
          (draw-circle (- 5 i) 30 t))
        (gl:color 0.0 0.0 1.0 (halo-value (halo player)))
        (draw-circle 5))))
  
  (defun maybe-queue-movement-actions (player)
    (flet ((goto (row col)
  
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
  