hưs8p,LAMBDAF2Dp,lFASD-DATADJIMMaurice RavelF~FuDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGE,SYSTEM-INTERNALSpB lREADTABLElstandard Zetalisp1DpB(,LOAD-TO-COMPILATION-ENVIRONMENT-INTERNALDÀQUOTEpB(FALCONDB<DkDCARRAY-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-1BBDBeBKKEYDDpB ,INTERNALÃPROPERTY-FUNCTION-SPEC-HANDLERBBDCNEW-SYMBOLSPECÁORIGINAL-SPECDWIMIFY-INFODÀEVERYBBDLIST&FUNCTIONALPREDBQDSTEPDB<CDRDpLISPlMAKE-ARRAYBBD BPBKOPTIONS&KEYELEMENT-TYPEBXINITIAL-CONTENTSCADJUSTABLEFILL-POINTERDISPLACED-TOÂDISPLACED-INDEX-OFFSETDCALL-NAMED-STRUCTUREBBDBKARGSD%32-BIT-PLUSBBDCXCYDCFDEFINEDP-AND-FDEFINITIONBBDÁFUNCTION-SPECDÁ%SXHASH-STRINGBBDÀSTRINGÁCHARACTER-MASKDCMAKUNBOUNDBBDÀSYMBOLDCMAKE-ARRAYBBDBPBKBDCMAKE-LISTBBDÀLENGTHBKBDCADJUST-ARRAY-SIZEBBDBCNEW-INDEX-LENGTHDLOCATION-MAKUNBOUNDBBDLOCATIONBQÁVARIABLE-NAMEDSOMEBBDBBBBQDBDB<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-BDBDBBBDBDBBBQDBRBBDB DDSINGLE-TEMPVARSDSETF-MAKE-N-TEMPVARSFDSTOREVARDÀGENSYMDTEMPVARSB%DÀVALUESB.DBBBRDBB*DLETDDBeB*DBDNTHB.DBRDB6FB.DWHENDNULLBDBBRDB<DB<FUNCTIONDCXR-BQ-LISTDB<CSET-DOCUMENTATIONBBRBeDXR-BQ-LIST*DB<BB.BBDBBQDDOC-TYPEDB<BADCARRAY-IN-BOUNDS-PBBDBCBKBLDÂFUNCTION-SPEC-PUTPROPBBDBBePROPERTYDÅSIMPLE-MAKE-ARRAY-1D-STRING-WITH-FILL-POINTERBBDINDEX-LENGTHDSETPROP-IN-AREABBDSYMBOL-OR-PLISTB\BeBVDÃINTERNAL-FUNCTION-SPEC-HANDLERBBDBABBQARG1ARG2DÁGET-PROPERTIESBBDÀPLACEBDMAKE-LIST-WITH-CONSBBDBXBVBDFDEFINEBBDBCDEFINITIONBQÁCAREFULLY-FLAGÁNO-QUERY-FLAGDCADJUSTABLE-ARRAY-PBBDBCDC%32-BIT-DIFFERENCEBBDBBDTIMEBBDBQFORMDpBTIMEBBDB\BQB]DÂFUNCTION-SPEC-REMPROPBBDBB\DCFILL-ARRAYBBDBCSIZEBeDREMPROPBBDBdB\DCMAP-OVER-LOOKALIKE-SYMBOLSBBDÀPNAMEÀIGNOREBABKADDITIONAL-ARGSDÂFUNCTION-SPEC-DWIMIFYBBDNEW-SPECBBDÃFUNCTION-SPEC-DEFAULT-HANDLERBBDBABBQBhBiDCARRAY-ELEMENTS-FOR-GIVEN-DATA-SIZEBBDB\BQB]DSETPROPBBDBdB\BeDB}BBDBABBQBhBiDCDWIMIFY-PACKAGE-2BBDBBBBQNO-RECURSIONDÀPLISTBBDBGDFUNCTION-SPEC-PUSH-PROPERTYBBDBBeB\DÂPROPERTY-LIST-HANDLERBBDCOPBBKBDPUTPROPBBDBdBeB\DARRAY-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-FORCEBBDBDCARRAY-DATA-OFFSETBBDBCDFDEFINITIONBBDBDBGBBDBBSBeDCMAYBE-CHANGE-FEF-TYPE-ALLBBBDMAPATOMS-NR-SYMBBDBADBBBDBKBDGETFBBDBmB\BQDEFAULTDÁTIME-IN-60THSBBBDÂARRAY-BOXED-DATA-SIZEBBDB\BQB]DGETBBDBdB\BQBDCGET-MACRO-ARG-DESC-POINTERBBDBmDSTORE-KEYWORD-ARG-VALUESBBDFIRST-KEYARG-POINTERBKEYKEYSALLOW-OTHER-KEYSBQÀKLUDGEDDB|BBBDBDÁ%32-BIT-LESSPBBDBBDSET-FILL-POINTERBBDBCBeDADJUST-ARRAYBBD BCÁNEW-DIMENSIONSBKKEYARGSBBBXBBBBDSIMPLE-MAKE-ARRAY-1D-Q-SHORTBBDCDIMENSIONDSETPLISTBBDBCLDDBDEFPROPÂSPECIAL-FORM-BOOTSTRAPBBDform150DDELQBBDITEMBBQDÀTIMESFDLOCATION-BOUNDPBBDBDÀSXHASHBBDBBQRANDOM-OBJECT-ACTIONDDB|BBBDBBBBDCARRAY-SIZE-IF-MADEBBDBPBKBDARRAY-TYPE-NULL-ELEMENTBBDBRDFMAKUNBOUNDBBDBDÂNAMED-STRUCTURE-INVOKEBBDCOPERATIONBqBKBDARRAY-COLUMN-MAJOR-INDEXBBDBCBKBLDFSETBBDBBtDFUNCALLBBDBCFNÀ&EVALBKBDMAKE-SYMBOLBBDBBQPERMANENT-PDSTORE-KEYWORD-ARG-VALUES-INTERNAL-LAMBDABBDCPREV-SLOT-POINTERBBBBQBD%32-BIT-GREATERPBBDBBDÂVALIDATE-FUNCTION-SPECBBDBDCSTORE-CONDITIONALBBDBOLDNEWDPUTPROP-IN-AREABBDBdBeB\BVDÀAPPLYBBDBABKBDÁ%MASK-32-BITSBBDB\BQB]DFUNCTION-SPEC-GET-1BBDBKBxDCFUNCTION-SPEC-GETBBDBB\BQBDB<D DB[BBDB[DBCARRAY-TYPEB`DBB[DB\BQB]DBDÀBLOCKB[B]DBpB[DBDBDBDBB\FDBDBB\FDBB\FFDB DDBjDBDBB\DB`DBDBDBB\DBDBBjB`DBFDB<B4DBFDBFDB<CELEMENTS-PER-WORDDBFDB<AREFDB<DBAARRAY-ELEMENTS-PER-QBjDBFDB<CIFDB<DÀPLUSPBDBKDB<CEILINGB`DB<DBDBKDB<C*B`DB<DDC-BDBBBDBDBMark 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.DpZWEIINDENTATIONFFDBBAÀREASONDBBDB\BQB]DBDBpBB]DBpBDBDBDBDBB\FDBDBB\FDBB\FFDB DDBADBDBB\DBDBDBDBB\DBDBBDBFFDBBABDBFDB<BDBKDB<BDBFDB<B<BADB<DDB<pB(,OBSOLETEDB<pB(STYLE-CHECKERDBKDB<BDBFDB<B<BADBFDB<ÁSTRING-APPENDDB<,is an obsolete DBKDB<BDBKDBFDB<ÁSPECIAL-FORM-PDBFDB<B<BADB<Dspecial formDBKDBFDB<ÁMACRO-FUNCTIONDBFDB<B<BADB<DmacroDBKDBFDB<FBOUNDPDBFDB<B<BADB<D,functionDB<DDB-formDB<l; BDB<DDB<BDBNAMED-SUBSTBBDBINVADBBBDBDBEvaluate FORM in the current lexical environment, returning the values it returns,while printing to *TRACE-OUTPUT* a message saying how long it took.DBBDBBDB\BQB]DBDBpBB]DBpBDBDBDBDBB\FDBDBB\FDBB\FFDB DDBDBDBB\DBDBBDBBDB4DDÀXTIMEDB+DÀOTIMEDB+DÀNTIMEDB+DB1DB+DBFDB<B4DBFDBKB.DB<DDpTIME,MICROSECOND-TIMEDBKB1DB<DDB=DBFB1DBFDB<MULTIPLE-VALUE-LISTBDBKB4DB<DDB=DBFDB<ÀFORMATDB<Á*TRACE-OUTPUT*DB<l~&Evaluation of ~S took ~:D microseconds.DBFDB<B<BDBFDB<BDBFDB<C+B4B.B1B1DBFDB<VALUES-LISTB1DBBBBBBB]BQDB_BBDB_DBBDBB_DB\BQB]DBDBpB_B]DBpB_DBDBDBDBB\FDBDBB\FDBB\FFDB DDBDBDBB\DBDBBDBFDB<ÀLOGANDDB<DC1-DC^FF BDBBBDBDBBjÀWORDSDBBDB\BQB]DBDBpBB]DBpBDBDBDBDBB\FDBDBB\FDBB\FFDB DDBjDBDBB\DBDBDBDBB\DBDBBjBDBFDB<B4DBFDBFDB<BDBFDB<BDB<DBABBjDBFDB<BDB<DBBDBKDB<BBDB<DBDBKDB<BBDB<DDBBDBBBDBDBBjB`DBBDB\BQB]DBDBpBB]DBpBDBDBDBDBB\FDBDBB\FDBB\FFDB DDBjDBDBB\DB`DBDBDBB\DBDBBjB`DBFDB<BB`DBFDB<BDB<DBAÃARRAY-BOXED-WORDS-PER-ELEMENTBjDBBBDBBDC%SXHASH-SUBSTRINGBBB