An implementation of Scheme embedded in Common Lisp - View it on GitHub