X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base.lisp;h=a6a79469ac7a9aa0c4cdd5e0e2aacdaddf3ebd9d;hb=062d6c95c94ac969bd49083dea184c9bb81d6fea;hp=6d5ef4a5113c172827285c2a5eb30a8266f4e8d0;hpb=664360fcec4508bd1c7cdac3125370c0fc2988bb;p=reversi.git

diff --git a/base.lisp b/base.lisp
index 6d5ef4a..a6a7946 100644
--- a/base.lisp
+++ b/base.lisp
@@ -77,7 +77,7 @@
    (record-game? :type boolean :initarg :record-game?
 	   :documentation "Whether to record moves and clcck of this game"
 	   :reader record-game?)
-   (final-result :type fixnum :initarg :final-result
+   (final-result :type (or null fixnum) :initarg :final-result
 		 :documentation "Final count, is NIL while game in play"
 		 :accessor final-result)
    (max-minutes :type fixnum :initarg :max-minutes
@@ -325,16 +325,9 @@
   (loop for move in all-squares
       when (legal-p move player board) collect move))
 
-#-allegro
 (defun replace-board (to from)
   (replace to from))
 
-#+allegro
-(defun replace-board (to from)
-  (declare (type board to from))
-  (ff::fslot-memory-copy to 0 400 from)
-  to)
-
 (defvar *ply-boards*
   (apply #'vector (loop repeat 40 collect (initial-board))))