hưs2Dp,lFASD-DATADWKFLove3F{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀDEFVAR*ERROR-IN-PROGRESS?*NILlTrue 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 HANDLE-ERROR-ON-LAMBDA 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.