projects
/
reversi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10501: fix allegro
[reversi.git]
/
base.lisp
diff --git
a/base.lisp
b/base.lisp
index 03a628f7846ff12198dd15b2543f1584f311f4de..a6a79469ac7a9aa0c4cdd5e0e2aacdaddf3ebd9d 100644
(file)
--- a/
base.lisp
+++ b/
base.lisp
@@
-8,7
+8,7
@@
;;;; Programer: Kevin Rosenberg based on code by Peter Norvig
;;;; Date Started: 1 Nov 2001
;;;;
;;;; 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
;;;;
;;;; 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?)
(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
:documentation "Final count, is NIL while game in play"
:accessor final-result)
(max-minutes :type fixnum :initarg :max-minutes
@@
-325,16
+325,9
@@
(loop for move in all-squares
when (legal-p move player board) collect move))
(loop for move in all-squares
when (legal-p move player board) collect move))
-#-allegro
(defun replace-board (to from)
(replace to from))
(defun replace-board (to from)
(replace to from))
-#+allegro
-(defun replace-board (to from)
- (declare (type board to from))
- (ff::fslot-memory-copy to 0 400 from)
- to)
-
(defvar *ply-boards*
(apply #'vector (loop repeat 40 collect (initial-board))))
(defvar *ply-boards*
(apply #'vector (loop repeat 40 collect (initial-board))))