~mdw
/
atoms
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
atoms.lisp: A player about to make a move is active.
[atoms]
/
atoms.lisp
diff --git
a/atoms.lisp
b/atoms.lisp
index
e1c331c
..
0855c84
100644
(file)
--- a/
atoms.lisp
+++ b/
atoms.lisp
@@
-290,7
+290,7
@@
(state (player-state player)))
(cond ((and (zerop score) (eql state :playing))
(setf (player-state player) :losing))
(state (player-state player)))
(cond ((and (zerop score) (eql state :playing))
(setf (player-state player) :losing))
- ((member state '(:playing :starting))
+ ((member state '(:playing :starting
:ready
))
(incf remaining)
(setf found player)))))
(changed game :scores :players players)
(incf remaining)
(setf found player)))))
(changed game :scores :players players)