hưs2D p,COMPILE-DATADams,Lisp Machine OneUcFdFDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITEpB MITpB QFASL-SOURCE-FILE-UNIQUE-ID1DplFSMAKE-FASLOAD-PATHNAMEDpB+QUOTElOZDB:pB lUNSPECIFICDB:DtreepatchDB:system-100-7DB:lispDB:B>pB lPATCH-FILEpB lTpB BASEFpB ,PACKAGEpB USERpB lREADTABLEpB lZLOZ: /tree/sys/genricN[plSIPATCH-SOURCE-FILE-NAMESTRINGpB\lKEY-FETCHˀ@$F)B`FB@pB\,MACRO-REPORT-ARGS-ERRORLISTLETpB\TEMCIFFIXNUMPpCLIAREFCARÀLIST*FUNCALLDBlDDpB EXPR-SXHASHL\DpB ,MACROS-EXPANDEDDpB\XR-BQ-LIST*pB\lXR-BQ-LISTDpB(,ARG-MAPDDpB\l*MACROARG*DpB\l*MACROENVIRONMENT*DpB(lLOCAL-MAPDDpB\KEYDSEQUENCEDpB\,INDEXVARDpSYSTEM,FUNCTION-PARENTB`DARGLISTBBBEZUXEZ58E|ŀK@EZAEZBD@ D D@ DB@ DAEB DB D@E@D@EDÀMACROBOB`pB\KEY-FETCH-INCˀF(F-BFB@BhBiBjBlBmBnBqÀPROG1INCFPOPBsBtDBlDDBwf3DB{DB}BDBDDBDBDBDDBDBDBDBBDBBBBEZUXEZ58E|ŀK@EZAEZBD@ D D@ DB@ DAE DBEDBDB D@E@D@EDBBOBNILNB^OZ: /tree/sys/genricNB^pB\FIND-1ˀE.F\B@FFFFFFFFeFeFeFeFeFeDDB{D BBBpB\,SEQ-ENDÀCONSPpB\lSEQ-STARTÀPSETQWHENBqDBD DpB\ITEMDBDpB\STARTDpB\ENDDpB\TESTDpB\,INVERTPDBDpB\,FROM-ENDDpB\lONE-ARG-PREDICATEDBDDpB\INDEXDELTDpB\lIDpB\lSTOP-INDEXDpB\,LAST-POSDBlDÀVALUESBB18E{.8EEZZ@#8AE@EE@EzAE8AA 8AEAEAEI[Zu8E@Ez@E@@EU9E{8EEE[EE E{8EEZE8E[AwDwCB@/@E:8E@E@z@G@E8AEEEAE8AA 8AEAEAEI[Zu 88BEDEBE[BEB@ECu9D8AEDEOBBNB^OZ: /tree/sys/genricNB^pB\,COUNT-1ˀ!W*F6B@FFFFFFFeFeFeFeFeDDB{DBBBqBBBBDBDDBDBDBDBDBDBDBDBDBDDBDÀCOUNTDBDBDBlE{8EEE[|E{8EEZE8E[BA@%@E:8E@E@z@G@D8ADDECE8AC 8AECECEI[Zu8A@EBu9AO=BBNB^OZ: /tree/sys/genricN>B^pB\lMISMATCH-1ˀE8FaB@@FFFFFFFFFeFeFeFeFeFepB\,MISMATCH-ARRAYS-FROM-ENDpB\MISMATCH-SEQUENCES-FROM-ENDEQLDDB{DBBBqBBBBÀUNLESSDBD DpB\lSEQUENCE1DpB\lSEQUENCE2DpB\START1DpB\END1DpB\START2DpB\END2DBDBDBDBDBDDpB\INDEX1DpB\INDEX2DBDpB\STOP1DpB\STOP2DBlXEZXEZ8E{8E{8DDEEEEEEEEņXDE{8EEE[E{8EEE[EE{8EEZE8E[E{8EEZE8E[DCBA@*EA@E:8E@E@z@G@E8AEEEAE:8EAEAzAGAE8AEEEZuXBB@ECuXAEDu9@ECu8AEDu8BOB@BNB^OZ: /tree/sys/genricNB^B\ˀ0hF8B\FI@B]DDB{DBBBqBBBB^DBD DBbDBeDBhDBkDBnDBqDBDBDBDBDDpB\COMPARE-LENGTHDBzDB}DBDpB\LAST-MISMATCH-INDEX1DBlXDESESs[@E{8E@SE@SE[E{8E@SE@SE[E@SESES8EE@SDCBA,EAAE:8EAEAzAGAE8AEEEBE:8EBEBzBGBE8AEEEZuXCEZDCCE@9DOB\BNB^OZ: /tree/sys/genricNB^ÀSEARCHˀ%XJF}B@F F2F0F2F0F0F0F0F0FeFeFeFeFeFeFeFeFeFeFeFeFepB,STORE-KEYWORD-ARG-VALUESDpB START1pB END1pB START2pB END2pB ,FROM-ENDpB TESTpB ,TEST-NOTpB KEYB]B@DDB{D BBBBBqB`BBBDBDDpB\FOR-SEQUENCE-1DpB\IN-SEQUENCE-2DBDBDBhDBkDBnDBqDBDBDpB\,TEST-NOTDBDpB\,LENGTH1DpB\,REALLY-BACKWARDSDpB\lPRETEND-BACKWARDSDpB\lREAL-END2DBDBDBlDBDpB\INCDBDpB\LAST-INDEX-IF-FROM-ENDDBDpB\START-KEY-1DÁDOCUMENTATIONyReturn index in IN-SEQUENCE-2 of first subsequence that matches FOR-SEQUENCE-1.If no occurrence is found, the value is NIL.MISMATCH is used to do the matching, with TEST, TEST-NOT and KEY passed along.START1 and END1 are indices specifying a subsequence of FOR-SEQUENCE-1 to search for. The rest of FOR-SEQUENCE-1 might as well not be there.START2 and END2 are indices specifying a subsequence of IN-SEQUENCE-2 to search through. However, the value returned is an index into the entire IN-SEQUENCE-2.If FROM-END is non-NIL, the value is the index of the LAST subsequence that matches FOR-SEQUENCE-1 or the specified part of it.In either case, the value returned is the index of the beginning of the subsequence (of IN-SEQUENCE-2) that matches.D pB(,COMPILER-ARGLISTBB&KEYDBhBkDBnBqBBBB@8 [@E!DEABEEZASIEExE{[JEExE{[ZKDEEZIS SLGEFE"DMGEZZNE{8CECEE[J8 E|J8LEZCEJ8CEZ E{8LEEZLE8E[E{8AEAEE[: 8EE{8AEAEE[z E{8AEAEE[GOH8HAOOEUTRQP2J8REPNEMAUEPE:8EPEPzPGPOH8HAOOEZu8#EEAEBEREREI3MENEHEXK8RESRREQ3RPETu9SOBBNB^1DpB\,FASL-RECORD-FILE-MACROS-EXPANDEDDB:D DB`L\DB^lDBqDBhDBW=DBF)DBNDB 9eDBf3DB"DB@΢DBqDB}җ