hưs8p,LAMBDAF2Dp,lFASD-DATADJIMMaurice Ravel,LF~FDp,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-NOT1709BDBDpB+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-NOT1708BDBDBBDBBDB;DB;BF BBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BF B1DBBDBDB;DCPKG-MAX-NUMBER-OF-SYMBOLSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1707BDBDBBDBBDB;DB;BF BB<DBFDB;B3BBB31DBB3BDB;DBB3DBDBDB;BF B1DBBDBDB;DÂPKG-NUMBER-OF-SYMBOLSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1706BDBDBBDBBDB;DB;BF BBaDBFDB;BXBBBX1DBBXBDB;DBBXDBDBDB;BF B1DBBDBDB;DÂPKG-SHADOWING-SYMBOLSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1705BDBDBBDBBDB;DB;BF BBDBFDB;B}BBB}1DBB}BDB;DBB}DBDBDB;BF B1DBBDBDB;DPKG-USED-BY-LISTBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1704BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DPKG-USE-LISTBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1703BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DÁPKG-NICKNAMESBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1702BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DPKG-NAMEBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1701BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DCPKG-REFNAME-ALISTBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1700BDBDBBDBBDB;DB;BFBB?DBFDB;B6BBB61DBB6BDB;DBB6DBDBDB;BFB1DBBDBDB;DPKG-NUMBER-OF-SLOTSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1699BDBDBBDBBDB;DB;BFBBdDBFDB;B[BBB[1DBB[BDB;DBB[DBDBDB;BFB1DBBDBDB;DÂPKG-HASH-TABLE-SYMBOLSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1698BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBBDBDB;DPKG-HASH-TABLE-CODESBDBDBDDBDBBDB;DBBDBBDBBDBBBDBDDFIND-IF-NOT1697BDBDBBDBBDB;DB;BFBBDBFDB;BBBB1DBBBDB;DBBDBDBDB;BFB1DBDB;BDB;ÁTYPE-EXPANDERDBDBBZDB;DCSATISFIESCPACKAGE-PB1DBBBDB;DBBDÀTHINGDTYPEP-STRUCTUREBDB;BB1DBÁPKG-SLOT-CODEBDB;DBBDPKGSLOTNUMDÀSVREFDBBB1DBCPKG-CODE-HASH-CODEBDB;DBBDCODEDp,HARDWARELDBBDBYTEF1DBPKG-CODE-EXTERNAL-PBDB;DBBDBDÀMINUSPB1DBPKG-CODE-VALID-PBDB;DBBDBDNUMBERPB1DBÁPKG-MAKE-CODEBDB;DBB DÁEXTERNAL-FLAGCHASH-CODEDpBDPBB p,VINCULUMl%%FIXNUM-SIGN-BITDBB 1DBPKG-SLOT-SYMBOLBDB;DBBDBBDBDBBB1DBPKG-STRING-HASH-CODEBDB;DBB DÀSTRINGDBDÁ%SXHASH-STRINGB!FDBF1DBÁPKG-DECLARED-PBDB;DBB/DBDGETFDBBDB;CDECLARED-P1DBPKG-READ-LOCK-PBDB;DBB:DBDB1DBBDB;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-FORMBEBBlExecutes 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ÀLIMITDBbDPKG-LIST-VARDBbDPKG-VARDBbDCFIRST-VARDBbDCPDBbDBDB;DO*DBDBBqDBDB;FIND-PACKAGEBDBBhDBDB;CONSBqDBDB;BBqDBDB;CDRBhDBFBnDB;DB-BZDBDBDB;NULLBhB]DBDB;ÀBLOCKB-DBDB;BuDBDBBaDBDB;C1+BaDBBkDBDB;CARBhDBBeDBDB;B[BkDBDBDB;C=BaBeDBDB;WHENDBDB;ANDDBDB;BDBDB;BBkBaDBDB;CORBnDBDB;BDBDB;BBkBaDBFDB;BDBDBB\DBDB;BBkBaBB1DB?DO-LOCAL-SYMBOLSDDB\BB]BBEBB,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.DBDDBaDBbDBeDBbDBkDBbDBDB;BuDBDBBaDBDB;BBaDBBkDBDB;BwBDBBeDBDB;B[BkDBDBDB;BBaBeB]DBDB;BDBDB;BDBDB;BBkBaDBFDB;BDBDBB\DBDB;BBkBaDBDBBDB;BDBDB;BBkBaBB1DB?DO-EXTERNAL-SYMBOLSDDB\BB]BEBBExecutes 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.DBDDBaDBbDBeDBbDBhDBbDBkDBbDCONCE-ONLYDBDBDB;CDODBDBBhDBDB;B{BDBDB;BBDBDB;BBhDBDBDB;BBhB]DBDB;BB-DBDB;BuDBDBBaDBDB;BBaDBBkDBDB;BBhDBBeDBDB;B[BkDBDBDB;BBaBeDBDB;BDBDB;BDBDB;BDBDB;BBkBaDBDB;BDBDB;BBkBaDBFDB;BDBDBB\DBDB;BBkBaBB1DB?ÁDO-ALL-SYMBOLSDDB\B]BEBBExecutes 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.DBDDBaDBbDBeDBbDBhDBbDBkDBbDBDB;BDBDBBhDB;BYDBDB;BBhDBDBDB;BBhB]DBDB;BB-DBDB;BuDBDBBaDBDB;BBaDBBkDBDB;BBhDBBeDBDB;B[BkDBDBDB;BBaBeDBDB;BDBDB;BDBDB;BBkBaDBFDB;BDBDBB\DBDB;BBkBaBB1DB?CDO-LOCAL-EXTERNAL-SYMBOLSDDB\BB]BEBBExecutes 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.DBDDBaDBbDBeDBbDBkDBbDBDB;BuDBDBBaDBDB;BBaDBBkDBDB;BwBDBBeDBDB;B[BkDBDBDB;BBaBeB]DBDB;BDBDB;BDBDB;BDBDB;BBkBaDBDB;BDBDB;BBkBaDBFDB;BDBDBB\DBDB;BBkBaBB1DBRÁ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 eFhFlFo1DBRÁ*DEBUG-INTERN*BZ1DBRCPKG-REHASH-SYMBOLSBZ