hưs8p,LAMBDAF2Dp,lFASD-DATADRWKLove F~F0Dp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀDEFVARC*PACKAGE*pB ,UNBOUNDThe current package, the default for most package operations including INTERN.1DB?Á*ALL-PACKAGES*NIL,List of all packages that exist.1DB?PKG-KEYWORD-PACKAGEBBThe Keyword package.1DB?PKG-USER-PACKAGEBBlThe default package for user code.1DB?CPKG-GLOBAL-PACKAGEBBlThe Lisp package.1DB?PKG-LISP-PACKAGEBBlThe Lisp package.1DB?CPKG-SYSTEM-PACKAGEBBlThe System package1DB?PKG-SYSTEM-INTERNALS-PACKAGEBBThe System-internals package1DB?PKG-COMPILER-PACKAGEBBThe Compiler package.1DB?PKG-AREABBThe area which packages are consed in.1DplNCPUT-GLOBAL-DECLARATIONDB;PACKAGEDB;DEFSTRUCT-DESCRIPTORDB;$BGpB+ART-QEFBGBGBGFBnPKG-MAKE-PACKAGEBGBGDBnDHASH-TABLE-CODESBGDCHASH-TABLE-SYMBOLSBGDNUMBER-OF-SLOTSBGDÁREFNAME-ALISTBGpB DOCUMENTATIONAlist of local nicknames, available in this package, for other packages.Each element is (STRING . PACKAGE)DNAMEBGBlOfficial name for this package (a string)DCNICKNAMESBGBList of nicknames for this package (strings)DUSE-LISTBGBlList of packages this one has done USE-PACKAGE toDUSED-BY-LISTBGBList of packages that have done USE-PACKAGE to this packageDCSHADOWING-SYMBOLSBGBList of symbols explicitly shadowed in this packageDCNUMBER-OF-SYMBOLSBGBlCurrent number of symbols in this packageDÂMAX-NUMBER-OF-SYMBOLSBGB,Threshold for rehashing. This is the specified size of the package arrayDÀPLISTBGB,Random properties asscoiated with this package.Properties used include:SI:READ-LOCK (non-NIL means that READ will not attempt to intern new symbols in this package):SOURCE-FILE-NAMEDNEW-SYMBOL-FUNCTIONBGBlFunction called to store a new symbol in this package.NIL means PKG-INTERN-STORE is used.1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DPKG-NEW-SYMBOL-FUNCTIONÀLAMBDADBnDLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;DBnDpB,STOREVARDpB+GENSYMDpB,TEMPVARSBDÀVALUESBDpB+LISTBnDBBDLETDDFIND-IF-NOT2790BDBnDpB+NTHBDplSIlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BnF BnBDpBXR-BQ-LIST*DB;BBDCIFDpB+BOUNDPDB;BBBGB1DpBk,DEF-DECLARATIONBÀSUBSTDB;DpBkNAMED-LAMBDABDBnDÁSTRUCTURE-REFDB;BnF Bn1DBBDBDB;DCPKG-PLISTBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2789BDBnDBBDBBDB;DB;BnF BnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnF Bn1DBBDBDB;DCPKG-MAX-NUMBER-OF-SYMBOLSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2788BDBnDBBDBBDB;DB;BnF BnB,DBDB;B#BBB#1DBB#BDB;DBB#DBnDBDB;BnF Bn1DBBDBDB;DÂPKG-NUMBER-OF-SYMBOLSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2787BDBnDBBDBBDB;DB;BnF BnBQDBDB;BHBBBH1DBBHBDB;DBBHDBnDBDB;BnF Bn1DBBDBDB;DÂPKG-SHADOWING-SYMBOLSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2786BDBnDBBDBBDB;DB;BnF BnBvDBDB;BmBBBm1DBBmBDB;DBBmDBnDBDB;BnF Bn1DBBDBDB;DPKG-USED-BY-LISTBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2785BDBnDBBDBBDB;DB;BnFBnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBBDBDB;DPKG-USE-LISTBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2784BDBnDBBDBBDB;DB;BnFBnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBBDBDB;DÁPKG-NICKNAMESBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2783BDBnDBBDBBDB;DB;BnFBnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBBDBDB;DPKG-NAMEBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2782BDBnDBBDBBDB;DB;BnFBnB DBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBBDBDB;DCPKG-REFNAME-ALISTBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2781BDBnDBBDBBDB;DB;BnFBnB/DBDB;B&BBB&1DBB&BDB;DBB&DBnDBDB;BnFBn1DBBDBDB;DPKG-NUMBER-OF-SLOTSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2780BDBnDBBDBBDB;DB;BnFBnBTDBDB;BKBBBK1DBBKBDB;DBBKDBnDBDB;BnFBn1DBBDBDB;DÂPKG-HASH-TABLE-SYMBOLSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2779BDBnDBBDBBDB;DB;BnFBnByDBDB;BpBBBp1DBBpBDB;DBBpDBnDBDB;BnFBn1DBBDBDB;DPKG-HASH-TABLE-CODESBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDFIND-IF-NOT2778BDBnDBBDBBDB;DB;BnFBnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBmDB;BnDB;ÁTYPE-EXPANDERDBDBBGDB;DCSATISFIESCPACKAGE-PBn1DBBBDB;DBBDÀTHINGDTYPEP-STRUCTUREBDB;BnBn1DBÁPKG-SLOT-CODEBDB;DBBDPKGSLOTNUMDÀSVREFDBBB1DBCPKG-CODE-HASH-CODEBDB;DBBDCODEDp,HARDWARELDBBDBYTEDC1-DCBYTE-SIZEp,VINCULUM%%FIXNUM-FIELD1DBPKG-CODE-EXTERNAL-PBDB;DBBDBDÀMINUSPB1DBPKG-CODE-VALID-PBDB;DBBDBDNUMBERPB1DBÁPKG-MAKE-CODEBDB;DBBDÁEXTERNAL-FLAGCHASH-CODEDpBDPBBpBl%%FIXNUM-SIGN-BITDBB1DBPKG-SLOT-SYMBOLBDB;DBB DBBDBDBpBB1DBPKG-STRING-HASH-CODEBDB;DBBDÀSTRINGDBDÁ%SXHASH-STRINGBFDBF1DBÁPKG-DECLARED-PBDB;DBB$DBDGETFDBBDB;CDECLARED-P1DBPKG-READ-LOCK-PBDB;DBB/DBDB&DBBDB;CREAD-LOCK1DDEFMACROPKG-BINDDBÀ&BODYBODY,Executes BODY with PKG as current package. PKG is a package or the name of one.DBDÀEQUALBUSERDBDB;BDB;DDB@BOB<DBDB;BDBDBDB;B@DBDB;PKG-FIND-PACKAGEBB<1DB9CDO-SYMBOLSDDVARIABLEBRESULT-FORMB;B<lExecutes BODY repeatedly with VARIABLE being each symbol available in package PKG.Finally RESULT-FORM is evaluated and its value(s) returned.All symbols inherited by PKG are included.DBDDÀINDEXDÀGENSYMDÀLIMITDBYDPKG-LIST-VARDBYDPKG-VARDBYDCFIRST-VARDBYDCPDBYDBDB;DO*DBDBBhDBDB;FIND-PACKAGEBDBB_DBDB;CONSBhDBDB;BBhDBDB;CDRB_DBBeDB;DB-BGDBDBDB;NULLB_BTDBDB;ÀBLOCKB-DBDB;BlDBDBBXDBDB;C1+BXDBBbDBDB;CARB_DBB\DBDB;BKBbDBDBDB;C=BXB\DBDB;WHENDBDB;ANDDBDB;BDBDB;BBbBXDBDB;CORBeDBDB;BDBDB;BBbBXDBDB;BDBDBBSDBDB;B BbBXB<1DB9DO-LOCAL-SYMBOLSDDBSBBTBB;B<,Executes BODY repeatedly with VARIABLE being each symbol present in package PKG.Finally RESULT-FORM is evaluated and its value(s) returned.Symbols inherited by PKG are not included.DBDDBXDBYDB\DBYDBbDBYDBDB;BlDBDBBXDBDB;BBXDBBbDBDB;BnBDBB\DBDB;BKBbDBDBDB;BBXB\BTDBDB;BDBDB;BDBDB;BBbBXDBDB;BDBDBBSDBDB;B BbBXDBDBBDB;BDBDB;BBbBXB<1DB9DO-EXTERNAL-SYMBOLSDDBSBBTB;B<Executes BODY repeatedly with VARIABLE being each external symbol available in package PKG.Finally RESULT-FORM is evaluated and its value(s) returned.Symbols inherited by PKG are included.DBDDBXDBYDB\DBYDB_DBYDBbDBYDCONCE-ONLYDBDBDB;CDODBDBB_DBDB;BrBDBDB;BBDBDB;BwB_DBDBDB;BB_BTDBDB;BB-DBDB;BlDBDBBXDBDB;BBXDBBbDBDB;BB_DBB\DBDB;BKBbDBDBDB;BBXB\DBDB;BDBDB;BDBDB;BDBDB;BBbBXDBDB;BDBDB;BBbBXDBDB;BDBDBBSDBDB;B BbBXB<1DB9ÁDO-ALL-SYMBOLSDDBSBTB;B<Executes BODY repeatedly with VARIABLE being each symbol present in any package.Finally RESULT-FORM is evaluated and its value(s) returned.A symbol may be processed more than once.DBDDBXDBYDB\DBYDB_DBYDBbDBYDBDB;BDBDBB_DB;BFDBDB;BwB_DBDBDB;BB_BTDBDB;BB-DBDB;BlDBDBBXDBDB;BBXDBBbDBDB;BB_DBB\DBDB;BKBbDBDBDB;BBXB\DBDB;BDBDB;BDBDB;BBbBXDBDB;BDBDBBSDBDB;B BbBXB<1DB9CDO-LOCAL-EXTERNAL-SYMBOLSDDBSBBTB;B<Executes BODY repeatedly with VARIABLE being each external symbol present in package PKG.Finally RESULT-FORM is evaluated and its value(s) returned.Internal symbols and inherited symbols are not included.DBDDBXDBYDB\DBYDBbDBYDBDB;BlDBDBBXDBDB;BBXDBBbDBDB;BnBDBB\DBDB;BKBbDBDBDB;BBXB\BTDBDB;BDBDB;BDBDB;BDBDB;BBbBXDBDB;BDBDB;BBbBXDBDB;BDBDBBSDBDB;B BbBXB<1DB?ÁPKG-GOOD-SIZESDB;DFCFIFSFaFqFFFFFFFFF FF%F3F=FQFgFFFFFF F#FAFeFFFFFF;F_FmFFFFF?FYFFFF'F]FFFFSFFFFaFFFAFFF Fk F F F F F? F F% Fs F FO F F5FF1FF?FFFSFCFFFFFFFFF F5FmFF F"F#F%F&F(FO*F ,F.FU0F2F4F7FA9F;F>F@FWCFFFHFKFNF RFUFXF[F^FaF eFhFlFo