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ÀLAMBDADBFARGS692DLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;BXDpBREST-TEMPVARSDBBBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSDBmBBDÀVALUESBDBmDpB+LISTDpB+lCOPY-LISTBDBBDBZDDVALUE693BDBBDBDB;Ã%SET-COMPILED-FUNCTION-HEADERDpBnXR-BQ-APPENDBDBpBDBDB;BBDCIFDpB+BOUNDPDB;BBBXB1DBBDBDB;D%COMPILED-FUNCTION-NAMEBDBFARGS694DBDDBDBBDB;BXDBDBBBBDBBDBBDBmDBDBBBDBZDDVALUE695BDBBDBDB;%SET-COMPILED-FUNCTION-NAMEDBBDBpBDBDB;BBBB1DBBDBDB;D%COMPILED-FUNCTION-ENTRY-POINTSBDBFARGS696DBDDBDBBDB;BXDBDBBBBDBBDBBDBmDBDBBBDBZDDVALUE697BDBBDBDB;%SET-COMPILED-FUNCTION-ENTRY-POINTSDBBDBpBDBDB;BBBB1DBBDBDB;DÃ%COMPILED-FUNCTION-LOCAL-REFSBDBFARGS698DBDDBDBBDB;BXDBDBBB&BDBBDBBDBmDBDBB&BDBZDDVALUE699BDB&BDBDB;C%SET-COMPILED-FUNCTION-LOCAL-REFSDBB&DBpB2DBDB;B%BBB%1DBBDBDB;D%COMPILED-FUNCTION-REFSBDBFARGS700DBDDBDBBDB;BXDBDBBBFBDBBDBBDBmDBDBBFBDBZDDVALUE701BDBFBDBDB;%SET-COMPILED-FUNCTION-REFSDBBFDBpBRDBDB;BEBBBE1DBBDBDB;DC%COMPILED-FUNCTION-LENGTHBDBFARGS702DBDDBDBBDB;BXDBDBBBfBDBBDBBDBmDBDBBfBDBZDDVALUE703BDBfBDBDB;Ã%SET-COMPILED-FUNCTION-LENGTHDBBfDBpBrDBDB;BeBBBe1DBBDBDB;D%COMPILED-FUNCTION-CODEBDBFARGS704DBDDBDBBDB;BXDBDBBBBDBBDBBDBmDBDBBBDBZDDVALUE705BDBBDBDB;%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.