Connect 4  in Common Lisp