hưs8p,LAMBDAF2Dp,lFASD-DATADlrgMaurice Ravel)6F~FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGESYMBOLpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;DÀBOUNDPFBOUNDPFMAKUNBOUNDGETÁGET-PROPERTIESGETFMAKE-SYMBOLCMAKUNBOUNDREMFREMPROPSETSYMBOL-FUNCTIONSYMBOL-NAMEÁSYMBOL-PACKAGESYMBOL-PLISTSYMBOL-VALUE1DDEFCONSTANTÁ*SYMBOL-SIZE*F1DBTÁ*SYMBOL-PNAME*1DBTÁ*SYMBOL-VALUE*F1DBTC*SYMBOL-FUNCTION*F1DBT*SYMBOL-PACKAGE*F1DBTÁ*SYMBOL-PLIST*F1DplNC,DEF-DECLARATION%SYMBOLPÀSUBSTDB;DpBmNAMED-LAMBDABpDÀOBJECTDoes not return T for the symbol 'NILDp,HARDWAREFIELD=p,GLOBAL-REGISTERS*T*Btp,VINCULUM%%DATA-TYPE1DBoSYMBOLPBqDB;DBsBDBtDpBwl32LOGBITPDpBwLDBBtBDpBw,UNBOXED-CONSTANTF 1DBo%WORD-BOUNDPBqDB;DBsBDWORDDNOTDpB}lDATA-TYPE=BDB1DBo%CELL-BOUNDPBqDB;DBsBDCELLDpBwVMA-START-READ-WILL-WRITE-VMA-UNBOXED-MD-BOXEDBDBDpBw,READ-MD1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBKÀLAMBDADÀ&RESTÀARGS46DLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;NILDpBREST-TEMPVARSDBBBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSDÀAPPENDBBDÀVALUESBDBDpB+LISTDpB+lCOPY-LISTBDBBDLETDDVALUE47BDBBDplSIXR-BQ-LIST*DB;SET-SYMBOL-FUNCTIONDpBXR-BQ-APPENDBDpBlXR-BQ-LISTBDBDB;BKBDCIFDpB+BOUNDPDB;BBBBK1DBBDBDB;D%SYMBOL-FUNCTIONBDBÀARGS48DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE49BDBBDBDB;%SET-SYMBOL-FUNCTIONDBBDBBDBDB;BBBB1DBBDBDB;DBMBDBÀARGS50DBDDBDBBDB;BDBDBBB'BDBBDBBDBDBDBB'BDBDDVALUE51BDB'BDBDB;CSET-SYMBOL-PACKAGEDBB'DBB3DBDB;BMBBBM1DBBDBDB;D%SYMBOL-PACKAGEBDBÀARGS52DBDDBDBBDB;BDBDBBBGBDBBDBBDBDBDBBGBDBDDVALUE53BDBGBDBDB;%SET-SYMBOL-PACKAGEDBBGDBBSDBDB;BFBBBF1DBBDBDB;DBNBDBÀARGS54DBDDBDBBDB;BDBDBBBfBDBBDBBDBDBDBBfBDBDDVALUE55BDBfBDBDB;SET-SYMBOL-PLISTDBBfDBBrDBDB;BNBBBN1DBBDBDB;DÁ%SYMBOL-PLISTBDBÀARGS56DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE57BDBBDBDB;C%SET-SYMBOL-PLISTDBBDBBDBDB;BBBB1DBBDBDB;DBCBDÀSYMBOLPROPERTYDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀVALUEBDBDpB+NTHBDBDBFBDBDB;PUTBBBDBDB;BCBBBC1DBBDBDB;D%GETBD%SYMBOLBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDBBDBDBBDBDBFBDBDB;%PUTBBBDBDB;BBBB1DDEFMACROBHDÀPLACEBDBDB;À%REMFBB