X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base.lisp;h=2987b1d212de35bd6b1e52db95adfa1c3a037b4a;hb=4c844bde197de54c0343f7ab500153278f859ec6;hp=03a628f7846ff12198dd15b2543f1584f311f4de;hpb=d92820d39c18a373611b5bfb018631cffe3e4bcd;p=reversi.git

diff --git a/base.lisp b/base.lisp
index 03a628f..2987b1d 100644
--- a/base.lisp
+++ b/base.lisp
@@ -8,7 +8,7 @@
 ;;;;  Programer:      Kevin Rosenberg based on code by Peter Norvig
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: base.lisp,v 1.7 2003/06/17 05:47:18 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg 
 ;;;; and Copyright (c) 1998-2002 Peter Norvig
@@ -77,7 +77,7 @@
    (record-game? :type boolean :initarg :record-game?
 	   :documentation "Whether to record moves and clcck of this game"
 	   :reader record-game?)
-   (final-result :type fixnum :initarg :final-result
+   (final-result :type (or null fixnum) :initarg :final-result
 		 :documentation "Final count, is NIL while game in play"
 		 :accessor final-result)
    (max-minutes :type fixnum :initarg :max-minutes