hưs8p,LAMBDAF2Dp,lFASD-DATADpfcLoveҦ)F~FHDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFMACROFAKE-WITHOUT-INTERRUPTSDÀ&RESTBODYDplSIXR-BQ-LIST*DB;ÀPROGNBB1DB?ÃREALLY-FAKE-WITHOUT-INTERRUPTSDBABBDBFDB;BGBB1DÀDEFVARC*PACKAGE*pB ,UNBOUNDThe current package, the default for most package operations including INTERN.1DBRÁ*ALL-PACKAGES*NIL,List of all packages that exist.1DBRPKG-KEYWORD-PACKAGEBUThe Keyword package.1DBRPKG-USER-PACKAGEBUlThe default package for user code.1DBRCPKG-GLOBAL-PACKAGEBUlThe Lisp package.1DBRPKG-LISP-PACKAGEBUlThe Lisp package.1DBRCPKG-SYSTEM-PACKAGEBUlThe System package1DBRPKG-SYSTEM-INTERNALS-PACKAGEBUThe System-internals package1DBRPKG-COMPILER-PACKAGEBUThe Compiler package.1DBRPKG-AREABUThe area which packages are consed in.1DplNCPUT-GLOBAL-DECLARATIONDB;PACKAGEDB;DEFSTRUCT-DESCRIPTORDB;$BZpB+ART-QEFBZBZBZFBPKG-MAKE-PACKAGEBZBZDBDHASH-TABLE-CODESBZDCHASH-TABLE-SYMBOLSBZDNUMBER-OF-SLOTSBZDÁREFNAME-ALISTBZpB DOCUMENTATIONAlist of local nicknames, available in this package, for other packages.Each element is (STRING . PACKAGE)DNAMEBZBlOfficial name for this package (a string)DCNICKNAMESBZBList of nicknames for this package (strings)DUSE-LISTBZBlList of packages this one has done USE-PACKAGE toDUSED-BY-LISTBZBList of packages that have done USE-PACKAGE to this packageDCSHADOWING-SYMBOLSBZBList of symbols explicitly shadowed in this packageDCNUMBER-OF-SYMBOLSBZBlCurrent number of symbols in this packageDÂMAX-NUMBER-OF-SYMBOLSBZB,Threshold for rehashing. This is the specified size of the package arrayDÀPLISTBZB,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-FUNCTIONBZBlFunction 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ÀLAMBDADBDLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;DBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSBDÀVALUESBDpB+LISTBDBBDLETDDFIND-IF-NOT6105BDBDpB+NTHBDpBDlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BF BBDBFDB;BBDCIFDpB+BOUNDPDB;BBBZB1DpB~,DEF-DECLARATIONBÀSUBSTDB;DpB~NAMED-LAMBDABDBDÁSTRUCTURE-REFDB;BF B1DBBDBDB;DCPKG-PLISTBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6104BDBDBBDBBDB;DB;BF BBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BF B1DBBDBDB;DCPKG-MAX-NUMBER-OF-SYMBOLSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6103BDBDBBDBBDB;DB;BF BB<DBFDB;B3BBB31DBB3BDB;DBB3DBDBDB;BF B1DBBDBDB;DÂPKG-NUMBER-OF-SYMBOLSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6102BDBDBBDBBDB;DB;BF BBaDBFDB;BXBBBX1DBBXBDB;DBBXDBDBDB;BF B1DBBDBDB;DÂPKG-SHADOWING-SYMBOLSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6101BDBDBBDBBDB;DB;BF BBDBFDB;B}BBB}1DBB}BDB;DBB}DBDBDB;BF B1DBBDBDB;DPKG-USED-BY-LISTBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6100BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DPKG-USE-LISTBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6099BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DÁPKG-NICKNAMESBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6098BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DPKG-NAMEBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6097BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DCPKG-REFNAME-ALISTBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6096BDBDBBDBBDB;DB;BFBB?DBFDB;B6BBB61DBB6BDB;DBB6DBDBDB;BFB1DBBDBDB;DPKG-NUMBER-OF-SLOTSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6095BDBDBBDBBDB;DB;BFBBdDBFDB;B[BBB[1DBB[BDB;DBB[DBDBDB;BFB1DBBDBDB;DÂPKG-HASH-TABLE-SYMBOLSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6094BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DPKG-HASH-TABLE-CODESBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT6093BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBDB;BDB;ÁTYPE-EXPANDERDBDBBZDB;DCSATISFIESCPACKAGE-PB1DBBBDB;DBBDÀTHINGDTYPEP-STRUCTUREBDB;BB1DBÁ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;DBBDBBDBDBBB1DBPKG-STRING-HASH-CODEBDB;DBB%DÀSTRINGDBDÁ%SXHASH-STRINGB&FDBF1DBÁPKG-DECLARED-PBDB;DBB4DBDGETFDBBDB;CDECLARED-P1DBPKG-READ-LOCK-PBDB;DBB?DBDB6DBBDB;CREAD-LOCK1DB?PKG-BINDDBÀ&BODYBB,Executes BODY with PKG as current package. PKG is a package or the name of one.DBDÀEQUALBUSERDBFDB;BDB;DDBSBbBBDBFDB;BDBDBDB;BSDBDB;PKG-FIND-PACKAGEBBB1DB?CDO-SYMBOLSDDVARIABLEBRESULT-FORMBJBBlExecutes 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ÀLIMITDBgDPKG-LIST-VARDBgDPKG-VARDBgDCFIRST-VARDBgDCPDBgDBDB;DO*DBDBBvDBDB;FIND-PACKAGEBDBBmDBDB;CONSBvDBDB;BBvDBDB;CDRBmDBFBsDB;DB-BZDBDBDB;NULLBmBbDBDB;ÀBLOCKB-DBDB;BzDBDBBfDBDB;C1+BfDBBpDBDB;CARBmDBBjDBDB;B[BpDBDBDB;C=BfBjDBDB;WHENDBDB;ANDDBDB;BDBDB;BBpBfDBDB;CORBsDBDB;BDBDB;BBpBfDBFDB;BDBDBBaDBDB;BBpBfBB1DB?DO-LOCAL-SYMBOLSDDBaBBbBBJBB,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.DBDDBfDBgDBjDBgDBpDBgDBDB;BzDBDBBfDBDB;BBfDBBpDBDB;B|BDBBjDBDB;B[BpDBDBDB;BBfBjBbDBDB;BDBDB;BDBDB;BBpBfDBFDB;BDBDBBaDBDB;BBpBfDBDBBDB;BDBDB;BBpBfBB1DB?DO-EXTERNAL-SYMBOLSDDBaBBbBJBBExecutes 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.DBDDBfDBgDBjDBgDBmDBgDBpDBgDCONCE-ONLYDBDBDB;CDODBDBBmDBDB;BBDBDB;BBDBDB;BBmDBDBDB;BBmBbDBDB;BB-DBDB;BzDBDBBfDBDB;BBfDBBpDBDB;BBmDBBjDBDB;B[BpDBDBDB;BBfBjDBDB;BDBDB;BDBDB;BDBDB;BBpBfDBDB;BDBDB;BBpBfDBFDB;BDBDBBaDBDB;BBpBfBB1DB?ÁDO-ALL-SYMBOLSDDBaBbBJBBExecutes 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.DBDDBfDBgDBjDBgDBmDBgDBpDBgDBDB;BDBDBBmDB;BYDBDB;BBmDBDBDB;BBmBbDBDB;BB-DBDB;BzDBDBBfDBDB;BBfDBBpDBDB;BBmDBBjDBDB;B[BpDBDBDB;BBfBjDBDB;BDBDB;BDBDB;BBpBfDBFDB;BDBDBBaDBDB;BBpBfBB1DB?CDO-LOCAL-EXTERNAL-SYMBOLSDDBaBBbBJBBExecutes 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.DBDDBfDBgDBjDBgDBpDBgDBDB;BzDBDBBfDBDB;BBfDBBpDBDB;B|BDBBjDBDB;B[BpDBDBDB;BBfBjBbDBDB;BDBDB;BDBDB;BDBDB;BBpBfDBDB;BDBDB;BBpBfDBFDB;BDBDBBaDBDB;BBpBfBB1DBRÁ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