From bbd9f6d9e57a06711a41e333f476a746496c27de Mon Sep 17 00:00:00 2001 From: Dan Date: Wed, 25 Jun 2008 23:03:09 -0700 Subject: [PATCH] passing fix --- board.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/board.lisp b/board.lisp index c164bf6..ed3436b 100644 --- a/board.lisp +++ b/board.lisp @@ -261,7 +261,7 @@ (defmethod select-move ((board ranked-board)) ;(if (eql (rank-top-count board) 0) ;'(-1 (-1 -1)) - (pdebug "select-move ~%") +; (pdebug "select-move ~%") (car (nthcdr (random (rank-top-count board)) (rank-top-list board)))) @@ -273,7 +273,8 @@ `(make-instance ,class :boardsize (boardsize ,board) :board-def-type ,def-type)) (defmethod genmove ((board basic-board) player &key (depth 1)) - (pdebug "genmove ~a~%" depth) +; (pdebug "genmove ~a~%" depth) + ; (format t "genmove depth ~a player ~a~%" depth player) (if (= depth 0) `( ,(score board (invert-player player)) nil)