(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)
(unless (cell-played cell player-index)
(return-from escape))
(setf (player-state player) :playing)
- (perform-explosions game (list cell)))
- (changed game :processing-move)))))
+ (changed game :processing-move)
+ (perform-explosions game (list cell)))))))
(defmethod restart-game ((game atom-game) &key grid players)
(game-cancel-timeout game)
for snap-player in snap-players
do (restore player snap-player))
(setf (game-player-index game) (slot-value snapshot 'player-index))
+ (game-cancel-timeout game)
(changed game :refresh)))
;;;--------------------------------------------------------------------------