Hacking along to get this to run on top of Steel Bank Common Lisp (sbcl).