hưs8p,LAMBDAF2Dp,lFASD-DATADPFCOrson WellesŦtF~FBDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;DDEFTYPETYPE-OFÀTYPEPSUBTYPEPDB;ÀNLISP1DDEFMACROÁTYPE-EXPANDERDÁTYPE-SPECIFIERDplSIXR-BQ-LIST*DB;plNC,GET-DECLARATIONBLDB;DDB;BK1D pB+lDEFSTRUCTDTYPE-DESCRIPTORDpB lCONC-NAMETD-EXPANDERCPREDICATECOPTIMIZERNAMEÁNAME-FUNCTIONÁCANONICALIZERSUBTYPES1DÀDEFVAR*TYPE-DESCRIPTOR-TABLE*DMAKE-HASH-TABLE1DBJB]DTYPEDBPDB;GETHASHBrDB;DBm1DBJB@DBfARGLISTÀ&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-TYPEBfÀSYMBOLDCONDDDB]BfDÀERRORl~~S is the name of a standard type specifier used by the system.Redefining it would probably break the world.~BfDLETDDARGCOPYDBDDCOPTIONAL-PNILDÀMAPCARDFUNCTIONDÀLAMBDADELTDCIFDSYMBOLPBDBDBDBDDÀMEMBERBLAMBDA-LIST-KEYWORDSDSETQBBBDB-DBPBDB;DDB;C*DDCEQBDB;C&OPTIONALDBBB-BDB-BBB{DDOCDWHENDSTRINGPDCARB}DBB}DÁEXPANDER-NAMEDMAKE-SYMBOLDCONCATENATEDB;pB+STRINGDSYMBOL-NAMEBf-TYPE-EXPANDERDpBNlXR-BQ-LISTDB;ÀPROGNDBDB;pBQ,DEF-DECLARATIONBfDB;BKDBDB;BDBPDB;BBB}DBDB;B;Bf1DDEFCONSTANTÁTYPE-OF-ALISTDB;D DNULLDFBDFCCHARACTERDFCONSDFÀFIXNUMDFÀBIGNUMDFSHORT-FLOATDFSINGLE-FLOATDFDOUBLE-FLOATDFRATIONALDF COMPLEXDF CCOMPILED-FUNCTION1DBTYPEP-ALISTDB;DDFBDFBDFBDFBDF LOCATIVEDF BDFLEXICAL-CLOSUREDFB1DBJDEFINE-TYPEDBfB|ÀSTUFFDDECLAREDpZWEIINDENTATIONFFDBDB;SETFDBDB;B]DBDB;B;BfDBDANDDBDCDRBDBDBBDBDB;B]DBDB;B;DBBDBPDB;MAKE-TYPE-DESCRIPTORDÀMAPCANDBDBDCCDLISTDBB=DBDDBDBB=pB ,SUBTYPESDBDB;B;DB/B=DDÀLISTPDCADRB=DBDB;BDBPDB;BDB/B=DB-DBDB;B;DBJB=B1DDBDT839DDBDT840DDBDT841DDBDTAG7024DBD%SETHASHBaBcBgDB:pB ,EXPANDERDBDBDÀ&RESTÀIGNOREDBl~S type-specifiers are not meaningful for testing objects against.DB;BBBmDB;B1DDBDT847DDBDT848DDBDT849DDBDTAG7025DBDBiBBBDB:BnDBDBDBoBpDBl~S type-specifiers are not meaningful for testing objects against.DB;ÀVALUESBBmDB;B1DDBDT855DDBDT856DDBDT857DDBDTAG7026DBDBiBBBDB:pB lPREDICATEDBDBDÀOBJECTBdDFUNCALLBdBpB lOPTIMIZERDBDBDCEXPRESSIONBdDBBdDBJBpB CANONICALIZERDBDBDREC-DEPDEPENDENCIESTYPESPECSPECDBBBBBmDB;CSATISFIES1DDBDT863DDBDT864DDBDT865DDBDTAG7027DBDBiBBBDB:BDBDBDBBoÀTYPESDÀDOLISTDDISJUNCTBDBDBBBBDÀRETURNB-BDBDBDBBoBDBDB;BDBDBDB;BDBJBDBPDB;CORDBDBDBDBrDBDB;BBDB;BDBDB;B;BrBBBmDB;B1DDBDT871DDBDT872DDBDT873DDBDTAG7028DBDBiBBB DB:BDBDBDBBoBDBDCONJUNCTBB-DÀUNLESSDBBBBDBBBDBDBDBBoBDBDB;BDBDBDB;BDBJBDBPDB;B.DBDBDBDBrDBDB;BBDB;BDBDB;B;BrBBBmDB;B.1DDBDT879DDBDT880DDBDT881DDBDTAG7029DBDBiB6B8B<DB:BDBDBDBBrDNOTDBBBBrBDBDBDBBrDBDB;BBDBDB;BBDBJBDBDB;B;BrBBmDB;BB1DDBDT887DDBDT888DDBDT889DDBDTAG7030DBDBiB[B]BaDB:BDBDBDBBoMEMBERSDBBBfBDBDBDBBoBfDBDB;BDBJBDBDB;B;DCCOPY-LISTBfBnDBDBDBoBfDLET*DDBfDCREMOVE-DUPLICATESBfDÀLENGTHDBzBfDBDDC=BzBDDB.DB~BzFDNON-COMPLEX-NUMBER-PDBBfDBDTYPECASEDBBfDBBfDINTEGERDB;BDÀRATIODB;BDBDB;BDBDB;BBfBfDDB.DÀEVERYDBINTEGERPBfDBDDMAXDÀAPPLYDBBBfDMINDBDBBBfDBDB~BzDC-BBFDBDB;BBBDB-DBPDB;BDBoBfBBmDB;B1DDBDT895DDBDT896DDBDT897DDBDTAG7031DBDBiBBBDB:BDB;COMMONPBCDB;D ÀARRAYSIMPLE-ARRAYÀVECTORÀSTRINGCBIT-VECTORÁSIMPLE-VECTORCSIMPLE-BIT-VECTORÁSIMPLE-STRINGÁSTANDARD-CHARB?BBBÀNUMBERBBBBBBREALCNON-COMPLEX-NUMBERÀFLOATBBCHASH-TABLECREADTABLEPACKAGEPATHNAMEÀSTREAMRANDOM-STATECSTRUCTUREBBmDB;ÀCOMMON1DDBDT903DDBDT904DDBDT905DDBDTAG7032DBDBiBBBDB:BDB;ATOMBCDB;D%BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCLOSUREÀENTITYINSTANCESTACK-GROUPÀSELECTBBBBmDB;B1DDBDT911DDBDT912DDBDT913DDBDTAG7033DBDBiBBBDB:BDB;BIBCDB;DBBBBmDB;B?1DDBDT919DDBDT920DDBDT921DDBDTAG7034DBDBiB&B(B,DB:BDB;BBCDB;DBKEYWORDBBmDB;B1DDBDT927DDBDT928DDBDT929DDBDTAG7035DBDBiB?BABEDB:BDB;BBBmDB;B1DDBDT935DDBDT936DDBDT937DDBDTAG7036DBDBiBUBWB[DB:BDB;ÀCONSPBBmDB;B1DDBDT943DDBDT944DDBDT945DDBDTAG7037DBDBiBlBnBrDB:BDB;KEYWORDPBBmDB;B21DDBDT951DDBDT952DDBDT953DDBDTAG7038DBDBiBBBD B:BDBDBDBDBDBIBDVECTORPBBnDBDBBDB;DBB?BBDBDBDBDBPDB;BDBDBDB;BDBJBDB;DDBDBIBDBBBCDB;D B?BBBBBBBBBBmDB;SEQUENCE1DDBDT959DDBDT960DDBDT961DDBDTAG7039DBDBiBBBDB:BDBDBDBpBBDBDBDBDBPDB;BDBJBDB;DBBBmDB;B1DDBDT967DDBDT968DDBDT969DDBDTAG7040DBDBiBBBDB:BDBDBDBpB-BDBDBDBDBPDB;BDBJBDB;DB-BBmDB;B-1DDBDT975DDBDT976DDBDT977DDBDTAG7041DBDBiBBBD B:BDBDBDBBDELEMENT-TYPEDB;BDCDIMENSIONSDB;B&AUXCARRAY-ELEMENT-TYPEDB.DÀARRAYPBDBDBBDB;BDBDNUMBERPBDB~BDCARRAY-RANKBDB.DB~DBzBDBBDDOTIMESDCIDBBB-DBDBDBDNTHBBDB;BDB~DBBBDARRAY-DIMENSIONBBDBBDBDBBDB;BDÀEQUALBDBBDBBDB.DBCBBDBCBBBDB;OPTIMIZE-ARRAY-TYPEPBDB;CCANONICALIZE-ARRAY-TYPE-SPECIFIERBCDB;DBBBBBBBBBmDB;B1DDBDT983DDBDT984DDBDT985DDBDTAG7042DBDBiBDBFBJD B:BDBDBDBBDBDB;BDBDB;BBBDB.DÁSIMPLE-ARRAY-PBDBDBBDB;BDB)BDBBDBBDB.DBCBBDBCBBDBDBBDB;BDBDB BDB~BDBBDB.DB~DBzBDBBDBDBDBBB-DBDBDBDBBBDB;BDB~DBBBDBBBDBBBDB;B4BDB;B6BCDB;DBBBBBmDB;B1DDBDT992DDBDT993DDBDT994DDBDCFORMS7048DBDBiBBBD B:BDBDBDBBDBDB;BDSIZEDB;BBBDB.DBBDBDBBDB;BDB)BDBBDBBDB.DBCBBDBCBBDBDBBDB;BDB~BDBzBBDBDBDBBDBDB;BDBDB;BDBDDB.DBBDB;BDBBDB;BDBDB;BDBJBDB-BBnDBDBDBDBDB;BDBDB;BDBDB;BBDBBBCDB;DBBBBBBBmDB;B1DBJÂDEFINE-VECTOR-SUBTYPEDBfBdEXP-TYPEBBiDBDB;BBfDBDB;BDB;DBBDBDB;BDBPDB;B.DBPBdDB;DBDB;DDBDBBDB;BDB~BDBzBDBDB;BDB;DBBDBDB;BDBDB;BDBDB;DBBDB;BDBPDB;BDBDB;B;BdDB;DDBJBDBB-DBDB;BDB;DB;BDB;DBDBDB;OBJDBJBDBPDB;BDB;DB;B.DBDB;B;DBPBdDB;DBDB;DDBDB;B~DB;DARRAY-TOTAL-SIZEBBDBDB;BnDB;DBDBDB;BDBPDB;ÀAPPENDDBDB;B;BDB;DDB?DB?BDBPDB;BCBi1DDBDÀT1000DDBDÀT1001DDBDÀT1002DDBDÀG7050DBDBiB*B,B0D B:BDBDBBDB.DSIMPLE-VECTOR-PBBBDBDBBDBDBDBDB;B5BDB-DBBBDBBDB;DB5BBBnDBDBBDBDB;DBB-B BCDB;BBBmDB;B1DDBDÀT1008DDBDÀT1009DDBDÀT1010DDBDÀG7051DBDBiBUBWB[D B:BDBDBBDB.DBBBBDBDBBDBDBDBDB;BBDB-DBBBDBBDB;DBBBBnDBDBBDBDB;DBSTRING-CHARB BCDB;DBBBmDB;B1DDBDÀT1016DDBDÀT1017DDBDÀT1018DDBDÀG7052DBDBiBBBD B:BDBDBBDB.DSIMPLE-STRING-PBBBDBDBBDBDBDBDB;BBDB-DBBBDBBDB;DBBBBnDBDBBDBDB;DBBoB BCDB;BBBmDB;B1DDBDÀT1024DDBDÀT1025DDBDÀT1026DDBDÀG7053DBDBiBBBD B:BDBDBBDB.DBIT-VECTOR-PBBBDBDBBDBDBDBDB;BBDB-DBBBDBBDB;DBBBBnDBDBBDBDB;DBBITB BCDB;DBBBmDB;B1DDBDÀT1032DDBDÀT1033DDBDÀT1034DDBDÀG7054DBDBiBBBD B:BDBDBBDB.DSIMPLE-BIT-VECTOR-PBBBDBDBBDBDBDBDB;BBDB-DBBBDBBDB;DBBBBnDBDBBDBDB;DBBB BCDB;BBBmDB;B1DDBDÀT1040DDBDÀT1041DDBDÀT1042DDBDÀG7055DBDBiBBB DB:BDB;CCHARACTERPBCDB;DBBoBBmDB;B1DDBDÀT1048DDBDÀT1049DDBDÀT1050DDBDÀG7056DBDBiBBB#D B:BDBDBDBDB.DBBDÁSTRING-CHAR-PBBnDBDBBDB;DB.BDBB*BDBDBDBDBPDB;BDBDBDB;BDBJBDB;DDB.DBBDB*BBCDB;DBBBmDB;Bo1DDBDÀT1056DDBDÀT1057DDBDÀT1058DDBDÀG7057DBDBiBNBPBTDB:BDBDBDBDB.DBBDSTANDARD-CHAR-PBBDBDBDBDBPDB;BDBDBDB;BDBJBDB;DDB.DBBDB[BBBmDB;B1DDBDÀT1064DDBDÀT1065DDBDÀT1066DDBDÀG7058DBDBiBxBzB~DB:BDB;B BCDB;D BBBBBBBBBBBBBmDB;B1DDBDÀT1072DDBDÀT1073DDBDÀT1074DDBDÀG7059DBDBiBBBDB:BDBDBDBBDBrDB;BDB.DCOMPLEXPBDBDBBrDB;DB-BBDB.DBBDREALPARTBBrDBDBBrDB;DBBBBCLONG-FLOATDBBDIMAGPARTBBrBDBDBDBBDBrDB;BDBDDBDBJBDBDBBrDB;DB-BBDBDB;BBDBDB;BDBDBDB;BBDBDB;B.DBDB;BBDBDBBrDB;DBBBBBDBDB;BBDB;DBBDBDB;B;BrDBDB;B.DBDB;BBDBDB;BBDBDB;B;BrDBDB;BBDBDB;BBDBDB;B;BrBDBDBDRECORD-DEPENDENCIESBBBDSUBTYPEDB;BBBrDBDBDDBBDB;DB-BBDB;BDB-DMULTIPLE-VALUE-SETQDBrBDTYPE-CANONICALIZE-1BBBDBDB)BrBBDBDB;BBrBBBmDB;B1DDBDÀT1080DDBDÀT1081DDBDÀT1082DDBDÀG7060DBDBiBBB D B:BDBDBDBBDLOWDB;BDHIGHDB;BDB.DCRATIONALPBDÃNON-COMPLEX-NUMBER-IN-RANGE-PBBBDB;BBDBDBDBBDBDB;BDBDB;BDCOPTIMIZE-NUMERIC-TYPE-TESTDB;BBBBBDB;CANONICALIZE-REAL-TYPE-SPECIFIERBCDB;DBBBBBBmDB;B1DDBDÀT1088DDBDÀT1089DDBDÀT1090DDBDÀG7061DBDBiB7B9B=DB:BDB;p,VINCULUMRATIOPBBmDB;B1DDBDÀT1096DDBDÀT1097DDBDÀT1098DDBDÀG7062DBDBiBPBRBVD B:BDBDBDBBDBDB;BDBDB;BDB.DBBDBBBBDB;BBDBDBDBBDBDB;BDBDB;BDBDDBDÀSECONDBDBDB.DBBDBBDB;BDBBDBBDB;BDBDDCHIDBDB`BDC1-DBBBDCLODBDB`BDC1+DBBBDBDDCBWBDBInvalid upper limit ~S in ~S type specifier.BWDB;MODBnDBDBDBDBWDB;BDBDBBWDB;BDB;DBDBDB;BDBxBWBDBDBDBBDBWDB;BDB$DB;BBDBxBWBBmDB;Bh1DDBDÀT1128DDBDÀT1129DDBDÀT1130DDBDÀG7068DBDBiBBBDB:BDBDBDBDBDBBDBBFBnDBDBBDB;DBFBDBDBDBDBPDB;BDBDBDB;BDBkBDB;DDBDBBDBBFBBmDB;B1DDBDÀT1136DDBDÀT1137DDBDÀT1138DDBDÀG7069DBDBiBBBDB:BDBDBDBBDCBYTE-SIZEDB;BDB.DBBDBBDB\BDBDBBBDBDB.DBBDBbBDBeDASHFBBDBlInvalid byte size ~S in ~S type specifier.BDB;ÁUNSIGNED-BYTEBnDBDBDBDBDB;BDBDBBDB;BDB;DBDBDB;BDBxDBFBBDBDBDBBDBDB;BDBBDDBBDB$DB;BBDB;BDDBDB$DB;BBDBxDBFBDB-DpB(WARNDB;pB(BAD-TYPE-SPECIFICATIONpB lIMPOSSIBLElInvalid byte size ~S in ~S type specifier.BDB;BBBmDB;B1DDBDÀT1144DDBDÀT1145DDBDÀT1146DDBDÀG7070DBDBiB# B% B) DB:BDBDBDBBDBDB;BDB.DBBDBBDDBBB-DDBDB.DBBDBFDBxBDCBDBDBFDBxBDB-DÀFERRORlInvalid byte size ~S in ~S type specifier.BDB;SIGNED-BYTEBnDBDBDBDBDB;BDBDBBDB;BDB;BDBDB;BDBDBFDBxBDBxDBFDBxBBDBDBDBBDBDB;BDBBDDBBDBDB;BDBJBDDBDB$DB;BBDBDBFDBxBDBxDBFDBxBDB-DB DB;B B lInvalid byte size ~S in ~S type specifier.BDB;BD BBmDB;BD 1DDBDÀT1152DDBDÀT1153DDBDÀT1154DDBDÀG7071DBDBiB B B D B:BDBDBDBBDBDB;BDBDB;BDB.DÀFLOATPBDBBBBDB;BBDBDBDBBDBDB;BDBDB;BDB$DB;B BBBBDB;B)BCDB;DBBBBmDB;B1DDBDÀT1160DDBDÀT1161DDBDÀT1162DDBDÀG7072DBDBiB B B DB:BDBDBDBBDBDB;BDBDB;BDB.DpBBSHORT-FLOAT-PBDBBBBDB;BBDB;B)BDBDBDBBDBDB;BDBDB;BDB$DB;B BBBBBmDB;B1DDBDÀT1168DDBDÀT1169DDBDÀT1170DDBDÀG7073DBDBiB B B DB:BDBDBDBBDBDB;BDBDB;BDB.DpBBSINGLE-FLOATPBDBBBBDB;BBDB;B)BDBDBDBBDBDB;BDBDB;BDB$DB;pBBSINGLE-FLOAT-PBBBBBmDB;B1DDBDÀT1176DDBDÀT1177DDBDÀT1178DDBDÀG7074DBDBiB B B DB:BDBDBDBBDBDB;BDBDB;BDB.DpBBDOUBLE-FLOAT-PBDBBBBDB;BBDB;B)BDBDBDBBDBDB;BDBDB;BDB$DB;B BBBBBmDB;B1DDBDÀT1184DDBDÀT1185DDBDÀT1186DDBDÀG7075DBDBiB9 B; B? DB]DB;BBBmDB;B