projects
/
reversi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5107: Auto commit for Debian build
[reversi.git]
/
base.lisp
diff --git
a/base.lisp
b/base.lisp
index cffba2edf75124612bd90cbffc3812830ad14337..8a6dd146f494a4a3845eb448a9525893e73c2142 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.
5 2003/06/12 13:08:43
kevin Exp $
+;;;; $Id: base.lisp,v 1.
6 2003/06/12 13:28:55
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
@@
-185,8
+185,7
@@
(declare (type board board)
(type move move)
(type player player)
(declare (type board board)
(type move move)
(type player player)
- (optimize speed (safety 0))
-)
+ (optimize speed (safety 0) (space 0)))
(if (= (bref board move) empty)
(block search
(let ((i 0))
(if (= (bref board move) empty)
(block search
(let ((i 0))
@@
-281,7
+280,7
@@
(let ((c (+ move dir)))
(declare (type square c))
(and (= (the piece (bref board c)) (the player (opponent player)))
(let ((c (+ move dir)))
(declare (type square c))
(and (= (the piece (bref board c)) (the player (opponent player)))
- (find-bracketing-piece (
+ c dir
) player board dir))))
+ (find-bracketing-piece (
the fixnum (+ c dir)
) player board dir))))
(defun find-bracketing-piece (square player board dir)
"Return the square number of the bracketing piece."
(defun find-bracketing-piece (square player board dir)
"Return the square number of the bracketing piece."