"DEBUGRDEFS"> % % DEB-HANDLER "The Debugger is already loaded" PRINC CRLF "EVAL" INT-LEVEL % CLASS % HANDLER % ON EVAL OFF DISABLE T "OFF" DEBUG-OUT DEBUG-IN ENABLE % L-OPEN FILECOPY "No help available?" OUTCHAN CHANNEL LISTENING ANY LERR!-INTERRUPTS FRAME EVAL-IN =? < DEBUG> DEBSTATE ,OPHF EVAL-IN-DISPATCH EVAL-OUT "FOO!!!!" % STRUCTURED? % STACK % % % G? NTH MEMBER % L? UNWIND % L=? % LO % % % PAGE-WIDTH CHANNEL-OP % INDENT-TO PRIN1 % FUNCTION QUOTE LVAL GVAL % "=> " &1 ": " " = " % "<= " % % % "" READ-BREAKS STRING % NEXTCHR READCHR READ LAST-OUT HOR-POS-CURSOR PAGE-X - CLEAR-EOL FOO "Too many arguments: " " try again" "Unknown command: " FUNCT LISTEN [0 '()] DEB-OUT DEB-IN ]> )> > ANY) 1880]> > ANY FIX) 4440]> ANY FIX) 4772]> ) 7056]> > ) 9108]>