Modified the code to be runnable on top of SBCL.