Common Lisp implementation of sokoban