hưs8p,LAMBDAF2Dp,lFASD-DATADJIMMaurice RavelF~FlDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGE,SYSTEM-INTERNALSpB lREADTABLElstandard Zetalisp1DpB(,LOAD-TO-COMPILATION-ENVIRONMENT-INTERNALDÀQUOTEpB(FALCONDB<DiDCARRAY-ELEMENT-TYPEpB(,COMPILER-ARGLISTDÀARRAYDÁRETURN-STORAGEBBDÀOBJECTDÂARRAY-ROW-MAJOR-INDEXBBDBCÀ&RESTCSUBSCRIPTSDCSIMPLE-MAKE-ARRAYBBDCDIMENSIONSC&OPTIONALDTYPEDB<ÀART-QAREAÁLEADER-LENGTHINITIAL-ELEMENTDÂARRAY-TOTAL-DATA-SIZEBBDC*MACROARG*BQC*MACROENVIRONMENT*DARRAY-CANONICALIZE-TYPEBBDBRDARRAY-INITIALIZEBBDÁORIGINAL-ARRAYÀVALUEBQDÀSTARTENDDÂMAYBE-CHANGE-FEF-TYPEBBDFEF-POINTERDÁWIPE-STRUCTUREBBDCSTRUCTUREDFOLLOW-STRUCTURE-FORWARDINGBBDBGDÃFUNCTION-SPEC-PUSH-PROPERTY-1BBDBeBKKEYDÀEVERYBBDLIST&FUNCTIONALPREDBQDSTEPDB<CDRDCMAKE-ARRAYBBDBPBKOPTIONSDCALL-NAMED-STRUCTUREBBDBKARGSD%32-BIT-PLUSBBDCXCYDCFDEFINEDP-AND-FDEFINITIONBBDÁFUNCTION-SPECDÁ%SXHASH-STRINGBBDÀSTRINGÁCHARACTER-MASKDCMAKUNBOUNDBBDÀSYMBOLDCMAKE-LISTBBDÀLENGTHBKBDDpB ,INTERNALÃPROPERTY-FUNCTION-SPEC-HANDLERBBDCNEW-SYMBOLSPECÁORIGINAL-SPECDWIMIFY-INFODCADJUST-ARRAY-SIZEBBDBCNEW-INDEX-LENGTHDLOCATION-MAKUNBOUNDBBDLOCATIONBQÁVARIABLE-NAMEDSOMEBBDB|B}B~BQDBDB<BDÁMAKE-OBSOLETEBBDB\BQB]DÁPLIST-LOCATIONBBDCOBJECT-WITH-PROPERTY-LISTDÀVECTORBBDBKOBJECTSDDpB ,PROPERTYÁDOCUMENTATIONSETF-METHODBBDB\BQB]DDWIMIFY-ARG-PACKAGEBBDBARG-NAMEBQDDEFINITION-TYPEDB<CFDEFINEDPDGET-PROPERTIES-INTERNALBBDBCLIST-OF-PROPERTIESDDWIMIFY-PACKAGEBBDBBQDBDB<BDBBDÀMACRONAMED-LAMBDADDBBBDFUNCTION-PARENTBCDEFINE-SETF-METHODDBDARGLISTSYMBQDBRNILDBBDB\BQB]DDECLAREB]DÀPROGNBDANDDCORDCDBB\FDMACRO-REPORT-ARGS-ERRORB\FFDLET*DÁTYPE-SUPPLIEDDBDCARDBB\DBRDCONDDDBDBB\DSETQBB-DBDBDBB\DB-BDBDBBBDBDBBBQDBRBBDBDDSINGLE-TEMPVARSDSETF-MAKE-N-TEMPVARSFDSTOREVARDÀGENSYMDTEMPVARSBDÀVALUESB"DB|BBRDB|BDLETDDBeBDBDNTHB"DBRDB*FB"DWHENDNULLBDB BRDB<DB<FUNCTIONDCXR-BQ-LISTDB<CSET-DOCUMENTATIONBBRBeDXR-BQ-LIST*DB<BB"BBDBBQDDOC-TYPEDB<B5DCARRAY-IN-BOUNDS-PBBDBCBKBLDÂFUNCTION-SPEC-PUTPROPBBDBBePROPERTYDÅSIMPLE-MAKE-ARRAY-1D-STRING-WITH-FILL-POINTERBBDINDEX-LENGTHDSETPROP-IN-AREABBDSYMBOL-OR-PLISTBPBeBVDÃINTERNAL-FUNCTION-SPEC-HANDLERBBDB5BBQARG1ARG2DÁGET-PROPERTIESBBDÀPLACEBDMAKE-LIST-WITH-CONSBBDBXBVBDFDEFINEBBDBCDEFINITIONBQÁCAREFULLY-FLAGÁNO-QUERY-FLAGDCADJUSTABLE-ARRAY-PBBDBCDC%32-BIT-DIFFERENCEBBDBBDTIMEBBDBQFORMDpLISPTIMEBBDB\BQB]DÂFUNCTION-SPEC-REMPROPBBDBBPDCFILL-ARRAYBBDBCSIZEBeDREMPROPBBDBXBPDCMAP-OVER-LOOKALIKE-SYMBOLSBBDÀPNAMEÀIGNOREB5BKADDITIONAL-ARGSDÂFUNCTION-SPEC-DWIMIFYBBDNEW-SPECBBDÃFUNCTION-SPEC-DEFAULT-HANDLERBBDB5BBQB\B]DCARRAY-ELEMENTS-FOR-GIVEN-DATA-SIZEBBDB\BQB]DSETPROPBBDBXBPBeDBBBDB5BBQB\B]DCDWIMIFY-PACKAGE-2BBDBBBBQNO-RECURSIONDÀPLISTBBDBGDFUNCTION-SPEC-PUSH-PROPERTYBBDBBeBPDÂPROPERTY-LIST-HANDLERBBDCOPBBKBDPUTPROPBBDBXBeBPDARRAY-GROW-1BBDBCBPCINITIAL-ELEMENT-PBXDCDWIMIFY-PACKAGE-1BBDBBBDFUNCTION-SPEC-REMPROP-1BBDBKBxDÂINVALIDATE-ARRAY-CACHEBBBDÂDWIMIFY-PACKAGE-2-HELPBBDCSBBDRECORD-SOURCE-FILE-NAMEBBDBBQDBRDB<ÀDEFUNDNO-QUERYDCEQINHIBIT-FDEFINE-WARNINGSB-DCDWIMIFY-PACKAGE-0BBDBBDBBBDBDCCDR-LOCATION-FORCEBBDB|DCARRAY-DATA-OFFSETBBDBCDFDEFINITIONBBDBDB;BBDBBGBeDCMAYBE-CHANGE-FEF-TYPE-ALLBBBDMAPATOMS-NR-SYMBBDB5DBBBDBKBDGETFBBDBaBPBQDEFAULTDÁTIME-IN-60THSBBBDÂARRAY-BOXED-DATA-SIZEBBDB\BQB]DGETBBDBXBPBQBDCGET-MACRO-ARG-DESC-POINTERBBDBmDSTORE-KEYWORD-ARG-VALUESBBDFIRST-KEYARG-POINTERBKEYKEYSALLOW-OTHER-KEYSBQÀKLUDGEDDBBBBDBDÁ%32-BIT-LESSPBBDBBDSET-FILL-POINTERBBDBCBeDSIMPLE-MAKE-ARRAY-1D-Q-SHORTBBDCDIMENSIONDSETPLISTBBDBCLDDBDEFPROPÂSPECIAL-FORM-BOOTSTRAPBBDform181DDELQBBDITEMB|BQDÀTIMESFDLOCATION-BOUNDPBBDBDÀSXHASHBBDBBQRANDOM-OBJECT-ACTIONDDBBBBDBBBBDCARRAY-SIZE-IF-MADEBBDBPBKBDARRAY-TYPE-NULL-ELEMENTBBDBRDFMAKUNBOUNDBBDBDÂNAMED-STRUCTURE-INVOKEBBDCOPERATIONBqBKBDARRAY-COLUMN-MAJOR-INDEXBBDBCBKBLDFSETBBDBBhDFUNCALLBBDB}CFNÀ&EVALBKBDMAKE-SYMBOLBBDBBQPERMANENT-PDSTORE-KEYWORD-ARG-VALUES-INTERNAL-LAMBDABBDCPREV-SLOT-POINTERBBBBQBD%32-BIT-GREATERPBBDBBDÂVALIDATE-FUNCTION-SPECBBDBDCSTORE-CONDITIONALBBDBOLDNEWDPUTPROP-IN-AREABBDBXBeBPBVDÀAPPLYBBDB5BKBDÁ%MASK-32-BITSBBDB\BQB]DFUNCTION-SPEC-GET-1BBDBKBxDCFUNCTION-SPEC-GETBBDBBPBQBDB<D DB[BBDB[DBCARRAY-TYPEBTDBB[DB\BQB]DBDÀBLOCKB[B]DB`B[DBDBDBDBB\FDBDBB\FDBB\FFDBDDBZDBDBB\DBTDBDBDBB\DBDBBZBTDB:DB<B(DB:DB:DB<CELEMENTS-PER-WORDDB:DB<AREFDB<DB5ARRAY-ELEMENTS-PER-QBZDB:DB<CIFDB<DÀPLUSPBwDB?DB<CEILINGBTDB<DBwDB?DB<C*BTDB<DDC-BwDBBBDBDBMark FUNCTION as obsolete, with string REASON as the reason.REASON should be a clause starting with a non-capitalized word.Uses of FUNCTION will draw warnings from the compiler.DpZWEIINDENTATIONFFDBB5ÀREASONDBBDB\BQB]DBDB`BB]DB`BDBDBDBDBB\FDBDBB\FDBB\FFDBDDB5DBDBB\DBDBDBDBB\DBDBBDBFFDBB5BDB:DB<BDB?DB<BDB:DB<B<B5DB<DDB<pB(,OBSOLETEDB<pB(STYLE-CHECKERDB?DB<BDB:DB<B<B5DB:DB<ÁSTRING-APPENDDB<,is an obsolete DB?DB<BDB?DB:DB<ÁSPECIAL-FORM-PDB:DB<B<B5DB<Dspecial formDB?DB:DB<ÁMACRO-FUNCTIONDB:DB<B<B5DB<DmacroDB?DB:DB<FBOUNDPDB:DB<B<B5DB<D,functionDB<DDB-formDB<l; BDB<DDB<BDBNAMED-SUBSTBBDByINVADByBBDByDBEvaluate FORM in the current lexical environment, returning the values it returns,while printing to *TRACE-OUTPUT* a message saying how long it took.DBBtDBByDB\BQB]DBDB`ByB]DB`ByDBDBDBDBB\FDBDBB\FDBB\FFDBDDBtDBDBB\DBDBBDBBtDB(DDÀXTIMEDBDÀOTIMEDBDÀNTIMEDBDB%DBDB:DB<B(DB:DB?BDB<DDpTIME,MICROSECOND-TIMEDB?B!DB<DDB-DB:B%DB:DB<MULTIPLE-VALUE-LISTBtDB?B$DB<DDB-DB:DB<ÀFORMATDB<Á*TRACE-OUTPUT*DB<l~&Evaluation of ~S took ~:D microseconds.DB:DB<B<BtDB:DB<BDB:DB<C+B$BB!B!DB:DB<VALUES-LISTB%DBBBBBBB]BEDBOBBDBODBBDBBODB\BQB]DBDB`BOB]DB`BODBDBDBDBB\FDBDBB\FDBB\FFDBDDBDBDBB\DBDBBDB:DB<ÀLOGANDDB<DC1-DC^FF BDBBBDBDBBZÀWORDSDBBDB\BQB]DBDB`BB]DB`BDBDBDBDBB\FDBDBB\FDBB\FFDBDDBZDBDBB\DB{DBDBDBB\DBDBBZB{DB:DB<B(DB:DB:DB<BwDB:DB<ByDB<DB5B{BZDB:DB<BDB<DBBwDB?DB<BB{DB<DBwDB?DB<BB{DB<DDBBwDBBBDBDBBZBTDBBDB\BQB]DBDB`BB]DB`BDBDBDBDBB\FDBDBB\FDBB\FFDBDDBZDBDBB\DBTDBDBDBB\DBDBBZBTDB:DB<BBTDB:DB<ByDB<DB5ÃARRAY-BOXED-WORDS-PER-ELEMENTBZDBBBDBBDC%SXHASH-SUBSTRINGBBB