projects
/
reversi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4e93fae
)
r10501: fix allegro
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 30 Apr 2005 10:10:29 +0000
(10:10 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 30 Apr 2005 10:10:29 +0000
(10:10 +0000)
base.lisp
patch
|
blob
|
history
diff --git
a/base.lisp
b/base.lisp
index 2987b1d212de35bd6b1e52db95adfa1c3a037b4a..a6a79469ac7a9aa0c4cdd5e0e2aacdaddf3ebd9d 100644
(file)
--- 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))))