hưs8p,LAMBDAF2Dp,lFASD-DATADPFCJack FlanderssF~FBDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLElstandard Zetalisp1DCIN-PACKAGEDÀQUOTEB51DDEFCONSTANTÂMULTIPLE-VALUES-LIMITF,Upper bound on the number of values that may be returned from a function1DDEFMACROp,HARDWARE,RETURN-CODE-MV-PNILDB;DpBFl32LOGBITPDÁBYTE-POSITIONpBF%%PROCESSOR-STATUS-RETURN-CODEDpBFREAD-PROCESSOR-STATUS1DBEMULTIPLE-VALUE-LISTDFORMDplSIlXR-BQ-LISTDB;MV-LISTBX1DBECONTOUR-LINKDCONTOURDpBZXR-BQ-LIST*DB;pCONS,CONTENTS-OFFSETBcDB;DF1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBbÀLAMBDADBcDLET*DDpBr,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBwDÀIGNOREDpB+,GENTEMPDB;DBcDpBr,STOREVARDpB+GENSYMDpBr,TEMPVARSB{DÀVALUESBDpB+LISTBcDBBDLETDDÀVALUEBDBcDpB+NTHBDB\DB;pBgSTORE-CONTENTS-OFFSETBcFBDBfDB;BbBDCIFDpB+BOUNDPDB;BtBtBIBb1DBECONTOUR-SLOTDBcÀOFFSETDB\DB;BiBcB1DBqBtDBvDB;DBBwDBcBDByDDB{DB}BDB;DBcBBDBB{DBBDBBcBBDBDDBBDBcDBBDBDBFBDB\DB;BBcBBDBfDB;BBBB1DÀDEFVARC*MAKE-CONTOUR-MAX*F1DBÁ*MAKE-CONTOUR*DB;DBIÁMAKE-CONTOUR-1ÁMAKE-CONTOUR-2ÁMAKE-CONTOUR-3ÁMAKE-CONTOUR-41DBECLOSURE-FUNCTIONDCLOSUREDBfDB;BiBDB;DF1DBqBtDBvDB;DBBwDBDByDDB{DB}BDB;DBBDBB{DBBDBBBDBDDB~BDBDBBDB\DB;BBFB~DBfDB;BBBB1DB*CLOSURE-REF-0-MAX*F1DB*CLOSURE-REF-0*DB;DCLOSURE-REF-0-1CLOSURE-REF-0-2CLOSURE-REF-0-3CLOSURE-REF-0-41DB*CLOSURE-SET-0-MAX*F1DB*CLOSURE-SET-0*DB;DCLOSURE-SET-0-1CLOSURE-SET-0-2CLOSURE-SET-0-3CLOSURE-SET-0-41DplNC,DEF-DECLARATIONCLEXICAL-CLOSURE-PÀSUBSTDB;DpB&NAMED-LAMBDAB)DCPDp,VINCULUMlDATA-TYPE=B-DpBFDPB-UNBOXEDpB/$$DTP-LEXICAL-CLOSUREpB/%%DATA-TYPEDpBF,UNBOXED-CONSTANT