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

Code as I'm working through Land of Lisp