Common lisp tic tac toe