~mdw
/
atoms
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
atoms.lisp: Allow a single player.
[atoms]
/
atoms.lisp
diff --git
a/atoms.lisp
b/atoms.lisp
index
fa65755
..
77329cf
100644
(file)
--- a/
atoms.lisp
+++ b/
atoms.lisp
@@
-294,7
+294,7
@@
(incf remaining)
(setf found player)))))
(changed game :scores :players players)
(incf remaining)
(setf found player)))))
(changed game :scores :players players)
- (when (
= remaining 1
)
+ (when (
and (= remaining 1) (>= (length players) 2)
)
(setf (player-state found) :winning)
(changed game :finished :victor found)))))
(setf (player-state found) :winning)
(changed game :finished :victor found)))))
@@
-742,7
+742,7
@@
:step-increment 1))
(count-adjustment :type gtk:adjustment
:initform (make-instance 'gtk:adjustment
:step-increment 1))
(count-adjustment :type gtk:adjustment
:initform (make-instance 'gtk:adjustment
- :lower
2
:upper 20
+ :lower
1
:upper 20
:step-increment 1))
(players :type gtk:list-store
:initform (make-instance 'gtk:list-store
:step-increment 1))
(players :type gtk:list-store
:initform (make-instance 'gtk:list-store