Lisp solve of sudoku

This is the programm for sudoku solving.
On input it has array of numbers. On output it gives all variants of right solves.
It can be used for crossword verification and difficulty assesment.

I devote it to patience of my wife :).