X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=edge-table.lisp;fp=edge-table.lisp;h=c8a648e6351756f5709a7f1773d6adabd54ea0bf;hb=c090fe80e307758da62ceb1a5371fbf0f8fa603c;hp=9b2f94928403f06212845e2eea1f5f5c44f78f24;hpb=d270f6e4758c478c6ec9a70ef4059a44097ce514;p=reversi.git

diff --git a/edge-table.lisp b/edge-table.lisp
index 9b2f949..c8a648e 100644
--- a/edge-table.lisp
+++ b/edge-table.lisp
@@ -7,7 +7,7 @@
 ;;;;  Programer:      Kevin M. Rosenberg based on code by Peter Norvig
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: edge-table.lisp,v 1.4 2003/06/12 12:42:13 kevin Exp $
+;;;; $Id: edge-table.lisp,v 1.5 2003/06/12 13:28:55 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2001-2003 by Kevin M. Rosenberg 
 ;;;; and Copyright (c) 1998-2002 Peter Norvig
@@ -205,7 +205,7 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (let ((stable 0) (semi-stable 1) (unstable 2))
-    (declaim (type fixnum stable semi-stable unstable))
+    (declare (type fixnum stable semi-stable unstable))
     
     (defun piece-stability (board sq)
       (declare (type board board)