;;;; Programer: Kevin M. Rosenberg
;;;; Date Started: 1 Nov 2001
;;;;
-;;;; $Id: io-clim.lisp,v 1.4 2002/11/08 10:31:59 kevin Exp $
+;;;; $Id: io-clim.lisp,v 1.5 2003/03/22 17:19:15 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg
;;;;
id name searcher eval ply strategy start-time
searcher-id eval-id)
-(defun make-gui-player (&key id name strategy searcher-id eval-id ply)
+(defun make-gui-player (&key id name strategy searcher-id eval-id (ply 0))
(let ((p (make-gui-player-struct :id id :ply ply
:name name :strategy strategy
:searcher-id searcher-id :eval-id eval-id))