- (let ((old-state (aref (moves game) (1- move-number))))
- (if old-state
- (progn
- (setf (player game) (state-player old-state))
- (replace-board (board game) (state-board old-state))
- (replace (clock game) (state-clock old-state))
- (setf (fill-pointer (moves game)) (1- move-number))
- (setf (move-number game) move-number))
- (warn "Couldn't find old state"))))
+ (let ((old-state (aref (moves game) (1- move-number))))
+ (if old-state
+ (progn
+ (setf (player game) (state-player old-state))
+ (replace-board (board game) (state-board old-state))
+ (replace (clock game) (state-clock old-state))
+ (setf (fill-pointer (moves game)) (1- move-number))
+ (setf (move-number game) move-number))
+ (warn "Couldn't find old state"))))