Otherwise we get terribly confused about who's supposed to be playing.
for snap-player in snap-players
do (restore player snap-player))
(setf (game-player-index game) (slot-value snapshot 'player-index))
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)))
;;;--------------------------------------------------------------------------
(changed game :refresh)))
;;;--------------------------------------------------------------------------