projects
/
reversi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5141: Auto commit for Debian build
[reversi.git]
/
base.lisp
diff --git
a/base.lisp
b/base.lisp
index 8a6dd146f494a4a3845eb448a9525893e73c2142..03a628f7846ff12198dd15b2543f1584f311f4de 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.
6 2003/06/12 13:28:55
kevin Exp $
+;;;; $Id: base.lisp,v 1.
7 2003/06/17 05:47:18
kevin Exp $
;;;;
;;;; 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
@@
-156,10
+156,10
@@
(defun count-difference (player board)
"Count player's pieces minus opponent's pieces."
(declare (type board board)
(defun count-difference (player board)
"Count player's pieces minus opponent's pieces."
(declare (type board board)
- (fixnum player)
+ (
type
fixnum player)
(optimize (speed 3) (safety 0) (space 0)))
(the fixnum (- (the fixnum (count player board))
(optimize (speed 3) (safety 0) (space 0)))
(the fixnum (- (the fixnum (count player board))
- (the fixum (count (opponent player) board)))))
+ (the fix
n
um (count (opponent player) board)))))
(defun valid-p (move)
(declare (type move move)
(defun valid-p (move)
(declare (type move move)