flag as inappropriate

Create your own!

      (defun compute-move (game piece-vals depth-limit)
  (let*
    ;; make the alpha/beta  better/worse than losing/winning
    ((alpha (make-path-value :value -50000 :path nil))
     (beta (make-path-value :value 50000 :path nil))
     (next-mover (game-player-turn game))
     (result (if (eq next-mover 2) (alpha-beta game nil 0 depth-limit alpha beta nil piece-vals 0)
				    (alpha-beta game nil 0 depth-limit alpha beta T piece-vals 0))))
;;    (format t "The path found is: ~s ~%" (path-value-path result))
    (first (path-value-path result))))