Common Lisp: Producing integral code