(let ((p (make-gui-player-struct :id id :ply ply
:name name :strategy strategy
:searcher-id searcher-id :eval-id eval-id))
(let ((p (make-gui-player-struct :id id :ply ply
:name name :strategy strategy
:searcher-id searcher-id :eval-id eval-id))
(unless (or *force* (null *reversi-frame*))
(setq *reversi-frame* (make-application-frame 'reversi)))
(setq *reversi-frame* (run-frame 'reversi *reversi-frame*)))
(unless (or *force* (null *reversi-frame*))
(setq *reversi-frame* (make-application-frame 'reversi)))
(setq *reversi-frame* (run-frame 'reversi *reversi-frame*)))