hưs8p,LAMBDAF2Dp,lFASD-DATADwkfJack FlandersYF~FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGE,SYSTEM-INTERNALSpB lREADTABLElstandard Zetalisp1DpB(,LOAD-TO-COMPILATION-ENVIRONMENT-INTERNALDÀQUOTEpB(FALCONDB<DtDCARRAY-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<CFDEFINEDPDDB|BcBBNILDDWIMIFY-PACKAGEBBDBBQDBDB<BDBBDÀMACRONAMED-LAMBDADDBBBDFUNCTION-PARENTBCDEFINE-SETF-METHODDBDARGLISTSYMBQDBRBDBBDB\BQB]DDECLAREB]DÀPROGNBDANDDCORDCDBB\FDMACRO-REPORT-ARGS-ERRORB\FFDLET*DÁTYPE-SUPPLIEDDBDCARDBB\DBRDCONDDDBDBB\DSETQB B-DBDBDBB\DB-BDBDBBBDBDBBBQDBRBBDB DDSINGLE-TEMPVARSDSETF-MAKE-N-TEMPVARSFDSTOREVARDÀGENSYMDTEMPVARSB$DÀVALUESB-DBBBRDBB)DLETDDBeB)DBDNTHB-DBRDB5FB-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-PLISTB[BeBVDÃINTERNAL-FUNCTION-SPEC-HANDLERBBDB@BBQARG1ARG2DMAKE-LIST-WITH-CONSBBDBXBVBDFDEFINEBBDBCDEFINITIONBQÁCAREFULLY-FLAGÁNO-QUERY-FLAGDCADJUSTABLE-ARRAY-PBBDBCDC%32-BIT-DIFFERENCEBBDBBDTIMEBBDBQFORMDpBTIMEBBDB\BQB]DDB|CCDR-LOCATION-FORCEBBBDÂFUNCTION-SPEC-REMPROPBBDBB[DREMPROPBBDBcB[DCFILL-ARRAYBBDBCSIZEBeDDB|BBBBDÃFUNCTION-SPEC-DEFAULT-HANDLERBBDB@BBQBgBhDÂFUNCTION-SPEC-DWIMIFYBBDNEW-SPECBBDCMAP-OVER-LOOKALIKE-SYMBOLSBBDÀPNAMEÀIGNOREB@BKADDITIONAL-ARGSDCARRAY-ELEMENTS-FOR-GIVEN-DATA-SIZEBBDB\BQB]DSETPROPBBDBcB[BeDB}BBDB@BBQBgBhDÀPLISTBBDBGDDB|BBBBDFUNCTION-SPEC-PUSH-PROPERTYBBDBBeB[DÂPROPERTY-LIST-HANDLERBBDCOPBBKBDPUTPROPBBDBcBeB[DARRAY-GROW-1BBDBCBPCINITIAL-ELEMENT-PBXDCDWIMIFY-PACKAGE-1BBDBBBDFUNCTION-SPEC-REMPROP-1BBDBKBxDÂINVALIDATE-ARRAY-CACHEBBBDDB|BBBBDÂDWIMIFY-PACKAGE-2-HELPBBDCSBBDRECORD-SOURCE-FILE-NAMEBBDBBQDBRDB<ÀDEFUNDNO-QUERYDCEQINHIBIT-FDEFINE-WARNINGSB-DCDWIMIFY-PACKAGE-0BBDBBDBBBDBDBBBDBDCARRAY-DATA-OFFSETBBDBCDFDEFINITIONBBDBDCMAYBE-CHANGE-FEF-TYPE-ALLBBBDBFBBDBBRBeDBBBDBKBDMAPATOMS-NR-SYMBBDB@DÁTIME-IN-60THSBBBDÂARRAY-BOXED-DATA-SIZEBBDB\BQB]DGETBBDBcB[BQDEFAULTDCGET-MACRO-ARG-DESC-POINTERBBDBmDDB|BBBDBDDB|BBBDBBBBDSIMPLE-MAKE-ARRAY-1D-Q-SHORTBBDCDIMENSIONDSTORE-KEYWORD-ARG-VALUESBBDFIRST-KEYARG-POINTERBKEYKEYSALLOW-OTHER-KEYSBQÀKLUDGEDDB|BBBBDDB|BBBBDÁ%32-BIT-LESSPBBDBBDSET-FILL-POINTERBBDBCBeDADJUST-ARRAYBBD BCÁNEW-DIMENSIONSBKKEYARGSBBBXBBBBDDBDEFPROPÂSPECIAL-FORM-BOOTSTRAPBBDform469DSETPLISTBBDBCLDLOCATION-BOUNDPBBDBDDELQBBDITEMBBQDÀTIMESFDÀSXHASHBBDBBQRANDOM-OBJECT-ACTIONDDB|BBBBDDB|MAKE-SYMBOLBBBDCARRAY-SIZE-IF-MADEBBDBPBKBDB7BBDBBQPERMANENT-PDARRAY-TYPE-NULL-ELEMENTBBDBRDFMAKUNBOUNDBBDBDÂNAMED-STRUCTURE-INVOKEBBDCOPERATIONBqBKBDARRAY-COLUMN-MAJOR-INDEXBBDBCBKBLDFSETBBDBBoDFUNCALLBBDBCFNÀ&EVALBKBDDB|BBBBDSTORE-KEYWORD-ARG-VALUES-INTERNAL-LAMBDABBDCPREV-SLOT-POINTERBBBBQBD%32-BIT-GREATERPBBDBBDÂVALIDATE-FUNCTION-SPECBBDBDDB|BbBBBDCSTORE-CONDITIONALBBDBOLDNEWDDB|BDBBBDPUTPROP-IN-AREABBDBcBeB[BVDÀAPPLYBBDB@BKBDDB|BtBBBDÁ%MASK-32-BITSBBDB\BQB]DFUNCTION-SPEC-GET-1BBDBKBxDCFUNCTION-SPEC-GETBBDBB[BQBDB<D DB[BBDB[DBCARRAY-TYPEB_DBB[DB\BQB]DBDÀBLOCKB[B]DBB[DBDBDBDBB\FDBDBB\FDBB\FFDB DDBDBDBB\DB_DBDBDBB\DBDBBB_DBEDB<B3DBEDBEDB<CELEMENTS-PER-WORDDBEDB<AREFDB<DB@ARRAY-ELEMENTS-PER-QBDBEDB<CIFDB<DÀPLUSPBDBJDB<CEILINGB_DB<DBDBJDB<C*B_DB<DDC-BDBBBDBDBMark 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]DBDBBB]DBBDBDBDBDBB\FDBDBB\FDBB\FFDB DDBDBDBB\DBDBDBDBB\DBDBDDBDBDBB\BDBDBDBDBB\DB-BDBDBBDBFFDBBBBQDBBDBEDB<CEVAL-WHENDB<DEVALLOADCOMPILEDBJDB<BDBEDB<B<BDB<DDB<pB(,OBSOLETEDB<pB(STYLE-CHECKERDBJDB<BDBEDB<B<BDÀFORMATBis an obsolete ~A; ~ADBBformBDB<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.DBB{DBBDB\BQB]DBDBBB]DBBDBDBDBDBB\FDBDBB\FDBB\FFDB DDB{DBDBB\DBDBB DBB{DB3DDÀXTIMEDB*DÀOTIMEDB*DÀNTIMEDB*DB0DB*DBEDB<B3DBEDBJB9DB<DDpTIME,MICROSECOND-TIMEDBJB<DB<DDBHDBEB0DBEDB<MULTIPLE-VALUE-LISTB{DBJB?DB<DDBHDBEDB<B DB<Á*TRACE-OUTPUT*DB<l~&Evaluation of ~S took ~:D microseconds.DBEDB<B<B{DBEDB<BDBEDB<C+B?B9B<B<DBEDB<VALUES-LISTB0DBBBBBBB]BPDBwBBDBwDBBDBBwDB\BQB]DBDBBwB]DBBwDBDBDBDBB\FDBDBB\FDBB\FFDB DDBDBDBB\DBDBBDBEDB<ÀLOGANDDB<DC1-DC^FF BDBBBDBDBBÀWORDSDBBDB\BQB]DBDBBB]DBBDBDBDBDBB\FDBDBB\FDBB\FFDB DDBDBDBB\DBDBDBDBB\DBDBBBDBEDB<B3DBEDBEDB<BDBEDB<BDB<DB@BBDBEDB<BDB<DBBDBJDB<BBDB<DBDBJDB<BBDB<DDBBDBBBDBDBBB_DBBDB\BQB]DBDBBB]DBBDBDBDBDBB\FDBDBB\FDBB\FFDB DDBDBDBB\DB_DBDBDBB\DBDBBB_DBEDB<BB_DBEDB<BDB<DB@ÃARRAY-BOXED-WORDS-PER-ELEMENTBDBBBDBBDC%SXHASH-SUBSTRINGBBB