X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=edge-table.lisp;h=aae2779e3255d83d6c7478d46048d105b2c706b9;hb=4c844bde197de54c0343f7ab500153278f859ec6;hp=521c7f1e3fce458ccd01f4e92459f94d03a15dc1;hpb=d92820d39c18a373611b5bfb018631cffe3e4bcd;p=reversi.git

diff --git a/edge-table.lisp b/edge-table.lisp
index 521c7f1..aae2779 100644
--- a/edge-table.lisp
+++ b/edge-table.lisp
@@ -7,7 +7,7 @@
 ;;;;  Programer:      Kevin M. Rosenberg based on code by Peter Norvig
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: edge-table.lisp,v 1.6 2003/06/17 05:47:18 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file is Copyright (c) 2001-2003 by Kevin M. Rosenberg 
 ;;;; and Copyright (c) 1998-2002 Peter Norvig
@@ -199,7 +199,7 @@
       for i from 0
       sum (the fixnum 
 	    (cond
-	     ((= (bref board sq) empty) 0d0)
+	     ((= (bref board sq) empty) 0)
 	     ((= (bref board sq) player)
 	      (aref *static-edge-table* i
 		    (piece-stability board sq)))