From 039918164c7320373263f8d9d6eca3e68f1593dd Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 30 Apr 2005 10:10:29 +0000 Subject: [PATCH] r10501: fix allegro --- base.lisp | 7 ------- 1 file changed, 7 deletions(-) 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)))) -- 2.34.1