***LISP-INTERNALS **LISP-INTERNALS * PRIMITIVES LISTENERLISP-INTERNALS LISTENERLISP-INTERNALS) X( CATCH-CONTINUELISP-INTERNALS& PRINTLISP-INTERNALS% SETSYMBOL# SETSYMBOL!  %SYMBOL-VALUESYMBOL SETSYMBOL  %SYMBOL-VALUESYMBOL 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@CA@ BA$BA@b@@`@@(@AjB@CA@B@CA@BAC"C@AAAB(@@BAAB(@@BA B@BD @@B @A $ * PRIMITIVES" **LISP-INTERNALS * PRIMITIVES ***LISP-INTERNALS **LISP-INTERNALS==>   *ERROR-IN-PROGRESS?*LISP-INTERNALS MLL-LOOPLISP-INTERNALS  UNWIND-MARKERLISP-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-INTERNALSfSuspending the read-eval-print loop. You will find the KBUG2 debugger in the BREAK 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-INTERNALSXlMS$   m SETSYMBOLk BREAKLISP-INTERNALS\  FRESH-LINELISP-INTERNALS[ PRINCLISP-INTERNALSZ  %SYMBOL-VALUESYMBOLU  MEMBER-EQLLISP-INTERNALSR THROW-SVLISP-INTERNALSP  FRESH-LINELISP-INTERNALSO PRINCLISP-INTERNALSJ  MEMBER-EQLLISP-INTERNALSG  FRESH-LINELISP-INTERNALSF READ-A-CHARACTER-COMMANDLISP-INTERNALSE PRINCLISP-INTERNALSC  FRESH-LINELISP-INTERNALSB PRINCLISP-INTERNALS@  FRESH-LINELISP-INTERNALS? PRINCLISP-INTERNALS=  FRESH-LINELISP-INTERNALS<  FRESH-LINELISP-INTERNALS; PRINCLISP-INTERNALS9  FRESH-LINELISP-INTERNALS8  REPORT-ERRORLISP-INTERNALS(  FRESH-LINELISP-INTERNALS' SETSYMBOL%  %SYMBOL-VALUESYMBOL# BREAKLISP-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOL nj"@ j$@ j&@ j(@ j*@ j,@ j.@ j0@ j2@ j4@ j6@ j8@ j:@ j<@ j>@ A@BD@@A$@AA@B( @"@$@&@( @* @,@.@0@2@4@6@8@;FA@BAhB@C A"@$@&@(@* @, @.@0@2@4@6@8@:@<@>B@CA@B@C@CA@B@CA@B@CA@BAC@C>A@@BD@@AS@AA@B@CEkF>A@@BD@@Al@AA@B(@B@CA @"@$@&@( @* @,@.@0@2@4@6@8@:BE=Fl *ERROR-IN-PROGRESS?*LISP-INTERNALS]Handle error on lambda.Y *DEBUG-ON-LAMBDA-MESSAGE*LISP-INTERNALSTbBQ MLL-LOOPLISP-INTERNALSNResuming read-eval-print loop.IaAD AB: Debug it on the lambda>A: Resume read-eval-print loop:Commands available: & *ERROR-IN-PROGRESS?*LISP-INTERNALS$ *ERROR-IN-PROGRESS?*LISP-INTERNALS *RECURSIVE-ERROR-MESSAGE*LISP-INTERNALS *ERROR-IN-PROGRESS?*LISP-INTERNALS  REPORT-ERRORLISP-INTERNALS  REPORT-ERRORLISP-INTERNALShmanZoSpLqEr>s7t0u)v"wxy z{0l  FRESH-LINELISP-INTERNALSk WRITELISP-INTERNALSj PRINCLISP-INTERNALSe  FRESH-LINELISP-INTERNALSd WRITELISP-INTERNALSc PRINCLISP-INTERNALS^  FRESH-LINELISP-INTERNALS] WRITELISP-INTERNALS\ PRINCLISP-INTERNALSW  FRESH-LINELISP-INTERNALSV WRITELISP-INTERNALSU PRINCLISP-INTERNALSP  FRESH-LINELISP-INTERNALSO WRITELISP-INTERNALSN PRINCLISP-INTERNALSI  FRESH-LINELISP-INTERNALSH WRITELISP-INTERNALSG PRINCLISP-INTERNALSB  FRESH-LINELISP-INTERNALSA WRITELISP-INTERNALS@ PRINCLISP-INTERNALS;  FRESH-LINELISP-INTERNALS: WRITELISP-INTERNALS9 PRINCLISP-INTERNALS4  FRESH-LINELISP-INTERNALS3 WRITELISP-INTERNALS2 PRINCLISP-INTERNALS-  FRESH-LINELISP-INTERNALS, WRITELISP-INTERNALS+ PRINCLISP-INTERNALS&  FRESH-LINELISP-INTERNALS% WRITELISP-INTERNALS$ PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS WRITELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS WRITELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS WRITELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS WRITELISP-INTERNALS PRINCLISP-INTERNALS  FRESH-LINELISP-INTERNALS PRINCLISP-INTERNALS PRINCLISP-INTERNALS|A@B C@C"@@A{@AA@B"C@C$@@Az@AA@B$C@C&@@Ay@AA@B&C@C(@@Ax@AA@B(C@C*@@Aw@AA@B*C@C,@@Av@AA@B,C@C.@@Au@AA@B.C@C0@@At@AA@B0C@C2@@As@AA@B2C@C4@@Ar@AA@B4C@C6@@Aq@AA@B6C@C8@@Ap@AA@B8C@C:@@Ao@AA@B:C@C<@@An@AA@B<C@C>@@Am@AA@B>CAGjDjDjDjDjDjDjDjDjDjDjDjDjDjDjDiError argument 15:bError argument 14:[Error argument 13:TError argument 12:MError argument 11:FError argument 10:?Error argument 9:8Error argument 8:1Error argument 7:*Error argument 6:#Error argument 5:Error argument 4:Error argument 3:Error argument 2:Error argument 1: >>>ERROR: READ-A-CHARACTER-COMMANDLISP-INTERNALS READ-A-CHARACTER-COMMANDLISP-INTERNALS  MEMBER-EQLLISP-INTERNALS  READ-CHARLISP-INTERNALS@C A@@BD@@A@A DaAbB