(FILECREATED "31-Mar-86 17:16:14" ("compiled on " {ERIS}LISP>SINGLEFILEINDEX.;4) "27-Mar-86 16:20:15" recompiled exprs: SINGLEFILEINDEX1 PrintRelativeFunctionIndex in "Xerox Lisp 27-Mar-86 ..." dated "27-Mar-86 16:42:46") (FILECREATED "31-Mar-86 17:15:30" {ERIS}LISP>SINGLEFILEINDEX.;4 53886 changes to: (FNS SINGLEFILEINDEX1 PrintRelativeFunctionIndex TestForProp TestForGenericDefinition) (VARS SINGLEFILEINDEXCOMS) previous date: "30-Mar-86 15:58:57" {ERIS}BVM>SINGLEFILEINDEX.;9) SINGLEFILEINDEX D1 (P 0 FULL I 3 PRINTOPTIONS I 2 mergedIndexFlg I 1 OUTF I 0 INF F 2 ERRORMESSAGESTREAM) @@i HRdi`Y @I oI `HABC gHABC H(74Q \SFI.Q1UP 60Q SINGLEFILEINDEX2 44Q PRIN1 34Q PRIN1 27Q TERPRI 4 FINDFILE) (64Q SINGLEFILEINDEX2 50Q SINGLEFILEINDEX.DONTSPAWN 23Q PROMPTWINDOW) ( 40Q " not found.") \SFI.Q1UPA0001 D1 (NAME ERRORSET F 0 FUN F 1 FULL F 2 OUTF F 3 RESETY F 4 mergedIndexFlg F 5 PRINTOPTIONS) P`hi `0`PQRTUhh `"ghgg  hhci(76Q FIND.PROCESS 67Q ADD.PROCESS 40Q \NCONC2 7 OBTAIN.MONITORLOCK) (107Q \SFI.PROCESS 104Q \SFI.PROCESS.COMMANDS 72Q \SFI.PROCESS 64Q DON'T 61Q BEFOREEXIT 54Q \FILELISTING 47Q \SFI.PROCESS 43Q \SFI.PROCESS.COMMANDS 20Q \SFI.PROCESS.COMMANDS 13Q \SFI.PROCESS 2 \SFI.PROCESSLOCK) () \SFI.Q1UP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 PRINTOPTIONS I 3 mergedIndexFlg I 2 OUTF I 1 FULL I 0 FUN F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SFI.Q1UPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\SFI.Q1UPA0001)) \FILELISTINGA0001 D1 (NAME ERRORSET P 0 FORM F 1 RESETY) <`hi `dci`` HH ` (67Q OBTAIN.MONITORLOCK 60Q APPLY 50Q RELEASE.MONITORLOCK 7 OBTAIN.MONITORLOCK) (64Q \SFI.PROCESSLOCK 45Q \SFI.PROCESSLOCK 40Q \SFI.PROCESS.COMMANDS 34Q \SFI.PROCESS.COMMANDS 23Q \SFI.PROCESS 16Q \SFI.PROCESS.COMMANDS 2 \SFI.PROCESSLOCK) () \FILELISTING D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \FILELISTINGA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\FILELISTINGA0001)) SINGLEFILEINDEX2 D1 (I 3 PRINTOPTIONS I 2 mergedIndexFlg I 1 OUTF I 0 FULL F 1 ERRORMESSAGESTREAM) {@ABC 9A3Qdi`H oH @H oH `H i+A#Qdi`H @H oH @C @ ` h(164Q REMOVE 156Q ROOTFILENAME 150Q OLDLISTFILES1 141Q PRIN1 130Q PRIN1 122Q TERPRI 73Q PRIN1 63Q PRIN1 52Q PRIN1 44Q PRIN1 33Q TERPRI 6 SINGLEFILEINDEX1) (167Q NOTLISTEDFILES 161Q NOTLISTEDFILES 113Q PROMPTWINDOW 67Q PRINTERDEVICEFILENAME 24Q PROMPTWINDOW) ( 135Q " is not LISPSOURCEFILEP -- COPYFILE being called" 57Q " => " 40Q "indexed version of ") SINGLEFILEINDEX1A0001 D1 (NAME ERRORSET P 32Q VARS P 31Q function P 30Q newPos P 27Q linePos P 26Q EOL P 25Q currentPos P 24Q ENTRY P 20Q TEM P 17Q FNSMAPSL P 16Q nextFnStart P 15Q nextFnGroup P 14Q currentItem P 13Q COMS P 12Q FULLEOLC P 11Q MAP P 10Q lastPage P 7 INDICES P 6 ItemPages P 5 PAGECOUNT P 4 SOURCESTREAM P 3 LINECOUNT P 2 FNUM P 1 typesLST P 0 LINESPERPAGE F 33Q OUTF F 34Q FULL F 35Q RESETVARSLST F 36Q USEMAPFLG F 37Q LINESPERPAGE F 40Q RESETY F 41Q PRINTOPTIONS F 42Q RETINDEXFLG) W>`h `gjkoW8gg \hW:c:L c8d g_ O _W<ohhW:c:icW6`c6g gW6g c6 hhoW6gg c6 hW:c:W6gWBgW8hW6g gl hhW:c:W6g HgnW6 hhW:c:`W8Lg O ID@`5d_(dgO( O(_"O$ O"h_&O"&_$O&O_L_kO__jOdjokoo "O,LO* _0LO*_. L lL OAO.OjO*O2O.Oj)OdO2W6 _0O___*OlL O0k_0ILI LW6O*O0 O0k_*hM_``gRN _gOO4W8 O4O4 O i Mkj`i W8Lg O WDW8OW8c@i(1265Q \SFI.PRINT.INDEX 1257Q PrintFileTitle 1254Q GETFILEINFO 1242Q INDEXNEWPAGE 1223Q INDEXNEWPAGE 1216Q \SFI.FILTER.INDEX 1207Q DREMOVE 1175Q FILECOMS 1152Q \SFI.SORTINDEX 1111Q INDEXNEWLINE 1105Q INDEXCOPYBYTES 1072Q \SFI.AnalyzeLine 1053Q READC 1011Q PrintFnDef 735Q \SFI.FLUSHFONTCHANGE 724Q PEEKCCODE 717Q SETFILEPTR 701Q FILEPOS 666Q CONCATCODES 534Q EVAL 470Q PrintRelativeFunctionIndex 462Q PrintFileTitle 457Q GETFILEINFO 426Q LINELENGTH 407Q GETFILEINFO 364Q RADIX 353Q STREAMPROP 350Q \APPEND2 345Q \APPEND2 342Q STREAMPROP 302Q OUTPUT 275Q OPENSTREAM 247Q OUTPUT 242Q GETSTREAM 225Q OPENP 201Q LISPSOURCEFILEP 171Q GETFILEMAP 144Q RANDACCESSP 67Q ROOTFILENAME 61Q FULLNAME 43Q OPENSTREAM) (1251Q CREATIONDATE 1235Q SINGLEFILEINDEX.TWOSIDED 1160Q VAR 1143Q BOTH 1140Q RELATIVEINDEXFLG 1134Q RELATIVEINDEXFLG 520Q eval 502Q SINGLEFILEINDEX.TYPES 454Q CREATIONDATE 444Q RELATIVEINDEXFLG 416Q LINELENGTH 404Q PAGEHEIGHT 357Q RADIX 337Q PRINTOPTIONS 325Q DOCUMENT.NAME 320Q PRINTOPTIONS 272Q NEW 267Q OUTPUT 237Q OUTPUT 232Q OUTPUT 222Q OUTPUT 215Q PRINTERDEVICEFILENAME 72Q FILEMAP 40Q OLD 35Q INPUT 16Q BOTH 13Q RELATIVEINDEXFLG 4 RELATIVEINDEXFLG) ( 663Q (15Q 12Q) 656Q (12Q) 646Q (15Q) 262Q (PROGN (CLOSEF? (OUTPUT OLDVALUE))) 122Q (SETQ USEMAPFLG) 30Q (PROGN (CLOSEF? OLDVALUE))) SINGLEFILEINDEX1 D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 PRINTOPTIONS I 2 RETINDEXFLG I 1 OUTF I 0 FULL F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q SINGLEFILEINDEX1A0001) (24Q ERROR 13Q INTERNAL) ( 10Q (SINGLEFILEINDEX1A0001)) \SFI.AnalyzeLineA0001 D1 (NAME ERRORSET L (0 NIL) F 1 ENTRY F 2 SOURCESTREAM F 3 FN) QgRSQlHhNIL (10Q TestForType) () \SFI.AnalyzeLine D1 (P 11Q ENTRY P 4 ITEMNAME P 3 MOVED? P 2 PAT P 1 HERE P 0 FN I 2 FLG I 1 TYPETRIPLES I 0 SOURCESTREAM F 12Q ItemPages F 13Q PAGECOUNT) @ ` dgdg@ l@ @` q@ YA Oh_ZdihHJ HJhK@I ho \ iO_O]MLWhWc1lLh#L d_dONWhWcOhdgdgh(154Q \SFI.AnalyzeLineA0001 142Q SETFILEPTR 123Q MEMB 63Q GETFILEPTR 54Q READ 44Q \SFI.FLUSHFONTCHANGE 34Q PEEKCCODE 11Q GETSYNTAX 3 READCCODE) (327Q RIGHTBRACKET 321Q RIGHTPAREN 51Q FILERDTBL 23Q LEFTBRACKET 15Q LEFTPAREN 6 FILERDTBL) ( 151Q (\SFI.AnalyzeLineA0001)) \SFI.FLUSHFONTCHANGE D1 (I 0 STREAM F 0 linePos) @ lh@ @ Plc(22Q READCCODE 15Q READCCODE 3 PEEKCCODE) NIL () PrintFnDef D1 (P 1 currentItem P 0 END I 1 OUTSTREAM I 0 FNDEF F 2 FNUM F 3 ItemPages F 4 LINECOUNT F 5 LINESPERPAGE F 6 PAGECOUNT F 7 SOURCESTREAM) v@@Rkc`;`R l ` o R o ` g TlUgIVhScWA@H H(162Q INDEXCOPYBYTES 132Q INDEXNEWPAGE 120Q INDEXNEWLINE 114Q PRIN1 105Q CHANGEFONT 76Q PRIN1 66Q PRIN1 61Q PRIN1 51Q CHANGEFONT 42Q SPACES 33Q NCHARS 17Q INDEXNEWLINE) (136Q FUNCTION 111Q % 102Q DEFAULTFONT 46Q BOLDFONT 27Q FILELINELENGTH 22Q RELATIVEINDEXFLG) ( 73Q "]" 56Q "[") INDEXCOPYBYTES D1 (P 5 CH P 4 LOOKFORLF P 3 NLFLG P 2 EOLC P 1 OUTSTRM P 0 INSTRM I 3 END I 2 START I 1 OUT I 0 IN F 10Q LINECOUNT F 11Q LINESPERPAGE) @B @g Ag bHCBdjH ]dl @Jdj#hKWWlh[i[liwI Il lNjl ULJkKWWlh92I _Il lOKWdWlhWkcWihMl IM!h[\kGi(313Q INDEXNEWPAGE 276Q INDEXNEWPAGE 256Q INDEXNEWPAGE 214Q INDEXNEWLINE 205Q INDEXNEWPAGE 117Q INDEXNEWLINE 106Q INDEXNEWPAGE 22Q GETSTREAM 13Q GETSTREAM 4 SETFILEPTR) (17Q OUTPUT 10Q INPUT) () INDEXNEWLINE D1 (I 0 DontPrintPageNbrFlg F 0 LINECOUNT F 1 LINESPERPAGE) PkcQ@ (17Q INDEXNEWPAGE 2 TERPRI) NIL () INDEXNEWPAGE D1 (I 0 DontPrintPageNbrFlg F 0 PAGECOUNT F 1 LINECOUNT) @l dl l9`ll0l m܅`l hj jcP@ kc(66Q \SFI.LISTINGHEADER 54Q POSITION 47Q PRIN3 11Q CHARACTER) (41Q \OneCharAtomBase 22Q \OneCharAtomBase) () \SFI.SORTINDEXA0001 D1 (L (1 Y 0 X) F 0 TYPENAMES) A@PNIL NIL () \SFI.SORTINDEX D1 (P 10Q PAIR P 7 TRIP P 6 OLDNAME P 5 INDEX P 4 RESULT P 3 TYPENAMES I 0 TRIPLES) ~ g0`dIHhZH&J1@*dOL]Oh]LOM^MOML ON dOg Lg (173Q SORT 157Q SORT 137Q SORT 134Q UNION) (170Q \SFI.SORTINDEXA0001 154Q UALPHORDERCAR 10Q SINGLEFILEINDEX.TYPES 2 FUNCTION) () UALPHORDERCAR D1 (I 1 B I 0 A) @A (6 UALPHORDER) NIL () \SFI.FILTER.INDEX D1 (P 12Q F P 10Q PAIR P 2 FILTERS P 1 TYPEPAIR I 0 INDICES) @1Hh`1L MZ$0dI_NOh^]L\O&^IdAL MHX_J OhO_N3Oh^L\_ OO OkKOiO_O&(200Q SFI.LOOKUP.NAME) (16Q SINGLEFILEINDEX.FILTERS) () PrintFileTitle D1 (I 1 DATE I 0 FILENAME) #@oA i oo (40Q INDEXNEWLINE 35Q \SFI.CENTERPRINT 32Q CONCAT 23Q DATE 14Q \SFI.CENTERPRINT 10Q CONCAT) NIL ( 27Q " --" 20Q "-- Listed on " 4 " ") \SFI.PRINT.INDEX D1 (P 1 PAIR I 0 INDICES F 2 lastPage) %@HYdRI i HX(35Q INDEXNEWLINE 30Q PrintIndex 13Q \SFI.BreakLine) NIL () PrintIndex D1 (P 24Q LABEL P 23Q PAGENO P 22Q ITEM P 21Q COLUMN P 17Q NEXTINDEX P 16Q ROW P 13Q PAIR P 7 LastItem P 6 NROWSREMAINING P 5 SPACING P 4 LEFT P 3 WIDTH P 2 NROWS P 1 NCOLUMNS P 0 INDEXNOWIDTH I 2 TYPE I 1 MaxIndexNo I 0 INDEXPAIRS F 30Q LINESPERPAGE F 31Q LINECOUNT) l AkldAlA  @1 OOHk[@ J^Bi B4JlW0W2W2W0i BBo id i @6NW0W2_dOOZkOdOQOb i @ Ik^_ OO Hkڀj_OOOO_O_;_IkO"O @O _OJ_O"k_"!O$_(O$_&d=0O& d_oOh_*O,O*_._,O. _,O* _&` O( k KO( kO& O& O"IM gi Ok_(637Q INDEXNEWLINE 625Q SPACES 613Q PRIN1 605Q PRINTDOTS 601Q NCHARS 571Q NCHARS 562Q SPACES 555Q PRIN1 547Q CHANGEFONT 536Q MKSTRING 524Q LAST 520Q CONCATLIST 372Q FNTH 303Q LENGTH 267Q NCHARS 251Q LENGTH 244Q INDEXNEWPAGE 156Q INDEXNEWLINE 151Q \SFI.CENTERPRINT 144Q CONCAT 133Q \SFI.BreakLine 124Q INDEXNEWPAGE 72Q INDEXNEWLINE 65Q \SFI.BreakLine 56Q \SFI.PrintIndexFactors 22Q NCHARS) (544Q DEFAULTFONT) ( 461Q "," 141Q " INDEX") \SFI.PrintIndexFactors D1 (I 0 IndexedList F 4 NCOLUMNS F 5 WIDTH F 6 NROWS F 7 SPACING F 10Q LEFT) @ 1H`Ul۹dIIkJJkcHTkTc HVkVc`UlTcTkU`l``lc jcUWl`TlٻdKKc Tkj`UTTkc(3 LENGTH) (175Q FILELINELENGTH 146Q FILELINELENGTH 123Q FILELINELENGTH 117Q FILELINELENGTH 107Q FILELINELENGTH 65Q FILELINELENGTH 12Q FILELINELENGTH) () PrintRelativeFunctionIndex D1 (P 2 currentItem P 1 IndexedList P 0 MaxIndexNo I 0 MAP) j10@