r10866: Automated commit for Debian build of reversi upstream-version-1.0.14

[reversi.git] / edge-table.lisp

diff --git a/edge-table.lisp b/edge-table.lisp
index c6ac183dfa54d0b278254385b188bd4c6bd73607..d61cb889cbc4430bf3e7171c2857ff7d64ed2770 100644 (file)
--- a/edge-table.lisp
+++ b/edge-table.lisp
@@ -122,6 +122,7 @@
 (defun combine-edge-moves (possibilities player)
   "Combine the best moves."
   (declare (type player player)
+          (list possibilities)
           (optimize (speed 3) (safety 0) (space 0)))
   (let ((prob 1.0)
         (val 0.0)
@@ -199,7 +200,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)))