X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=edge-table.lisp;h=aae2779e3255d83d6c7478d46048d105b2c706b9;hb=dc7f799500d39d94b2f91ff866bc7a73f35c5688;hp=c6ac183dfa54d0b278254385b188bd4c6bd73607;hpb=664360fcec4508bd1c7cdac3125370c0fc2988bb;p=reversi.git

diff --git a/edge-table.lisp b/edge-table.lisp
index c6ac183..aae2779 100644
--- a/edge-table.lisp
+++ b/edge-table.lisp
@@ -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)))