Lisptutorial is a project mainly written in Common Lisp, it's free.

code from http://www.cs.sfu.ca/CC/310/pwfong/Lisp