hưs2Dp,lFASD-DATADerRicOrson Welles̥}F{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFMACRODEFUN-KDNAMELAMBDA-LISTBODYDplSIlXR-BQ-LISTDB;ÀPROGNDBGDB;pSYMBOLSET-SYMBOL-FUNCTIONDBGDB;B;BADBGDB;FUNCTIONDpBEXR-BQ-LIST*DB;ÀLAMBDABBBCDBGDB;B;DBGDB;B;BA1DB?DEFVAR-KDBAÀVALUEC&OPTIONALÁDOCUMENTATIONDBGDB;BHDBGDB;SETDBGDB;B;BABaDB;DCIFB-FFDBGDB;NOTDBGDB;ÀBOUNDPDBGDB;B;BADBSDB;pBJ%PUTDBGDB;B;BADB;DDB;SPECIALB-DBGDB;ByDBGDB;B;BADB;DB;CVAR-DOCUMENTATIONDBGDB;B;BcDBGDB;B;BA1DB?WHENDTESTÀ&BODYÀFORMSWHEN evaluates the TEST form. If TEST evaluates to NIL, WHEN returns NIL.Otherwise, WHEN evaluates the list of FORMS and returns the value of the lastone.DBSDB;BkBDBSDB;BHBDB;DNIL