Changed connect4.lisp