Cl-reader is a project mainly written in Common Lisp, it's free.

Copy/pasted SBCL's reader code w/o sbcl specific internals. Haven't tested except for very simple cases.