From 4c844bde197de54c0343f7ab500153278f859ec6 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sat, 30 Apr 2005 10:01:52 +0000
Subject: [PATCH] r10498: fix number type

---
 edge-table.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
2.34.1