hưs2Dp,lFASD-DATADerRicDeath HF{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITELMI CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DplNCPUT-GLOBAL-DECLARATIONDB;TYPE-DESCRIPTORDB;DEFSTRUCT-DESCRIPTORDB;$NILpB+ART-QEFBFBFBFFBBMAKE-TYPE-DESCRIPTORBFBFDBBDEXPANDERDB;CUNDEFINEDDCPREDICATEBPDCOPTIMIZERBPDNAMEBPDÁNAME-FUNCTIONBPDÁCANONICALIZERBPDSUBTYPESBP1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DTD-SUBTYPESÀLAMBDADBBDLET*DDpBc,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBiDÀIGNOREDpB+,GENTEMPDB;DBBDpBc,STOREVARDpB+GENSYMDpBc,TEMPVARSBmDÀVALUESBDpB+LISTBBDBB}DLETDDÀL9010B}DBBDpB+NTHBDplSIlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BBFBBBDpBXR-BQ-LIST*DB;BhBBeBh1DpB?,DEF-DECLARATIONBhÀSUBSTDB;DpB?NAMED-LAMBDABhDBBDÁSTRUCTURE-REFDB;BBFBB1DBbBeDBgDB;DTD-CANONICALIZERBiDBBDBkDDBmDBoBwDB;DBBBDBBmDBBDBBBBDBDDÀL9009B}DBBDBBDBBDB;DB;BBFBBBDBDB;BBBeB1DBBBDB;DBBDBBDBDB;BBFBB1DBbBeDBgDB;DTD-NAME-FUNCTIONBiDBBDBkDDBmDBoBwDB;DBBBDBBmDBBDBBBBDBDDÀL9008B}DBBDBBDBBDB;DB;BBFBBBDBDB;BBBeB1DBBBDB;DBBDBBDBDB;BBFBB1DBbBeDBgDB;DTD-NAMEBiDBBDBkDDBmDBoBwDB;DBBBDBBmDBBDBBBBDBDDÀL9007B}DBBDBBDBBDB;DB;BBFBBB DBDB;BBBeB1DBBBDB;DBBDBBDBDB;BBFBB1DBbBeDBgDB;DTD-OPTIMIZERBiDBBDBkDDBmDBoBwDB;DBBBDBBmDBBDBBBBDBDDÀL9006B}DBBDBBDBBDB;DB;BBFBBB/DBDB;B&BBeB&1DBB&BDB;DBB&DBBDBDB;BBFBB1DBbBeDBgDB;DTD-PREDICATEBiDBBDBkDDBmDBoBwDB;DBBBDBBmDBBDBBBBDBDDÀL9005B}DBBDBBDBBDB;DB;BBFBBBTDBDB;BKBBeBK1DBBKBDB;DBBKDBBDBDB;BBFBB1DBbBeDBgDB;DTD-EXPANDERBiDBBDBkDDBmDBoBwDB;DBBBDBBmDBBDBBBBDBDDÀL9004B}DBBDBBDBBDB;DB;BBFBBByDBDB;BpBBeBp1DBBpBDB;DBBpDBBDBDB;BBFBB1DBADB;BBDB;ÁTYPE-EXPANDERDBpÃTYPE-DESCRIPTOR-TYPE-EXPANDERBB1DBCTYPE-DESCRIPTOR-PBDB;DBBDÀTHINGDTYPEP-STRUCTUREBDB;BBBB1DÀDEFVAR*TYPE-DESCRIPTOR-TABLE*DMAKE-HASH-TABLE1DDEFMACROBBDTYPEDBDB;GETHASHBDB;DB1DBDEFTYPEDBVARGLISTÀ&BODYBODYlDefines NAME as a data type name for use in TYPEP, etc.A list starting with NAME, used as a type specifier,expands by binding the args in ARGLIST and then evaluating the BODY.The value of BODY should be another type specifier.Any optional arguments in ARGLIST which do not have default values specifiedwill be bound to * by default, rather than NIL.DCCHECK-TYPEBVÀSYMBOLDCONDDDBBBVDÀERRORl~~S is the name of a standard type specifier used by the system.Redefining it would probably break the world.~BVDBDDARGCOPYDBDDCOPTIONAL-PBFDÀMAPCARDBpDBiDELTDCIFDSYMBOLPBDBDBDBDDÀMEMBERBLAMBDA-LIST-KEYWORDSDBbBBFBDB-DBBDB;DDB;C*DDCEQBDB;C&OPTIONALDBbBB-BDB-BBBDDOCDWHENDSTRINGPDCARBDBBDÁEXPANDER-NAMEDMAKE-SYMBOLDCONCATENATEDB;pB+STRINGDSYMBOL-NAMEBV-TYPE-EXPANDERDBDB;ÀPROGNDBDB;CEVAL-WHENDB;DLOADEVALDBDB;ÀDEFUNBBBDBDB;BADBDB;B;BVDB;DB;BDBDB;BpBDBDB;BDB;DCOMPILEDBDB;pB?PUT-LOCAL-DECLARATIONDBDB;B;BVDB;DB;BDBDB;BpDBDB;BiBBDBDB;B;BV1DDEFCONSTANTCNON-COMPLEX-NUMERIC-TYPESDB;D INTEGERRATIONALÀRATIOÀFIXNUMÀBIGNUMÀFLOATSHORT-FLOATSINGLE-FLOATDOUBLE-FLOATCLONG-FLOATBIT1DB,SIMPLE-NUMERIC-TYPESDB;DB.B/B3B4B5B6B71DB,ÁTYPE-OF-ALISTDB;D DNULLDFBDFCCHARACTERDFCONSDFB1DFB2DFB4DFB5DFB6DFB/DF COMPLEXDF CCOMPILED-FUNCTION1DB,TYPEP-ALISTDB;D DFBDBDDFBIDFBLDFB1DFB2DFB0DF B^DFLEXICAL-CLOSUREDFB4DFB5DFB61DB,NON-AND-REDUCIBLE-TYPESDB;DCSATISFIESBpBB1DBDEFINE-TYPEDBVBÀSTUFFDDECLAREDpZWEIINDENTATIONFFDBDB;SETFDBDB;BBDBDB;B;BVDBDANDDBDDCDRBDBDBBDBDB;BBDBDB;B;DBBDBDB;BMDÀMAPCANDBpDBiDCCDLISTDBBDBDDBDBBpB ,SUBTYPESDBDB;B;DBBDDÀLISTPDCADRBDBDB;BpDBDB;BiDBBDB-DBDB;B;DBBB1DDBiDÀT5358DDBiDÀT5359DDBiDÀT5360DDBiDÀX9105DBD%SETHASHBBBDBMpB ,EXPANDERDBpDBiDÀ&RESTBqDBl~S type-specifiers are not meaningful for testing objects against.DB;BpBFBDB;Bp1DDBiDÀT5366DDBiDÀT5367DDBiDÀT5368DDBiDÀX9106DBDBBBBDBMBDBpDBiDBBqDBl~S type-specifiers are not meaningful for testing objects against.DB;BBFBDB;B1DDBiDÀT5374DDBiDÀT5375DDBiDÀT5376DDBiDÀX9107DBDBBBB DBMpB lPREDICATEDBpDBiDÀOBJECTBRDFUNCALLBRBpB lOPTIMIZERDBpDBiDCEXPRESSIONBRDBBRDBBpB CANONICALIZERDBpDBiDREC-DEPTYPESPECSPECDBB#BFBDB;B1DDBiDÀT5382DDBiDÀT5383DDBiDÀT5384DDBiDÀX9108DBDBB3B5B9DBMBDBpDBiDBBÀTYPESDÀDOLISTDDISJUNCTB>DBDÀTYPEPBBADÀRETURNB-BDBpDBiDBBB>DBDB;BDBDBDB;BDBBDBDB;CORDBDBpDBiDBDBDB;BCDB;BDBDB;B;BB>BFBDB;BQ1DDBiDÀT5390DDBiDÀT5391DDBiDÀT5392DDBiDÀX9109DBDBBjBlBpDBMBDBpDBiDBBB>DB@DCONJUNCTB>B-DÀUNLESSDBCBBvDBEBFBDBpDBiDBBB>DBDB;BDBDBDB;BDBBDBDB;BDBDBpDBiDBDBDB;BCDB;BDBDB;B;BB>BFBDB;B1DDBiDÀT5398DDBiDÀT5399DDBiDÀT5400DDBiDÀX9110DBDBBBBDBMBDBpDBiDBBDNOTDBCBBBDBpDBiDBBDBDB;BDBDB;BCDBBDBDB;B;BBFBDB;B1DDBiDÀT5406DDBiDÀT5407DDBiDÀT5408DDBiDÀX9111DBDBBBBDBMBDBpDBiDBBMEMBERSDBBBBDBpDBiDBBBDBDB;BDBBDBDB;B;DCCOPY-LISTBBDBpDBiDBBDÁMEMBER-EXPANDBBFBDB;B1DDBiDÀT5414DDBiDÀT5415DDBiDÀT5416DDBiDITEM9117DBDBBBBDBMBDB;COMMONPBDB;D"ÀARRAYSIMPLE-ARRAYÀVECTORÀSTRINGCBIT-VECTORÁSIMPLE-VECTORCSIMPLE-BIT-VECTORÁSIMPLE-STRINGÁSTANDARD-CHARBBBLBDÀNUMBERB/B.B2B1B0B[REALCNON-COMPLEX-NUMBERB3B4B5B6B7CHASH-TABLECREADTABLEPACKAGEPATHNAMEÀSTREAMRANDOM-STATECSTRUCTUREBFBDB;ÀCOMMON1DDBiDÀT5422DDBiDÀT5423DDBiDÀT5424DDBiDITEM9118DBDBBBBDBMBDB;ATOMBDB;D'BBBBBBBBBBBDBB/B.B2B1B0B[BBB3B4B5B6B7BBBBBB B CLOSUREÀENTITYINSTANCESTACK-GROUPÀSELECTLOCATIVEB^BFBDB;B#1DDBiDÀT5430DDBiDÀT5431DDBiDÀT5432DDBiDITEM9119DBDBB7B9B=DBMBDB;BBDB;DBLBDBFBDB;B1DDBiDÀT5438DDBiDÀT5439DDBiDÀT5440DDBiDITEM9120DBDBBOBQBUDBMBDB;BBDB;DBDKEYWORDBFBDB;B1DDBiDÀT5446DDBiDÀT5447DDBiDÀT5448DDBiDITEM9121DBDBBhBjBnDBMBDB;BDBFBDB;BD1DDBiDÀT5454DDBiDÀT5455DDBiDÀT5456DDBiDITEM9122DBDBB~BBDBMBDB;ÀCONSPBFBDB;BL1DDBiDÀT5462DDBiDÀT5463DDBiDÀT5464DDBiDITEM9123DBDBBBBDBMBDB;KEYWORDPBFBDB;B[1DDBiDÀT5470DDBiDÀT5471DDBiDÀT5472DDBiDITEM9124DBDBBBBD BMBDBpDBiDBDBQDBBDVECTORPBBDBpDBiBFDB;DBQBBBDBpDBiDBDBDB;BDBDBDB;BDBBDB;DDBQDBBDBBBDB;D BBLBDBBBBBBBFBDB;SEQUENCE1DDBiDÀT5478DDBiDÀT5479DDBiDÀT5480DDBiDITEM9125DBDBBBBDBMBDBpDBiDBqBFBDBpDBiDBDBDB;BDBBDB;DBFBFBDB;BF1DDBiDÀT5486DDBiDÀT5487DDBiDÀT5488DDBiDITEM9126DBDBBBBDBMBDBpDBiDBqB-BDBpDBiDBDBDB;BDBBDB;DB-BFBDB;B-1DDBiDÀT5494DDBiDÀT5495DDBiDÀT5496DDBiDITEM9127DBDBBBB#DBMBDB;STREAMPBFBDB;B1DDBiDÀT5502DDBiDÀT5503DDBiDÀT5504DDBiDITEM9128DBDBB4B6B:D BMBDBpDBiDBBDELEMENT-TYPEDB;BDCDIMENSIONSDB;B&AUXCARRAY-ELEMENT-TYPEDBDÀARRAYPBDBQDBBBDB;BDBDNUMBERPBBDC=BBDCARRAY-RANKBDBDBNDÀLENGTHBBDBOBDDOTIMESDCIDBOBB-DBxDBQDBDNTHBWBBDB;BDBNDBZBWBBDARRAY-DIMENSIONBBWDBEBFDBQDBB?DB;BDÀEQUALB?DBbBFDBFBDBDSUBTYPEPB?BFDBoBFB?BDB;OPTIMIZE-ARRAY-TYPEPB!DB;CCANONICALIZE-ARRAY-TYPE-SPECIFIERBDB;DBBBBBBBBFBDB;B1DDBiDÀT5510DDBiDÀT5511DDBiDÀT5512DDBiDITEM9129DBDBBBBD BMBDBpDBiDBBDB?DB;BDBBDB;BBEBFDBDÁSIMPLE-ARRAY-PBDBQDBB?DB;BDBkB?DBbBFDBFBDBDBoB?BFDBoBFB?DBQDBBBDB;BDBDBLBBDBNBBDBOBDBDBNDBRBBDBOBDBVDBWDBOBB-DBxDBQDBDBZBWBBDB;BDBNDBZBWBBDB_BBWDBEBFBDB;BwB!DB;ByBDB;DBBBBFBDB;B1DDBiDÀT5519DDBiDÀT5520DDBiDÀT5521DDBiDCFORMS9135DBDBBBBD BMBDBpDBiDBBDB?DB;BDSIZEDB;BBEBFDBDBBDBQDBB?DB;BDBkB?DBbBFDBFBDBDBoB?BFDBoBFB?DBQDBBDB;BDBNBDBRBBDBpDBiDBBDB?DB;BDBBDB;BDBDDBDBB?DB;BDBBBDB;BDBDB;BDBBDB-BBDBpDBiDBDB?DB;BDBDB;BDBDB;BB?DBBBDB;DBBBBBBFBDB;B1DBÂDEFINE-VECTOR-SUBTYPEDBVBREXP-TYPEBB\DBDB;BBVDBDB;BDB;DBBDBDB;BDBDB;BDBBRDB;DBDB;DDBQDBBDB;BDBNBDBRBDBDB;BDB;DBBDBDB;BDBDB;BDBDB;DBBDB;BDBDB;BDBDB;B;BRDB;DDBBDBB-DBDB;BDB;DB;BDB;DBDBDB;OBJDBBDBDB;BDB;DB;BDBDB;B;DBBRDB;DB?DB;DDBDB;BNDB;DARRAY-TOTAL-SIZEB?BDBDB;BDB;DBDBDB;BDBDB;ÀAPPENDDBDB;B;BDB;DDBDBBDBDB;BB\1DDBiDÀT5527DDBiDÀT5528DDBiDÀT5529DDBiDÀG9137DBDBBmBoBsD BMBDBpDBiBDBDSIMPLE-VECTOR-PBB&BDBpDBiB.DBDB2DBDB;BxB7DB-DBB=BCDBBFDB;DBxB?BQBDBpDBiB\DB^DB;DBB-BcBDB;BFBFBDB;B1DDBiDÀT5535DDBiDÀT5536DDBiDÀT5537DDBiDÀG9138DBDBBBBD BMBDBpDBiBDBDBBB&BDBpDBiB.DBDB2DBDB;BB7DB-DBB=BCDBBFDB;DBB?BQBDBpDBiB\DB^DB;DBSTRING-CHARBcBDB;DBBFBDB;B1DDBiDÀT5543DDBiDÀT5544DDBiDÀT5545DDBiDÀG9139DBDBBBBD BMBDBpDBiBDBDSIMPLE-STRING-PBB&BDBpDBiB.DBDB2DBDB;BB7DB-DBB=BCDBBFDB;DBB?BQBDBpDBiB\DB^DB;DBBBcBDB;BFBFBDB;B1DDBiDÀT5551DDBiDÀT5552DDBiDÀT5553DDBiDÀG9140DBDBBBBD BMBDBpDBiBDBDBIT-VECTOR-PBB&BDBpDBiB.DBDB2DBDB;BB7DB-DBB=BCDBBFDB;DBB?BQBDBpDBiB\DB^DB;DBB8BcBDB;DBBFBDB;B1DDBiDÀT5559DDBiDÀT5560DDBiDÀT5561DDBiDÀG9141DBDBBBB!D BMBDBpDBiBDBDSIMPLE-BIT-VECTOR-PBB&BDBpDBiB.DBDB2DBDB;B&B7DB-DBB=BCDBBFDB;DB&B?BQBDBpDBiB\DB^DB;DBB8BcBDB;BFBFBDB;B1DDBiDÀT5567DDBiDÀT5568DDBiDÀT5569DDBiDÀG9142DBDBBFBHBLDBMBDB;CCHARACTERPBDB;DBBBFBDB;BI1DDBiDÀT5575DDBiDÀT5576DDBiDÀT5577DDBiDÀG9143DBDBB_BaBeD BMBDBpDBiDBDBDBQBDÁSTRING-CHAR-PBBDBpDBiBFDB;DBBIDBBlBDBpDBiDBDBDB;BDBDBDB;BDBBDB;DDBDBQBDBlBBDB;DBBFBDB;B1DDBiDÀT5583DDBiDÀT5584DDBiDÀT5585DDBiDÀG9144DBDBBBBDBMBDBpDBiDBDBDBQBDSTANDARD-CHAR-PBBDBpDBiDBDBDB;BDBDBDB;BDBBDB;DDBDBQBDBBBFBDB;B1DDBiDÀT5591DDBiDÀT5592DDBiDÀT5593DDBiDÀG9145DBDBBBBDBMBDB;BLBDB;D B/B.B1B2B0B[BBB3B4B5B6B7BFBDB;B1DDBiDÀT5599DDBiDÀT5600DDBiDÀT5601DDBiDÀG9146DBDBBBBDBMBDBpDBiDBBDBDB;BDBDCOMPLEXPBDBQDBBDB;DB-BBDBDBCDREALPARTBBDBQDBBDB;DB3B5B4B6B7DBCDIMAGPARTBBBDBpDBiDBBDBDB;BDBDDBDBBDBDBBDB;DB-BBDBDB;BBDBDB;BDBDBDB;BBDBDB;BDBDB;BBDBDBBDB;DB3B4B5B6B7DBDB;BCDB;DBBDBDB;B;BDBDB;BDBDB;BCDBDB;BBDBDB;B;BDBDB;BCDBDB;BBDBDB;B;BB!DBpDBiDB#BDSUBTYPEDB;BBEBDDBDDBB$DB;DB-BBDB;B[DB-DBbBDCTYPE-CANONICALIZEB$DBDBkBB$B#DBDB;B[BBFBDB;B[1DDBiDÀT5607DDBiDÀT5608DDBiDÀT5609DDBiDÀG9147DBDBBCBEBID BMBDBpDBiDBBDLOWDB;BDHIGHDB;BDBDCRATIONALPBDÃNON-COMPLEX-NUMBER-IN-RANGE-PBBNBQDB;B/BDBpDBiDBBDBNDB;BDBQDB;BDCOPTIMIZE-NUMERIC-TYPE-TESTDB;BUBBNBQB!DB;CANONICALIZE-REAL-TYPE-SPECIFIERBDB;DB.B0B2B1BFBDB;B/1DDBiDÀT5615DDBiDÀT5616DDBiDÀT5617DDBiDÀG9148DBDBBuBwB{DBMBDB;p,VINCULUMRATIOPBFBDB;B01DDBiDÀT5623DDBiDÀT5624DDBiDÀT5625DDBiDÀG9149DBDBBBBD BMBDBpDBiDBBDBNDB;BDBQDB;BDBDINTEGERPBDBWBBNBQDB;B.BDBpDBiDBBDBNDB;BDBQDB;BDBDDBDÀSECONDBDBDBDBDBBNDB;BDBDBBQDB;BDBDDCHIDBDBBQDC1-DBBQBQDCLODBDBBNDC1+DBBNBNDBDDCB BDBInvalid upper limit ~S in ~S type specifier.B DB;MODBDBpDBiDBDB DB;BDBDBB DB;BDB;DB.DBDB;B.DBB BDBpDBiDBBDB DB;BDBbDB;BBDBB BFBDB;B 1DDBiDÀT5655DDBiDÀT5656DDBiDÀT5657DDBiDÀG9155DBDBB B B DBMBDBpDBiDBDBQDBBDBBFBDBpDBiBFDB;DB.FBDBpDBiDBDBDB;BDBDBDB;BDBBDB;DDBQDBBDBBFBFBDB;B81DDBiDÀT5663DDBiDÀT5664DDBiDÀT5665DDBiDÀG9156DBDBB B B DBMBDBpDBiDBBDCBYTE-SIZEDB;BDBDBBDBDB BDBQDBB BDBDBDBB DB B DB DASHFB BDBlInvalid byte size ~S in ~S type specifier.B DB;ÁUNSIGNED-BYTEBDBpDBiDBDB DB;BDBDBB DB;BDB;DB.DBDB;B.DBDB FB BDBpDBiDBBDB DB;BDTYPECASEB DDBBDBbDB;BBDB;BDDB.DBbDB;BBDBDB FB DB-DpB(WARNDB;pB(BAD-TYPE-SPECIFICATIONpB lIMPOSSIBLElInvalid byte size ~S in ~S type specifier.B DB;B BFBDB;B 1DDBiDÀT5671DDBiDÀT5672DDBiDÀT5673DDBiDÀG9157DBDBBb Bd Bh DBMBDBpDBiDBBDB DB;BDBDBBDB: B DDBBB-DDB.DBDBBDB FDBB DCBDBDB FDBB DB-DBlInvalid byte size ~S in ~S type specifier.B DB;SIGNED-BYTEBDBpDBiDBDB DB;BDBDBB DB;BDB;B.DBDB;B.DBDB FDBB DBDB FDBB BDBpDBiDBBDB DB;BDB: B DDBBDBDB;BDBBDDB.DBbDB;BBDBDB FDBB DBDB FDBB DB-DBK DB;BM BP lInvalid byte size ~S in ~S type specifier.B DB;B BFBDB;B 1DDBiDÀT5679DDBiDÀT5680DDBiDÀT5681DDBiDÀG9158DBDBB B B D BMBDBpDBiDBBDBNDB;BDBQDB;BDBDÀFLOATPBDBWBBNBQDB;B3BDBpDBiDBBDBNDB;BDBQDB;BDBbDB;B BBNBQB!DB;BgBDB;DB4B5B6B7BFBDB;B31DDBiDÀT5687DDBiDÀT5688DDBiDÀT5689DDBiDÀG9159DBDBB B B DBMBDBpDBiDBBDBNDB;BDBQDB;BDBDpBSHORT-FLOAT-PBDBWBBNBQDB;B4B!DB;BgBDBpDBiDBBDBNDB;BDBQDB;BDBbDB;B BBNBQBFBDB;B41DDBiDÀT5695DDBiDÀT5696DDBiDÀT5697DDBiDÀG9160DBDBB B B# DBMBDBpDBiDBBDBNDB;BDBQDB;BDBDpBSINGLE-FLOATPBDBWBBNBQDB;B5B!DB;BgBDBpDBiDBBDBNDB;BDBQDB;BDBbDB;pBSINGLE-FLOAT-PBBNBQBFBDB;B51DDBiDÀT5703DDBiDÀT5704DDBiDÀT5705DDBiDÀG9161DBDBBK BM BQ DBMBDBpDBiDBBDBNDB;BDBQDB;BDBDpBDOUBLE-FLOAT-PBDBWBBNBQDB;B5B!DB;BgBDBpDBiDBBDBNDB;BDBQDB;BDBbDB;B\ BBNBQBFBDB;B61DDBiDÀT5711DDBiDÀT5712DDBiDÀT5713DDBiDÀG9162DBDBBw By B} DBBDB;B6BFBDB;B7