hưs8p,LAMBDAF2Dp,lFASD-DATADwkfLoveF~FiDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFMACRODEFINE-ARITHMETIC-COMPARATORDNAMEDplSIlXR-BQ-LISTDB;ÀDEFUNBADB;DÀ&RESTNUMBERSDBEDB;CONDDBEDB;DNULLBIDBEDB;ÀERRORDpB+FORMATNILNo arguments to function ~sBADB;DDBNDCDRBIB-DBEB-DBEDB;ÀBLOCKDB;FOODBEDB;CDODB;DDCN1BIDBZBeDB;DDBNDBZBeDRETURN-FROMBaB-DBEDB;BcDB;DDCN2DBZBeDBZBqDB;DDBNBqDpBCXR-BQ-LIST*DB;ÀUNLESSDB{BADB;DDCARBeDB~BqDB;DDBlBaBU1DCDEFREWRITEMAXDÀ&WHOLEFORMDLETDDLENGTH-FORMDÀLENGTHBDBLDDC=BFDÀSECONDBDDBBFDB{DB;ÀMAX-2DBZBDB-B1DBMINDBBDBDDBDBBDBLDDBBFDBBDDBBFDB{DB;ÀMIN-2DBZBDB-B1DB?CDEFINE-PLUS-LIKE-FUNCTIONDBAIDENTITYDBEDB;BFBADB;DBHBIDBEDB;BDBEDBEDB;ÀRESULTDBEDB;CORDB;DB~BIBDBEDB;ÀDOLISTDB;DCNDBZBIBDBEDB;SETQDB;BDB{BADB;DBB1DDEFCONSTANTCBOOLE-CLR1DBCBOOLE-SETF1DBBOOLE-1F1DBBOOLE-2F1DBBOOLE-C1F1DBBOOLE-C2F1DBCBOOLE-ANDF1DBCBOOLE-IORF1DBCBOOLE-XORF1DBCBOOLE-EQVF 1DBCBOOLE-NANDF 1DBCBOOLE-NORF 1DBBOOLE-ANDC1F 1DBBOOLE-ANDC2F 1DBCBOOLE-ORC1F1DBCBOOLE-ORC2F1DBMOST-POSITIVE-FIXNUM1DBMOST-NEGATIVE-FIXNUM