There is an "emacs" written in pure CL - LispWorks - yes it's commercial, and not exactly the same as emacs - but very close. Some versions of LispWorks comes with the whole source of the editor, and the environment.