hưs8p,LAMBDAF2Dp,lFASD-DATADwkfLove)FFDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGElK2pB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFMACRODEFINE-ACCESSORSDpUSERlOBJECT-VARpBAlVALUE-VARÀ&RESTpBAlSLOT-LISTDCDODDpBAlSLOT-TAILBHDRESTBLDpB+NUMBERDC1+BQDpBACODEDB;NILDLETDDpBASLOTDpB+FIRSTBLDBZDDpBAACCESS-NAMEDB^B\DpBASETTER-NAMEDpB+SECONDB\DÀAPPENDDplSIlXR-BQ-LISTDBpDB;DEFSETFBcBgDBpDB;ÀDEFUNBgDBpBCBEDBpDB;pCONSSTORE-CONTENTS-OFFSETBCBQBEDBpDB;BtBcDBpBCDBpDB;pBw,CONTENTS-OFFSETBCBQBWDDNULLBLDpBnXR-BQ-LIST*DB;ÀPROGNDpB+,REVERSEBW1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DC%COMPILED-FUNCTION-HEADERÀLAMBDADBFARGS1480DLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;BXDpBREST-TEMPVARSDBBBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSDBmBBDÀVALUESBDBmDpB+LISTDpB+lCOPY-LISTBDBBDBZDDCVALUE1481BDBBDBDB;Ã%SET-COMPILED-FUNCTION-HEADERDpBnXR-BQ-APPENDBDBpBDBDB;BBDCIFDpB+BOUNDPDB;BBBXB1DBBDBDB;D%COMPILED-FUNCTION-NAMEBDBFARGS1482DBDDBDBBDB;BXDBDBBBBDBBDBBDBmDBDBBBDBZDDCVALUE1483BDBBDBDB;%SET-COMPILED-FUNCTION-NAMEDBBDBpBDBDB;BBBB1DBBDBDB;D%COMPILED-FUNCTION-ENTRY-POINTSBDBFARGS1484DBDDBDBBDB;BXDBDBBBBDBBDBBDBmDBDBBBDBZDDCVALUE1485BDBBDBDB;%SET-COMPILED-FUNCTION-ENTRY-POINTSDBBDBpBDBDB;BBBB1DBBDBDB;DÃ%COMPILED-FUNCTION-LOCAL-REFSBDBFARGS1486DBDDBDBBDB;BXDBDBBB&BDBBDBBDBmDBDBB&BDBZDDCVALUE1487BDB&BDBDB;C%SET-COMPILED-FUNCTION-LOCAL-REFSDBB&DBpB2DBDB;B%BBB%1DBBDBDB;D%COMPILED-FUNCTION-REFSBDBFARGS1488DBDDBDBBDB;BXDBDBBBFBDBBDBBDBmDBDBBFBDBZDDCVALUE1489BDBFBDBDB;%SET-COMPILED-FUNCTION-REFSDBBFDBpBRDBDB;BEBBBE1DBBDBDB;DC%COMPILED-FUNCTION-LENGTHBDBFARGS1490DBDDBDBBDB;BXDBDBBBfBDBBDBBDBmDBDBBfBDBZDDCVALUE1491BDBfBDBDB;Ã%SET-COMPILED-FUNCTION-LENGTHDBBfDBpBrDBDB;BeBBBe1DBBDBDB;D%COMPILED-FUNCTION-CODEBDBFARGS1492DBDDBDBBDB;BXDBDBBBBDBBDBBDBmDBDBBBDBZDDCVALUE1493BDBBDBDB;%SET-COMPILED-FUNCTION-CODEDBBDBpBDBDB;BBBB1DplNC,DEF-DECLARATION%COMPILED-FUNCTION-PÀSUBSTDB;DpBNAMED-LAMBDABDPTRDp,HARDWAREFIELD=BDpBDPB-UNBOXED$$DTP-COMPILED-FUNCTIONp,VINCULUM%%DATA-TYPEDpB,UNBOXED-CONSTANTB1DDEFCONSTANTCOMPILED-FUNCTION-STRUCTURE-SIZEF1DÀDEFVAR*SPECIAL-TRAP-FUNCTIONS*DB;DpTRAPTRAPpBlNON-MODIFYING-EXITpBMODIFYING-EXITpBDIAGNOSTIC-TRAP-EXITpBlTRAP-VECTOR-TABLE1DBpLISP-INTERNALS*EVALUATOR-AVAILABLE?*BXT when eval works on the K.