another chess in Common Lisp :)