X-Git-Url: http://git.kpe.io/?p=reversi.git;a=blobdiff_plain;f=edge-table.lisp;fp=edge-table.lisp;h=d61cb889cbc4430bf3e7171c2857ff7d64ed2770;hp=aae2779e3255d83d6c7478d46048d105b2c706b9;hb=4311ba09f8c501b21745d6da45e17e446d4da2f8;hpb=dc7f799500d39d94b2f91ff866bc7a73f35c5688

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