LISTENERLISP-INTERNALS LISTENERLISP-INTERNALSc CATCH-CONTINUELISP-INTERNALS PRINTLISP-INTERNALS EVAL-SPECIAL-OKLISP-INTERNALS READLISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS %%SETSYMBOL SET-SYMBOL-FUNCTIONSYMBOL SYMBOL-FUNCTIONSYMBOL  FRESH-LINELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS  FRESH-LINELISP-INTERNALS@C@CA@B@CA@B@CAABA"BAjBA@b@@`@@@@CA@B@CA@B@C C(@BD @@B@A ==>   MLL-LOOPLISP-INTERNALS  UNWIND-MARKERLISP-INTERNALS *ERROR-IN-PROGRESS?*LISP-INTERNALS ERRORLISP-INTERNALS  MLL-ERRORLISP-INTERNALS>Warning: Running the listener may permanently damage LI:ERRORK Machine Lisp Listener *ERROR-IN-PROGRESS?*LISP-INTERNALSQTrue if we're handling an error, so that recursive error calls can be dealt with. *RECURSIVE-ERROR-MESSAGE*LISP-INTERNALSzRecursive error encountered. Register A1 contains the error message; register A2 contains the list of arguments to error. *DEBUG-ON-LAMBDA-MESSAGE*LISP-INTERNALSwSuspending the read-eval-print loop. You will find the KBUG2 debugger in the HANDLE-ERROR-ON-LAMBDA function. Register A1 will contain the error message printed above, and register A2 will contain a list of the error arguments. Proceeding from this point will cause the read-eval-print loop to resume at the point after the error call. This is usually a bad thing to try.  MLL-ERRORLISP-INTERNALS  MLL-ERRORLISP-INTERNALS1<&, = UNBIND-1LISP-INTERNALS9 UNBIND-1LISP-INTERNALS8 HANDLE-ERROR-ON-LAMBDALISP-INTERNALS5  FRESH-LINELISP-INTERNALS4 PRINCLISP-INTERNALS3  %SYMBOL-VALUESYMBOL.  MEMBER-EQLLISP-INTERNALS+ THROW-SVLISP-INTERNALS)  FRESH-LINELISP-INTERNALS( PRINCLISP-INTERNALS#  MEMBER-EQLLISP-INTERNALS  FRESH-LINELISP-INTERNALS READ-A-CHARACTER-COMMANDLISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS  FRESH-LINELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS  REPORT-ERRORLISP-INTERNALS  FRESH-LINELISP-INTERNALS BINDLISP-INTERNALS HANDLE-ERROR-ON-LAMBDALISP-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOL  CONS-RESTLISP-INTERNALS~@@h@@n@(j@&@A@BD@@A @AA@B( @'Fh$@A$B@C A&B@CA@B@C@CA@B@CA@B@CA@BAC@C"A@@BD@@A,@AA@B@CEkF"A@@BD@@A<@AA@B(@B@CA @&B@C@A Dj @@C@A D 6Handle error on lambda.2 *DEBUG-ON-LAMBDA-MESSAGE*LISP-INTERNALS-bB* MLL-LOOPLISP-INTERNALS'Resuming read-eval-print loop."aA B: Debug it on the lambdaA: Resume read-eval-print loopCommands available: *ERROR-IN-PROGRESS?*LISP-INTERNALS *RECURSIVE-ERROR-MESSAGE*LISP-INTERNALS *ERROR-IN-PROGRESS?*LISP-INTERNALS  REPORT-ERRORLISP-INTERNALS  REPORT-ERRORLISP-INTERNALS  CDRCONS  FRESH-LINELISP-INTERNALS PRINCLISP-INTERNALS PRINCLISP-INTERNALS PRINCLISP-INTERNALS PRINCLISP-INTERNALS CARCONS  FRESH-LINELISP-INTERNALS PRINCLISP-INTERNALS PRINCLISP-INTERNALSA@B C@Cb&@j$@"@@A@A" CA@B&C0&&xA@B$C@C#C@A jD: Error argument  >>>ERROR: READ-A-CHARACTER-COMMANDLISP-INTERNALS READ-A-CHARACTER-COMMANDLISP-INTERNALS  MEMBER-EQLLISP-INTERNALS  READ-CHARLISP-INTERNALS@C A@@BD@@A@A DaAbB HANDLE-ERROR-ON-LAMBDALISP-INTERNALS HANDLE-ERROR-ON-LAMBDALISP-INTERNALSbT@g X@AT@@jD