Take a look at the Franz sources in /usr/lib/lisp/*.l.
The file toplevel.l contains the top-level Franz read-eval-print loop,
and is probably a good place to start.
--
Brian Thomson, CSRG Univ. of Toronto
{linus,ihnp4,uw-beaver,floyd,utzoo}!utcsrgv!uthub!thomson