X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base.lisp;h=6d5ef4a5113c172827285c2a5eb30a8266f4e8d0;hb=6ca3c114bd2b54421810e26add118c2170fdd1fc;hp=8a6dd146f494a4a3845eb448a9525893e73c2142;hpb=c090fe80e307758da62ceb1a5371fbf0f8fa603c;p=reversi.git

diff --git a/base.lisp b/base.lisp
index 8a6dd14..6d5ef4a 100644
--- a/base.lisp
+++ b/base.lisp
@@ -8,7 +8,7 @@
 ;;;;  Programer:      Kevin Rosenberg based on code by Peter Norvig
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: base.lisp,v 1.6 2003/06/12 13:28:55 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg 
 ;;;; and Copyright (c) 1998-2002 Peter Norvig
@@ -156,10 +156,10 @@
 (defun count-difference (player board)
   "Count player's pieces minus opponent's pieces."
   (declare (type board board)
-	   (fixnum player)
+	   (type fixnum player)
 	   (optimize (speed 3) (safety 0) (space 0)))
   (the fixnum (- (the fixnum (count player board))
-		 (the fixum (count (opponent player) board)))))
+		 (the fixnum (count (opponent player) board)))))
 
 (defun valid-p (move)
   (declare (type move move)