(FILECREATED "30-Mar-86 15:59:37" ("compiled on " {ERIS}BVM>SINGLEFILEINDEX.;9) "26-Mar-86 22:48:44" recompiled exprs: SINGLEFILEINDEX1 \SFI.PRINT.INDEX TestForProp TestForUglyVars in "Xerox Lisp 26-Mar-86 ..." dated "26-Mar-86 23:05:02") (FILECREATED "30-Mar-86 15:58:57" {ERIS}BVM>SINGLEFILEINDEX.;9 54514 changes to: (FNS TestForProp TestForUglyVars SINGLEFILEINDEX1 \SFI.PRINT.INDEX \SFI.AnalyzeLine PrintIndex \SFI.PrintIndexFactors TestForType TestForQuotedType TestForConstants SFI.WHOLE.EXPRESSION SFI.ADD.TO.INDEX SFI.LOOKUP.NAME \SFI.FILTER.INDEX \SFI.SORTINDEX TestForVar TestForMacro TestForBitmap TestForResource TestForGenericDefinition SINGLEFILEINDEX MERGEDFILEINDEX PrintFnDef MERGEDFILEINDEX1 SINGLEFILEINDEX2 MERGEDFILEINDEX2) (VARS SINGLEFILEINDEXCOMS) (RECORDS SFITYPE) previous date: "28-Mar-86 17:44:49" {ERIS}BVM>SINGLEFILEINDEX.;3) 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 typesLST P 2 LINECOUNT P 1 FNUM P 0 LINESPERPAGE F 33Q OUTF F 34Q FULL F 35Q RESETVARSLST F 36Q LINESPERPAGE F 37Q RESETY F 40Q PRINTOPTIONS F 41Q RETINDEXFLG) Wi(1263Q \SFI.PRINT.INDEX 1255Q PrintFileTitle 1252Q GETFILEINFO 1240Q INDEXNEWPAGE 1221Q INDEXNEWPAGE 1214Q \SFI.FILTER.INDEX 1205Q DREMOVE 1173Q FILECOMS 1150Q \SFI.SORTINDEX 1107Q INDEXNEWLINE 1103Q INDEXCOPYBYTES 1070Q \SFI.AnalyzeLine 1051Q READC 1007Q PrintFnDef 733Q \SFI.FLUSHFONTCHANGE 722Q PEEKCCODE 715Q SETFILEPTR 677Q FILEPOS 664Q CONCATCODES 532Q EVAL 454Q PrintRelativeFunctionIndex 446Q PrintFileTitle 443Q GETFILEINFO 412Q LINELENGTH 373Q GETFILEINFO 350Q RADIX 337Q STREAMPROP 334Q \APPEND2 331Q \APPEND2 326Q STREAMPROP 266Q OUTPUT 261Q OPENSTREAM 233Q OUTPUT 226Q GETSTREAM 211Q OPENP 165Q LISPSOURCEFILEP 155Q GETFILEMAP 130Q RANDACCESSP 51Q ROOTFILENAME 43Q FULLNAME 25Q OPENSTREAM) (1247Q CREATIONDATE 1233Q SINGLEFILEINDEX.TWOSIDED 1156Q VAR 1141Q BOTH 1136Q RELATIVEINDEXFLG 1132Q RELATIVEINDEXFLG 516Q eval 500Q SINGLEFILEINDEX.TYPES 467Q BOTH 464Q RELATIVEINDEXFLG 460Q RELATIVEINDEXFLG 440Q CREATIONDATE 430Q RELATIVEINDEXFLG 402Q LINELENGTH 370Q PAGEHEIGHT 343Q RADIX 323Q PRINTOPTIONS 311Q DOCUMENT.NAME 304Q PRINTOPTIONS 256Q NEW 253Q OUTPUT 223Q OUTPUT 216Q OUTPUT 206Q OUTPUT 201Q PRINTERDEVICEFILENAME 123Q USEMAPFLG 77Q USEMAPFLG 54Q FILEMAP 22Q OLD 17Q INPUT) ( 661Q (15Q 12Q) 654Q (12Q) 644Q (15Q) 246Q (PROGN (CLOSEF? (OUTPUT OLDVALUE))) 105Q (SETQ USEMAPFLG) 12Q (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 CJdj#hKWWlh[i[li}I Il lNml XLJkKWWlh<5I _Il lOKWdWlhWkcWihMl IM!h[\kAi(324Q INDEXNEWPAGE 307Q INDEXNEWPAGE 267Q INDEXNEWPAGE 222Q INDEXNEWLINE 213Q INDEXNEWPAGE 122Q INDEXNEWLINE 111Q INDEXNEWPAGE 22Q GETSTREAM 13Q GETSTREAM 4 SETFILEPTR) (230Q STREAM 145Q STREAM 31Q STREAM 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) 6l l9`ll0l m܅`l hj jcP@ kc(54Q \SFI.LISTINGHEADER 42Q POSITION 35Q PRIN3) (27Q \OneCharAtomBase 10Q \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@:d0 KdHkX_O Oh_O&_O\M0L^]NYd*i i ` o ` ]LH i @(173Q INDEXNEWPAGE 166Q PrintIndex 155Q LAST 151Q CHANGEFONT 142Q PRIN1 132Q CHANGEFONT 123Q INDEXNEWLINE 116Q INDEXNEWLINE) (146Q DEFAULTFONT 127Q BOLDFONT) ( 137Q "No Functions.") \SFI.CENTERPRINT D1 (I 2 DontPrintPageNbrFlg I 1 BOLDFLG I 0 STR F 0 FILELINELENGTH) +P@ A` @ ` @ B (50Q INDEXNEWLINE 43Q PRIN1 36Q CHANGEFONT 27Q PRIN1 22Q CHANGEFONT 11Q TAB 4 NCHARS) (33Q DEFAULTFONT 17Q BOLDFONT) () PRINTDOTS D1 (P 0 STRM I 1 FILE I 0 N) 'Ag 1@YjH Hl.lKIkٰJ(6 GETSTREAM) (23Q STREAM 3 OUTPUT) () \SFI.LISTINGHEADER D1 (I 0 dontPrintPageNumberFlg F 0 currentItem F 1 FNUM F 2 PAGECOUNT F 3 FULL F 4 RELATIVEINDEXFLG F 5 FILELINELENGTH) qS+PFQ+T(o P o Q o Po P o Ul i R@o oR (156Q INDEXNEWLINE 153Q INDEXNEWLINE 147Q PRINTNUM 136Q PRIN1 121Q TAB 110Q PRIN1 100Q PRIN2 73Q PRIN1 56Q PRIN1 44Q PRIN1 37Q PRIN1 27Q PRIN2 22Q PRIN1) NIL ( 143Q (FIX 4) 133Q "Page " 105Q " cont.)" 70Q " (" 51Q "] cont.)" 34Q "[" 17Q " (") \SFI.BreakLine D1 (P 0 STRM) 0i hg `djH Hl~lIkٰi (55Q INDEXNEWLINE 12Q GETSTREAM 3 INDEXNEWLINE) (31Q STREAM 20Q FILELINELENGTH 7 OUTPUT) () TestForType D1 (I 2 TRIPLE I 1 FN I 0 STREAM) @` HdlH(6 READ) (3 FILERDTBL) () TestForQuotedType D1 (I 2 TRIPLE I 1 FN I 0 STREAM) @` HgH(6 READ) (17Q QUOTE 3 FILERDTBL) () TestForVar D1 (P 0 NAME I 2 TRIPLE I 1 FN I 0 STREAM) D@` Xd6l0Hi*Hg#HgHgHgHgHdgh(11Q READ) (76Q LAMA 67Q NLAML 61Q NLAMA 52Q LOCALVARS 43Q SPECVARS 34Q GLOBALVARS 6 FILERDTBL) () TestForMacro D1 (I 2 TRIPLE I 1 FN I 0 STREAM) @` @` I`H(15Q READ 6 READ) (24Q MACROPROPS 12Q FILERDTBL 3 FILERDTBL) () TestForBitmap D1 (P 1 CHAR P 0 NAME I 2 TRIPLE I 1 FN I 0 STREAM) 6@` Hd(l"@` Yl(@ @` gH(54Q RATOM 44Q READCCODE 32Q SKIPSEPRCODES 6 READ) (57Q READBITMAP 51Q FILERDTBL 27Q FILERDTBL 3 FILERDTBL) () TestForProp D1 (I 2 TRIPLE I 1 FN I 0 STREAM) 3@` @` "`ZH[dIJ KHh(15Q READ 6 READ) (23Q SINGLEFILEINDEX.PROPERTIES 12Q FILERDTBL 3 FILERDTBL) () TestForResource D1 (I 2 TRIPLE I 1 FN I 0 STREAM) @Ao (10Q TestForGenericDefinition) NIL ( 5 ((RESOURCES GLOBALRESOURCES))) TestForUglyVars D1 (I 2 TRIPLE I 1 FN I 0 STREAM) g@ (6 SFI.WHOLE.EXPRESSION) (2 VAR) () TestForGenericDefinition D1 (P 2 TYPE P 1 NAME P 0 DESIREDTYPE I 2 TRIPLE I 1 FN I 0 STREAM F 3 SOURCESTREAM) =B!@` Yg(S` ZgJZHH JH I(65Q MEMB 33Q READ 13Q READ) (41Q QUOTE 30Q FILERDTBL 21Q QUOTE 10Q FILERDTBL) () TestForConstants D1 (I 2 TRIPLE I 1 FN I 0 STREAM) 'g0@ ddIHhZH&J(11Q SFI.WHOLE.EXPRESSION) (2 CONSTANTS) () SFI.WHOLE.EXPRESSION D1 (I 0 STREAM F 0 linePos) @P @` (13Q READ 4 SETFILEPTR) (10Q FILERDTBL) () SFI.LOOKUP.NAME D1 (I 1 TYPE I 0 NAME F 0 INDICES) @APNIL NIL () SFI.LISTFILES1 D1 (I 1 PRINTOPTIONS I 0 FILE) @hdA (6 SINGLEFILEINDEX) NIL () (PRETTYCOMPRINT SINGLEFILEINDEXCOMS) (RPAQQ SINGLEFILEINDEXCOMS ((COMS (* * "Created by Christopher Tong and JonL White, February 1984. Heavily revised by Bill van Melle, March 1986." ) (* SINGLEFILEINDEX) (FNS SINGLEFILEINDEX \SFI.Q1UP \FILELISTING SINGLEFILEINDEX2 SINGLEFILEINDEX1 \SFI.AnalyzeLine \SFI.FLUSHFONTCHANGE PrintFnDef INDEXCOPYBYTES INDEXNEWLINE INDEXNEWPAGE \SFI.SORTINDEX UALPHORDERCAR \SFI.FILTER.INDEX) (FNS PrintFileTitle \SFI.PRINT.INDEX PrintIndex \SFI.PrintIndexFactors PrintRelativeFunctionIndex \SFI.CENTERPRINT PRINTDOTS \SFI.LISTINGHEADER \SFI.BreakLine)) (INITVARS (PRINTERDEVICEFILENAME (QUOTE {LPT})) (RELATIVEINDEXFLG) ( SINGLEFILEINDEX.TWOSIDED) (SINGLEFILEINDEX.DONTSPAWN) (\SFI.PROCESS.COMMANDS) (\SFI.PROCESSLOCK ( CREATE.MONITORLOCK "SINGLEFILEINDEX")) (\SFI.PROCESS) (ERRORMESSAGESTREAM T)) (ADDVARS ( SINGLEFILEINDEX.TYPES (MACRO PUTPROPS TestForMacro) (MACRO DEFMACRO) (VAR (RPAQ RPAQ? RPAQQ ADDTOVAR) TestForVar T) (VAR READVARS TestForUglyVars) (BITMAP RPAQ TestForBitmap) (CONSTANTS CONSTANTS TestForConstants) (RECORD (eval CLISPRECORDTYPES)) (PROPERTY PUTPROPS TestForProp) (COURIERPROGRAM COURIERPROGRAM) (TEMPLATE SETTEMPLATE TestForQuotedType) (I.S.OPR I.S.OPR TestForQuotedType) ( RESOURCES PUTDEF TestForResource) (ADVICE READVISE)) (SINGLEFILEINDEX.PROPERTIES (READVICE ADVICE)) ( SINGLEFILEINDEX.FILTERS (VAR . CONSTANTS) (VAR . BITMAP))) (COMS (* "Functions that find types") (FNS TestForType TestForQuotedType TestForVar TestForMacro TestForBitmap TestForProp TestForResource TestForUglyVars TestForGenericDefinition TestForConstants SFI.WHOLE.EXPRESSION SFI.LOOKUP.NAME)) ( DECLARE: EVAL@COMPILE DONTCOPY (MACROS .ERRORSTREAM.) (RECORDS SFITYPE) (FILES (IMPORT) FILEIO) ( GLOBALVARS DEFAULTFONT NOTLISTEDFILES) (GLOBALVARS FILERDTBL RELATIVEINDEXFLG) (GLOBALVARS SINGLEFILEINDEX.DONTSPAWN \SFI.PROCESS.COMMANDS \SFI.PROCESSLOCK \SFI.PROCESS SINGLEFILEINDEX.TWOSIDED SINGLEFILEINDEX.TYPES SINGLEFILEINDEX.PROPERTIES SINGLEFILEINDEX.FILTERS FILELINELENGTH MACROPROPS PRINTERDEVICEFILENAME) DONTEVAL@LOAD (SPECVARS . T)) (COMS (FNS SFI.LISTFILES1) (DECLARE: DOCOPY DONTEVAL@LOAD (P (MOVD? (QUOTE LISTFILES1) (QUOTE OLDLISTFILES1)) (/MOVD (QUOTE SFI.LISTFILES1) (QUOTE LISTFILES1))) (INITVARS (LINESPERPAGE 65)))))) (RPAQ? PRINTERDEVICEFILENAME (QUOTE {LPT})) (RPAQ? RELATIVEINDEXFLG) (RPAQ? SINGLEFILEINDEX.TWOSIDED) (RPAQ? SINGLEFILEINDEX.DONTSPAWN) (RPAQ? \SFI.PROCESS.COMMANDS) (RPAQ? \SFI.PROCESSLOCK (CREATE.MONITORLOCK "SINGLEFILEINDEX")) (RPAQ? \SFI.PROCESS) (RPAQ? ERRORMESSAGESTREAM T) (ADDTOVAR SINGLEFILEINDEX.TYPES (MACRO PUTPROPS TestForMacro) (MACRO DEFMACRO) (VAR (RPAQ RPAQ? RPAQQ ADDTOVAR) TestForVar T) (VAR READVARS TestForUglyVars) (BITMAP RPAQ TestForBitmap) (CONSTANTS CONSTANTS TestForConstants) (RECORD (eval CLISPRECORDTYPES)) (PROPERTY PUTPROPS TestForProp) ( COURIERPROGRAM COURIERPROGRAM) (TEMPLATE SETTEMPLATE TestForQuotedType) (I.S.OPR I.S.OPR TestForQuotedType) (RESOURCES PUTDEF TestForResource) (ADVICE READVISE)) (ADDTOVAR SINGLEFILEINDEX.PROPERTIES (READVICE ADVICE)) (ADDTOVAR SINGLEFILEINDEX.FILTERS (VAR . CONSTANTS) (VAR . BITMAP)) (MOVD? (QUOTE LISTFILES1) (QUOTE OLDLISTFILES1)) (/MOVD (QUOTE SFI.LISTFILES1) (QUOTE LISTFILES1)) (RPAQ? LINESPERPAGE 65) (PUTPROPS SINGLEFILEINDEX COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL