hưs8p,LAMBDAF2Dp,lFASD-DATADJIMMaurice RavelȠF~FlDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀDEFVAR***NIL1DB?C**BA1DB?C*BA1DB?*ERROR-IN-PROGRESS?*BAlTrue if we're handling an error, so that recursive error callscan be dealt with.1DB?C*RECURSIVE-ERROR-MESSAGE*lRecursive error encountered. Register A1 contains the errormessage; register A2 contains the list of arguments to error.1DB?C*DEBUG-ON-LAMBDA-MESSAGE*Suspending the read-eval-print loop. You will find the KBUG2debugger in the BREAK function. Register A1 willcontain the error message printed above, and register A2 willcontain a list of the error arguments. Proceeding from thispoint will cause the read-eval-print loop to resume at thepoint after the error call. This is usually a bad thing totry.