hưs2Dp,lFASD-DATADerRicDeathEvF{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITELMI 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+LISTBnDBBDLETDDÀG2511BDBnDpB+NTHBDplSIlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BnF BnBDpBXR-BQ-LIST*DB;BBBB1DpBk,DEF-DECLARATIONBÀSUBSTDB;DpBkNAMED-LAMBDABDBnDÁSTRUCTURE-REFDB;BnF Bn1DBBDBDB;DCPKG-PLISTBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2510BDBnDBBDBBDB;DB;BnF BnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnF Bn1DBBDBDB;DCPKG-MAX-NUMBER-OF-SYMBOLSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2509BDBnDBBDBBDB;DB;BnF BnB&DBDB;BBBB1DBBBDB;DBBDBnDBDB;BnF Bn1DBBDBDB;DÂPKG-NUMBER-OF-SYMBOLSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2508BDBnDBBDBBDB;DB;BnF BnBKDBDB;BBBBBB1DBBBBDB;DBBBDBnDBDB;BnF Bn1DBBDBDB;DÂPKG-SHADOWING-SYMBOLSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2507BDBnDBBDBBDB;DB;BnF BnBpDBDB;BgBBBg1DBBgBDB;DBBgDBnDBDB;BnF Bn1DBBDBDB;DPKG-USED-BY-LISTBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2506BDBnDBBDBBDB;DB;BnFBnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBBDBDB;DPKG-USE-LISTBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2505BDBnDBBDBBDB;DB;BnFBnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBBDBDB;DÁPKG-NICKNAMESBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2504BDBnDBBDBBDB;DB;BnFBnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBBDBDB;DPKG-NAMEBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2503BDBnDBBDBBDB;DB;BnFBnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBBDBDB;DCPKG-REFNAME-ALISTBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2502BDBnDBBDBBDB;DB;BnFBnB)DBDB;B BBB 1DBB BDB;DBB DBnDBDB;BnFBn1DBBDBDB;DPKG-NUMBER-OF-SLOTSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2501BDBnDBBDBBDB;DB;BnFBnBNDBDB;BEBBBE1DBBEBDB;DBBEDBnDBDB;BnFBn1DBBDBDB;DÂPKG-HASH-TABLE-SYMBOLSBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2500BDBnDBBDBBDB;DB;BnFBnBsDBDB;BjBBBj1DBBjBDB;DBBjDBnDBDB;BnFBn1DBBDBDB;DPKG-HASH-TABLE-CODESBDBnDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDÀG2499BDBnDBBDBBDB;DB;BnFBnBDBDB;BBBB1DBBBDB;DBBDBnDBDB;BnFBn1DBmDB;BnDB;ÁTYPE-EXPANDERDBÂPACKAGE-TYPE-EXPANDERBn1DBCPACKAGE-PBDB;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;DBBDBBDBDBjBB1DBPKG-STRING-HASH-CODEBDB;DBB DÀSTRINGDBDÁ%SXHASH-STRINGB FDBF1DBÁPKG-DECLARED-PBDB;DBBDBDGETFDBBDB;CDECLARED-P1DBPKG-READ-LOCK-PBDB;DBB&DBDBDBBDB;CREAD-LOCK1DDEFMACROPKG-BINDDBÀ&BODYBODY,Executes BODY with PKG as current package. PKG is a package or the name of one.DCIFDÀEQUALBUSERDBDB;BDB;DDB@BOB3DBDB;BDBDBDB;B@DBDB;PKG-FIND-PACKAGEBB31DB0CDO-SYMBOLSDDVARIABLEBRESULT-FORMB2B3lExecutes 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ÀLIMITDBQDPKG-LIST-VARDBQDPKG-VARDBQDCFIRST-VARDBQDCPDBQDBDB;DO*DBDBB`DBDB;FIND-PACKAGEBDBBWDBDB;CONSB`DBDB;BB`DBDB;CDRBWDBB]DB;DB-BGDBDBDB;NULLBWBLDBDB;ÀBLOCKB-DBDB;BdDBDBBPDBDB;C1+BPDBBZDBDB;CARBWDBBTDBDB;BEBZDBDBDB;C=BPBTDBDB;WHENDBDB;ANDDBDB;BDBDB;BBZBPDBDB;CORB]DBDB;BDBDB;BBZBPDBDB;BDBDBBKDBDB;BBZBPB31DB0DO-LOCAL-SYMBOLSDDBKBBLBB2B3,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.DBDDBPDBQDBTDBQDBZDBQDBDB;BdDBDBBPDBDB;BBPDBBZDBDB;BfBDBBTDBDB;BEBZDBDBDB;BBPBTBLDBDB;BDBDB;BDBDB;BBZBPDBDB;BDBDBBKDBDB;BBZBPDBDBBDB;BDBDB;BBZBPB31DB0DO-EXTERNAL-SYMBOLSDDBKBBLB2B3Executes 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.DBDDBPDBQDBTDBQDBWDBQDBZDBQDCONCE-ONLYDBDBDB;CDODBDBBWDBDB;BjBDBDB;BBDBDB;BoBWDBDBDB;BwBWBLDBDB;B{B-DBDB;BdDBDBBPDBDB;BBPDBBZDBDB;BBWDBBTDBDB;BEBZDBDBDB;BBPBTDBDB;BDBDB;BDBDB;BDBDB;BBZBPDBDB;BDBDB;BBZBPDBDB;BDBDBBKDBDB;BBZBPB31DB0ÁDO-ALL-SYMBOLSDDBKBLB2B3Executes 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.DBDDBPDBQDBTDBQDBWDBQDBZDBQDBDB;BDBDBBWDB;BFDBDB;BoBWDBDBDB;BwBWBLDBDB;B{B-DBDB;BdDBDBBPDBDB;BBPDBBZDBDB;BBWDBBTDBDB;BEBZDBDBDB;BBPBTDBDB;BDBDB;BDBDB;BBZBPDBDB;BDBDBBKDBDB;BBZBPB31DB0CDO-LOCAL-EXTERNAL-SYMBOLSDDBKBBLB2B3Executes 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.DBDDBPDBQDBTDBQDBZDBQDBDB;BdDBDBBPDBDB;BBPDBBZDBDB;BfBDBBTDBDB;BEBZDBDBDB;BBPBTBLDBDB;BDBDB;BDBDB;BDBDB;BBZBPDBDB;BDBDB;BBZBPDBDB;BDBDBBKDBDB;BBZBPB31DB?Á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