hưs8p,LAMBDAF2Dp,lFASD-DATADJIMMaurice Ravelq@F~FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGE,SYSTEM-INTERNALSpB lREADTABLElstandard Zetalisp1DpB(,LOAD-TO-COMPILATION-ENVIRONMENT-INTERNALDÀQUOTEpB(FALCONDB<DgDCARRAY-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<CDRDpLISPlMAKE-ARRAYBBD BPBKOPTIONS&KEYELEMENT-TYPEBXINITIAL-CONTENTSCADJUSTABLEFILL-POINTERDISPLACED-TOÂDISPLACED-INDEX-OFFSETDCMAKE-ARRAYBBDBPBKBDCALL-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<CFDEFINEDPDDWIMIFY-PACKAGEBBDBBQDBDB<BDBBDÀMACRONAMED-LAMBDADDBBBDFUNCTION-PARENTBCDEFINE-SETF-METHODDBDARGLISTSYMBQDBRNILDBBDB\BQB]DDECLAREB]DÀPROGNBDANDDCORDCDBB\FDMACRO-REPORT-ARGS-ERRORB\FFDLET*DÁTYPE-SUPPLIEDDBDCARDBB\DBRDCONDDDBDBB\DSETQB B-DB DBDBB\DB-BDBDBBBDBDBBBQDBRBBDB DDSINGLE-TEMPVARSDSETF-MAKE-N-TEMPVARSFDSTOREVARDÀGENSYMDTEMPVARSB!DÀVALUESB*DB|BBRDB|B&DLETDDBeB&DBDNTHB*DBRDB2FB*DWHENDNULLB DBBRDB<DB<FUNCTIONDCXR-BQ-LISTDB<CSET-DOCUMENTATIONBBRBeDXR-BQ-LIST*DB<BB*BBDBBQDDOC-TYPEDB<B=DCARRAY-IN-BOUNDS-PBBDBCBKBLDÂFUNCTION-SPEC-PUTPROPBBDBBePROPERTYDÅSIMPLE-MAKE-ARRAY-1D-STRING-WITH-FILL-POINTERBBDINDEX-LENGTHDSETPROP-IN-AREABBDSYMBOL-OR-PLISTBXBeBVDMAKE-LIST-WITH-CONSBBDBXBVBDFDEFINEBBDBCDEFINITIONBQÁCAREFULLY-FLAGÁNO-QUERY-FLAGDCADJUSTABLE-ARRAY-PBBDBCDC%32-BIT-DIFFERENCEBBDBBDÃINTERNAL-FUNCTION-SPEC-HANDLERBBDB=BBQARG1ARG2DTIMEBBDBQFORMDpBTIMEBBDB\BQB]DÂFUNCTION-SPEC-REMPROPBBDBBXDCFILL-ARRAYBBDBCSIZEBeDREMPROPBBDB`BXDCMAP-OVER-LOOKALIKE-SYMBOLSBBDÀPNAMEÀIGNOREB=BKADDITIONAL-ARGSDÂFUNCTION-SPEC-DWIMIFYBBDNEW-SPECBBDÃFUNCTION-SPEC-DEFAULT-HANDLERBBDB=BBQBsBtDCARRAY-ELEMENTS-FOR-GIVEN-DATA-SIZEBBDB\BQB]DSETPROPBBDB`BXBeDBBBDB=BBQBsBtDÀPLISTBBDBGDFUNCTION-SPEC-PUSH-PROPERTYBBDBBeBXDÂPROPERTY-LIST-HANDLERBBDCOPBBKBDPUTPROPBBDB`BeBXDARRAY-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-OFFSETBBDBCDFDEFINITIONBBDBDCMAYBE-CHANGE-FEF-TYPE-ALLBBBDBCBBDBBOBeDBBBDBKBDMAPATOMS-NR-SYMBBDB=DÁTIME-IN-60THSBBBDÂARRAY-BOXED-DATA-SIZEBBDB\BQB]DGETBBDB`BXBQDEFAULTDCGET-MACRO-ARG-DESC-POINTERBBDBmDSTORE-KEYWORD-ARG-VALUESBBDFIRST-KEYARG-POINTERBKEYKEYSALLOW-OTHER-KEYSBQÀKLUDGEDDBBBBDBDÁ%32-BIT-LESSPBBDBBDSET-FILL-POINTERBBDBCBeDADJUST-ARRAYBBD BCÁNEW-DIMENSIONSBKKEYARGSBBBXBBBBDSIMPLE-MAKE-ARRAY-1D-Q-SHORTBBDCDIMENSIONDSETPLISTBBDBCLDDBDEFPROPÂSPECIAL-FORM-BOOTSTRAPBBDÀform10DDELQBBDITEMB|BQDÀTIMESFDLOCATION-BOUNDPBBDBDÀSXHASHBBDBBQRANDOM-OBJECT-ACTIONDDBBBBDBBBBDCARRAY-SIZE-IF-MADEBBDBPBKBDARRAY-TYPE-NULL-ELEMENTBBDBRDFMAKUNBOUNDBBDBDÂNAMED-STRUCTURE-INVOKEBBDCOPERATIONBqBKBDARRAY-COLUMN-MAJOR-INDEXBBDBCBKBLDFSETBBDBBgDFUNCALLBBDB}CFNÀ&EVALBKBDMAKE-SYMBOLBBDBBQPERMANENT-PDSTORE-KEYWORD-ARG-VALUES-INTERNAL-LAMBDABBDCPREV-SLOT-POINTERBBBBQBD%32-BIT-GREATERPBBDBBDÂVALIDATE-FUNCTION-SPECBBDBDCSTORE-CONDITIONALBBDBOLDNEWDPUTPROP-IN-AREABBDB`BeBXBVDÀAPPLYBBDB=BKBDÁ%MASK-32-BITSBBDB\BQB]DFUNCTION-SPEC-GET-1BBDBKBxDCFUNCTION-SPEC-GETBBDBBXBQBDB<D DB[BBDB[DBCARRAY-TYPEB\DBB[DB\BQB]DBDÀBLOCKB[B]DBaB[DBDBDBDBB\FDBDBB\FDBB\FFDB DDB[DB DBB\DB\DB DBDBB\DBDBB[B\DBBDB<B0DBBDBBDB<CELEMENTS-PER-WORDDBBDB<AREFDB<DB=ARRAY-ELEMENTS-PER-QB[DBBDB<CIFDB<DÀPLUSPBxDBGDB<CEILINGB\DB<DBxDBGDB<C*B\DB<DDC-BxDBBBDBDBMark FORM-NAME as an obsolete THING, 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.DpZWEIINDENTATIONFFDBCFORM-NAMEÀREASONBQDÀTHINGformDBBDB\BQB]DBDBaBB]DBaBDBDBDBDBB\FDBDBB\FDBB\FFDB DDBDB DBB\DBDB DBDBB\DBDBDDBDBDBB\BDB DBDBDBB\DB-BDBDBBDBFFDBBBBQDBBDBBDB<CEVAL-WHENDB<DEVALLOADCOMPILEDBGDB<BDBBDB<B<BDB<DDB<pB(,OBSOLETEDB<pB(STYLE-CHECKERDBGDB<BDBBDB<B<BDÀFORMATBis an obsolete ~A; ~ADBBformBDB<DDB<BDBNAMED-SUBSTBBDBzINVADB|BBDB|DBEvaluate FORM in the current lexical environment, returning the values it returns,while printing to *TRACE-OUTPUT* a message saying how long it took.DBBxDBB|DB\BQB]DBDBaB|B]DBaB|DBDBDBDBB\FDBDBB\FDBB\FFDB DDBxDB DBB\DBDBBDBBxDB0DDÀXTIMEDB'DÀOTIMEDB'DÀNTIMEDB'DB-DB'DBBDB<B0DBBDBGBDB<DDpTIME,MICROSECOND-TIMEDBGBDB<DDB!DBBB-DBBDB<MULTIPLE-VALUE-LISTBxDBGBDB<DDB!DBBDB<BDB<Á*TRACE-OUTPUT*DB<l~&Evaluation of ~S took ~:D microseconds.DBBDB<B<BxDBBDB<BDBBDB<C+BBBBDBBDB<VALUES-LISTB-DBBBBBBB]BMDBPBBDBPDBBDBBPDB\BQB]DBDBaBPB]DBaBPDBDBDBDBB\FDBDBB\FDBB\FFDB DDBDB DBB\DBDBBDBBDB<ÀLOGANDDB<DC1-DC^FF BDBBBDBDBB[ÀWORDSDBBDB\BQB]DBDBaBB]DBaBDBDBDBDBB\FDBDBB\FDBB\FFDB DDB[DB DBB\DBnDB DBDBB\DBDBB[BnDBBDB<B0DBBDBBDB<BxDBBDB<BzDB<DB=B|B[DBBDB<BDB<DBBxDBGDB<BBnDB<DBxDBGDB<BBnDB<DDBBxDBBBDBDBB[B\DBBDB\BQB]DBDBaBB]DBaBDBDBDBDBB\FDBDBB\FDBB\FFDB DDB[DB DBB\DB\DB DBDBB\DBDBB[B\DBBDB<BB\DBBDB<BzDB<DB=ÃARRAY-BOXED-WORDS-PER-ELEMENTB[DBBBDBBDC%SXHASH-SUBSTRINGBBB