X-Git-Url: http://git.kpe.io/?p=reversi.git;a=blobdiff_plain;f=base.lisp;h=a6a79469ac7a9aa0c4cdd5e0e2aacdaddf3ebd9d;hp=2987b1d212de35bd6b1e52db95adfa1c3a037b4a;hb=039918164c7320373263f8d9d6eca3e68f1593dd;hpb=4e93fae7d688b66580757b4b205be4720c9d6281

diff --git a/base.lisp b/base.lisp
index 2987b1d..a6a7946 100644
--- a/base.lisp
+++ b/base.lisp
@@ -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))))