X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base.lisp;fp=base.lisp;h=8a6dd146f494a4a3845eb448a9525893e73c2142;hb=c090fe80e307758da62ceb1a5371fbf0f8fa603c;hp=cffba2edf75124612bd90cbffc3812830ad14337;hpb=d270f6e4758c478c6ec9a70ef4059a44097ce514;p=reversi.git

diff --git a/base.lisp b/base.lisp
index cffba2e..8a6dd14 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.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
@@ -185,8 +185,7 @@
   (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))
@@ -281,7 +280,7 @@
   (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."