Permalink
Browse files

When removing PLAYERs from an ARENA, also remove the TURN if it no lo…

…nger has any PLAYERs.
  • Loading branch information...
1 parent 35ff540 commit 2246cdd5dc9dcdf972a4d96da8ab65dd5b2bfc78 @StrmSrfr StrmSrfr committed Dec 27, 2011
Showing with 4 additions and 1 deletion.
  1. +4 −1 arena.lisp
View
5 arena.lisp
@@ -59,4 +59,7 @@
(defmethod delete-player ((arena arena) (player player))
(setf (players arena)
- (remove player (players arena))))
+ (remove player (players arena)))
+ (when (null (players arena))
+ (setf (turn arena)
+ nil)))

0 comments on commit 2246cdd

Please sign in to comment.