r10498: fix number type

[reversi.git] / edge-table.lisp

diff --git a/edge-table.lisp b/edge-table.lisp
index c6ac183dfa54d0b278254385b188bd4c6bd73607..aae2779e3255d83d6c7478d46048d105b2c706b9 100644 (file)
--- 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)))