From 86380fb03aca1a97c5b4b2e49001f783614d504b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 22 Mar 2003 17:20:10 +0000 Subject: [PATCH] r4226: *** empty log message *** --- io-clim.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/io-clim.lisp b/io-clim.lisp index 4d235f8..ff5bfd3 100644 --- a/io-clim.lisp +++ b/io-clim.lisp @@ -8,7 +8,7 @@ ;;;; 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 ;;;; @@ -40,7 +40,7 @@ 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)) -- 2.34.1