(FILECREATED " 3-Jun-84 19:13:49" ("compiled on " {PHYLUM}LIBRARY>SINGLEFILEINDEX.;25) "28-May-84 18:54:14" recompiled changes: MERGEDFILEINDEX1 TestForVar TestForMacro TestForBitmap TestForResource TestForGenericDefinition TestForConstants TestForInstance TestForMethod TestForType in WORK dated "31-May-84 22:31:16") (FILECREATED " 3-Jun-84 19:13:02" {PHYLUM}LIBRARY>SINGLEFILEINDEX.;25 59811 changes to: ( VARS SINGLEFILEINDEXCOMS TypeFindingFns) (FNS TestForResource TestForGenericDefinition TestForConstants TestForBitmap TestForInstance TestForVar TestForMacro TestForMethod MERGEDFILEINDEX1 TestForType) (GLOBALRESOURCES \A&PSTR) (RECORDS TYPESLSTPATTERN) (MACROS SFIMONITOR SFIBLKSTRING.INPUT ) previous date: "17-May-84 23:04:03" {PHYLUM}LIBRARY>SINGLEFILEINDEX.;23) \SFI.LISPSOURCEFILEPA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 C F 2 FULL F 3 FILERDTBL F 4 MAPADDR) ^RS g>oH5h/R R RS cdoR ohciYRS IiHX(117Q READC 72Q GETEOFPTR 50Q READ 42Q SKREAD 35Q SKREAD 4 SKIPSEPRS) (7 %() ( 100Q 17777777777Q 66Q 17777777777Q 16Q (%( F I L E C R E A T E D % )) \SFI.LISPSOURCEFILEPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 ERRORTYPELST F 1 FULL F 2 RESETVARSLST F 3 FILE F 4 RESETY) IQgQd hhhRcQj oSg chRcoo hci(101Q \SFI.LISPSOURCEFILEPA0001A0002 51Q OPENFILE 34Q SETFILEPTR 12Q GETFILEPTR) (46Q INPUT 5 SETFILEPTR) ( 76Q (DUMMY.FOR.ERRORSET) 67Q ((20Q (ERROR!))) 42Q (PROGN (CLOSEF? OLDVALUE))) \SFI.LISPSOURCEFILEP D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 MAPADDR P 0 FULL I 0 FILE F 5 LISPXHIST F 6 RESETVARSLST) 3@ HU!Vog h hg\ LI(57Q ERROR! 51Q RESETRESTORE 36Q RANDACCESSP 30Q \SFI.LISPSOURCEFILEPA0001 3 OPENP) (45Q ERROR 25Q INTERNAL) ( 22Q (DUMMY.FOR.ERRORSET)) \SFI.GETFILEMAPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 C F 2 FILE F 3 FILERDTBL F 4 MAPADDR F 5 MAP) hRS gHoH?h9R R RS cdoR oRT RS c iYRS IiHX(131Q READC 116Q READ 110Q SETFILEPTR 72Q GETEOFPTR 50Q READ 42Q SKREAD 35Q SKREAD 4 SKIPSEPRS) (7 %() ( 100Q 17777777777Q 66Q 17777777777Q 16Q (%( F I L E C R E A T E D % )) \SFI.GETFILEMAP D1 (P 3 ERRORTYPELST P 2 OPOS P 1 MAPADDR P 0 MAP I 1 FL I 0 FILE F 4 USEMAPFLG) ]TZ A@AgXH@ l @h @ h@ hX@j oo @J HgH(116Q SETFILEPTR 110Q \SFI.GETFILEMAPA0001 72Q SETFILEPTR 60Q GETFILEPTR 51Q RANDACCESSP 44Q ERRORX 32Q OPENP) (124Q FILEMAP 14Q FILEMAP) ( 105Q (DUMMY.FOR.ERRORSET) 76Q ((20Q (ERROR!)))) ILESSCADR D1 (L (1 J 0 I)) @Ah @ANIL NIL () UALPHORDERCAR D1 (I 1 B I 0 A) @A (6 UALPHORDER) NIL () PUTSASSOC D1 (P 1 foundFlg P 0 newList I 2 ALST I 1 VAL I 0 KEY) A00B%dIJd@ iJAJLKh]K&MXId@Ah H(74Q \APPEND2 24Q EQUAL) NIL () PRINTDOTS D1 (P 0 STRM I 1 FILE I 0 N) Ag @dj Hl. kٰ(25Q BOUT 6 GETSTREAM) (3 OUTPUT) () \SFI.PLURALIZE D1 (P 2 SUFFIX P 1 LEN P 0 LITP I 0 X) p@l!H@o@ @d Y)dlXdlSo1dlH@Ik)lSolY@kIk booZ@J bHd @(153Q MKATOM 143Q CONCAT 121Q SUBSTRING 33Q NCHARS 25Q \LISPERROR) NIL ( 135Q "S" 130Q "IES" 103Q "ES" 54Q "ES" 21Q "ARG NOT LITATOM") NDINFILECOMS? D1 (P 1 list I 5 items I 4 MAP I 3 COMS I 2 FULL I 1 TYPE I 0 NAME) B l Bh DVAgO@diDdi DdddEEb EDHh6i@I IiHXCd @Eh@i@E i(201Q MEMBER 154Q \NDINFILECOMS1 131Q ASSOC 15Q ERRORX 3 OPENP) (25Q FNS) () \NDINFILECOMS1 D1 (P 3 fileVar P 2 list P 1 item P 0 list I 0 COM F 4 items F 5 TYPE F 6 FULL F 7 MAP F 10Q TEM F 11Q COMMENTFLG F 12Q NAME) @h@g<@HXdd$dgdgdgdgH׿ U@Ug}@dgt@dgblZ@ddiih$Ug@dTTc@VW 'h$dWIIdcT WTch@g> @dg[lKdih KVW ZdWUVJWT ch(424Q NDINFILECOMS? 402Q \SFI.GETFILVARDEF 304Q MEMBER 247Q \SFI.GETFILVARDEF 110Q \NDINFILECOMS1) (345Q * 330Q COMS 213Q VARS 152Q * 137Q * 125Q VARS 72Q COMPILERVARS 64Q EVAL@LOADWHEN 56Q EVAL@COMPILEWHEN 47Q COPYWHEN 16Q DECLARE:) () \SFI.LOADCOMSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 C F 2 FULL F 3 FILERDTBL F 4 TEM F 5 NEWCOMS F 6 COMSNAME) oRS gcoH/hTRj R R kXl:RS cHkذYRS IiHXgVTTc i(111Q READC 70Q READ 50Q SKREAD 43Q SKREAD 36Q SETFILEPTR 4 SKIPSEPRS) (132Q RPAQQ 7 %() ( 16Q (%( F I L E C R E A T E D % )) \SFI.LOADCOMS D1 (P 2 NEWCOMS P 1 ERRORTYPELST P 0 COMSNAME I 1 MAP I 0 FULL F 3 FILE) <@g l @h A@ So @j @ oo J(70Q \SFI.LOADCOMSA0001 52Q FILECOMS 46Q SETFILEPTR 40Q ERROR 27Q LISPSOURCEFILEP 20Q ERRORX 6 OPENP) (3 INPUT) ( 65Q (DUMMY.FOR.ERRORSET) 56Q ((20Q (ERROR!))) 35Q "Not a Lisp source file.") \SFI.GETFILVARDEF D1 (P 0 VAL I 2 MAP I 1 FULL I 0 NAME F 1 \SFI.GETDEF.HASH) S@d"lQ QgBA gchl hc@QX@gAg @HQQ HQh(111Q PUTHASH 77Q GETDEF 51Q HARRAY 34Q LISPSOURCEFILEP) (74Q NOERROR 70Q VARS 40Q ERROR 24Q ERROR) () \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) () \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 F 1 FILELINELENGTH) 'i g QdjHl~ kٰi (44Q INDEXNEWLINE 32Q BOUT 14Q GETSTREAM 6 OUTPUT 3 INDEXNEWLINE) (11Q OUTPUT) () SINGLEFILEINDEX D1 (P 0 FULL I 2 mergedIndexFlg I 1 OUTF I 0 INF) @ H@` o` ` hgHddidd gHhAddidd gAhBddidd gBhhgm ggggg H(236Q ADD.PROCESS 210Q STKNTHNAME 42Q TERPRI 33Q PRIN1 20Q PRIN1 3 FINDFILE) (232Q DON'T 227Q BEFOREEXIT 224Q SINGLEFILEINDEX 220Q LISTFILES 213Q LISTFILES 203Q NAME 167Q QUOTE 133Q QUOTE 77Q QUOTE 47Q SINGLEFILEINDEX2 37Q PROMPTWINDOW 30Q PROMPTWINDOW 15Q PROMPTWINDOW) ( 25Q " not found.") SINGLEFILEINDEX2A0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FULL F 1 OUTF F 2 mergedIndexFlg F 3 RESETY) `hi PQR ci(16Q SINGLEFILEINDEX1 7 OBTAIN.MONITORLOCK) (2 \SINGLEFILEINDEX.LOCK) () SINGLEFILEINDEX2 D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 mergedIndexFlg I 1 OUTF I 0 FULL F 3 NOTLISTEDFILES F 4 LISPXHIST F 5 RESETVARSLST) ``o T!Uog hgZ JI6A1o` @` o` `` ` i@ @ S ch(171Q REMOVE 165Q ROOTFILENAME 157Q OLDLISTFILES1 150Q TERPRI 141Q PRIN1 127Q PRIN1 114Q PRIN1 104Q PRIN1 62Q ERROR! 54Q RESETRESTORE 42Q SINGLEFILEINDEX2A0001 17Q CREATE.MONITORLOCK) (145Q PROMPTWINDOW 136Q PROMPTWINDOW 133Q PRINTER 124Q PROMPTWINDOW 111Q PROMPTWINDOW 101Q PROMPTWINDOW 50Q ERROR 37Q INTERNAL 22Q \SINGLEFILEINDEX.LOCK 6 MONITORLOCKTYPE# 2 \SINGLEFILEINDEX.LOCK) ( 121Q " => " 76Q "indexed version of " 34Q (DUMMY.FOR.ERRORSET) 14Q "SingleFileIndexLock") SINGLEFILEINDEX1A0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 33Q function P 32Q newPos P 31Q linePos P 30Q currentPos P 27Q items P 26Q type P 21Q TEM P 20Q FNSMAPSL P 17Q nextFnStart P 16Q nextFnGroup P 15Q currentItem P 14Q \SFI.GETDEF.HASH P 13Q lastPage P 12Q typeNames P 11Q ItemPages P 10Q FULLS P 7 FULLEOLC P 6 PAGECOUNT P 5 LINECOUNT P 4 MAP P 3 COMS P 2 FNUM P 1 typesLST P 0 LINESPERPAGE F 34Q FULL F 35Q RESETVARSLST F 36Q OUTF F 37Q LINESPERPAGE F 40Q INDEXEDTYPESLST F 41Q RESETY F 42Q mergedIndexFlg) W>``gW@joW8gg c8hW:c:W8d g_"O"`ohhW:c:iW8 ILfLW8 \W8 hRoW<`gg c< hW:c:gl hhW:c:W8W< gnW< hhW:c:`W8 W8L W8L [IQO$GO&O_L_ W8_g __k]O __j!Odjg_,hO,hi _"O, W8KLO" hO"K _.AOO,O. _`O,O,O, O,O,_*O(O*h_(_&O$_$FO*&_(kgoW8O0 _4zO2O0dOj*OdO6 _4O _ __;O0_2OO0 O4OlO kj_4IO OWA@A ``o S!Tog hgZ JI(71Q ERROR! 64Q RESETRESTORE 52Q MERGEDFILEINDEX2A0001 27Q CREATE.MONITORLOCK 6 MERGEDFILEINDEX1) (60Q ERROR 47Q INTERNAL 32Q \SINGLEFILEINDEX.LOCK 16Q MONITORLOCKTYPE# 12Q \SINGLEFILEINDEX.LOCK) ( 44Q (DUMMY.FOR.ERRORSET) 24Q "SingleFileIndexLock") MERGEDFILEINDEX1 D1 (P 25Q item P 23Q ignoreables P 22Q filepkgtypeP P 21Q type P 20Q typePair P 16Q MAP P 15Q COMS P 14Q ROOT P 13Q file P 11Q FN P 10Q DATE P 7 IndexedList P 6 \SFI.GETDEF.HASH P 5 FULL P 4 currentItem P 3 types P 2 PAGECOUNT P 1 LINECOUNT P 0 LINESPERPAGE I 1 OUTF I 0 FILES F 26Q RESETVARSLST F 27Q LINESPERPAGE F 30Q INDEXEDTYPESLST F 31Q FILELINELENGTH) W.jdW0ToA hW,c,gn hhW,c,gl hhW,c,`ohhW,c,ioid oo hi i @9d Og _i O W2O O l O i @AOOg @_oOgg ]hW,c,Md _ _hMO _oKAOM O__ hi _$O  _"g"hgMOOghi hgO _&hO"MOOO$ hO"O O( O__*O& O*O"OhO_O(_((616Q MEMBER 566Q NDINFILECOMS? 562Q INFILECOMS? 533Q NDINFILECOMS? 527Q INFILECOMS? 514Q GETFILEPKGTYPE 463Q \SFI.PLURALIZE 451Q GETFILEPKGTYPE 430Q CLOSEF? 402Q \SFI.LOADCOMS 367Q GETFILEMAP 362Q ROOTFILENAME 343Q OPENFILE 316Q PrintMergedIndex 313Q SORT 271Q INDEXNEWPAGE 260Q PRIN1 252Q PRINTDOTS 242Q NCHARS 235Q NCHARS 225Q PRIN1 217Q INDEXNEWLINE 210Q GETFILEINFO 167Q INDEXNEWLINE 162Q \SFI.CENTERPRINT 155Q CONCAT 146Q DATE 136Q \SFI.CENTERPRINT 63Q RADIX 41Q LINELENGTH 20Q OUTFILE) (522Q METHODS 507Q METHODS 477Q METHODS 470Q INSTANCES 340Q OLD 335Q INPUT 310Q UALPHORDERCAR 205Q WRITEDATE 124Q USEMAPFLG 100Q USEMAPFLG 56Q RADIX 33Q LINELENGTH) ( 411Q (FNS) 330Q (PROGN (CLOSEF? OLDVALUE)) 152Q " --" 143Q "-- Listed on " 131Q "Indexed Files" 106Q (SETTOPVAL USEMAPFLG) 14Q (PROGN (CLOSEF? (OUTPUT OLDVALUE)))) PrintFileTitle D1 (I 0 file) )@o@g i oo (46Q INDEXNEWLINE 43Q \SFI.CENTERPRINT 40Q CONCAT 31Q DATE 22Q \SFI.CENTERPRINT 16Q CONCAT 13Q GETFILEINFO) (10Q WRITEDATE) ( 35Q " --" 26Q "-- Listed on " 4 " ") PrintIndex D1 (P 17Q COLUMN P 15Q ROW P 13Q triple P 12Q MAXFWIDTH P 6 LastItem P 5 NROWSREMAINING P 4 SPACING P 3 LEFT P 2 WIDTH P 1 NROWS P 0 NCOLUMNS I 2 type I 1 MaxIndexNo I 0 IndexedList F 20Q LINESPERPAGE F 21Q LINECOUNT) 4@j OOl A'l1_OO _dOO_O_ldAlA kZ@ I]Bi B4IlW W"W"W i BBo id i @MW W"_dOOYk OOhHkOON@OIOk ^6` N JN N N OdHL Ok_i Ok_Nbi @ Hk]`(451Q LENGTH 444Q INDEXNEWPAGE 420Q INDEXNEWLINE 402Q SPACES 366Q PRIN1 357Q PRINTDOTS 353Q NCHARS 344Q NCHARS 334Q PRIN1 325Q CHANGEFONT 314Q FNTH 216Q INDEXNEWLINE 211Q \SFI.CENTERPRINT 204Q CONCAT 173Q \SFI.BreakLine 164Q INDEXNEWPAGE 132Q INDEXNEWLINE 125Q \SFI.BreakLine 116Q \SFI.PrintIndexFactors 106Q NCHARS 45Q NCHARS) (322Q DEFAULTFONT) ( 201Q " INDEX") PrintMergedIndex D1 (P 24Q COLUMN P 22Q ROW P 13Q LastItem P 12Q SPACING P 11Q LEFT P 10Q NROWS P 7 NCOLUMNS P 6 index P 5 file P 4 type P 3 item P 2 MAXTWOFIELDWIDTH P 1 MAXFWIDTH P 0 WIDTH I 1 title I 0 IndexedList F 25Q LINESPERPAGE F 26Q LINECOUNT) KjddAoid i @ei ` o ` i hIK _dOOJIK _dOOHJK _dOOO_JlZHlX@ OW*W,_ dO O _@OkO$O"OkO(O&g@O$OO(k _ O(k_(OOK JK L L HJM M O(dO𳺿O i O$k_${Obi \(505Q INDEXNEWPAGE 453Q INDEXNEWLINE 443Q SPACES 424Q PRIN1 417Q PRINTDOTS 412Q NCHARS 403Q PRIN1 376Q PRINTDOTS 371Q NCHARS 365Q NCHARS 357Q PRIN1 317Q FNTH 216Q \SFI.PrintIndexFactors 153Q NCHARS 125Q NCHARS 101Q NCHARS 67Q INDEXNEWPAGE 62Q CHANGEFONT 53Q PRIN1 43Q CHANGEFONT 34Q INDEXNEWLINE 25Q INDEXNEWLINE 21Q \SFI.CENTERPRINT) (57Q DEFAULTFONT 40Q BOLDFONT) ( 50Q "No printable definitions." 14Q "MERGED INDEX") \SFI.PrintIndexFactors D1 (I 0 IndexedList F 4 NCOLUMNS F 5 WIDTH F 6 FILELINELENGTH F 7 LEFT F 10Q NROWS F 11Q SPACING) Z@ 1HVUl۹dIIkJJkcVUlTcUWlVTlٻdKKc TkjVUTTkcHTkch(3 LENGTH) NIL () TestForVar D1 (P 1 newVarName P 0 strm I 1 typesLstTriple I 0 line F 2 typeNames) b@ H` Yg#IgIgIgIgIdghAR IgR IIlIIi(136Q SHOULDNT 110Q FASSOC 75Q FASSOC 15Q READ 3 PositionForTest) (104Q CONSTANTS 63Q LAMA 54Q NLAML 46Q NLAMA 37Q LOCALVARS 30Q SPECVARS 21Q GLOBALVARS 12Q FILERDTBL) () TestForMacro D1 (P 2 propName P 1 newMacroName P 0 strm I 1 typesLstTriple I 0 line F 3 MACROPROPS F 4 typeNames) +@ !H` YH` ZdSIgT I(43Q FASSOC 25Q READ 15Q READ 3 PositionForTest) (37Q MACRO 22Q FILERDTBL 12Q FILERDTBL) () TestForBitmap D1 (P 2 char P 1 newVarName P 0 strm I 1 typesLstTriple I 0 line) X@ !H` YlCI@H` Zl2J k*J` dgdgihH` gI(116Q RATOM 64Q GETSYNTAX 51Q NCHARS 36Q RATOM 15Q READ 3 PositionForTest) (121Q READBITMAP 113Q FILERDTBL 76Q LEFTBRACKET 70Q LEFTPAREN 61Q FILERDTBL 33Q FILERDTBL 12Q FILERDTBL) () TestForResource D1 (I 1 typesLstTriple I 0 line) Ag@g @g (31Q TestForGenericDefinition 20Q TestForGenericDefinition 10Q SHOULDNT) (26Q GLOBALRESOURCE 15Q RESOURCE 3 RESOURCE) () TestForGenericDefinition D1 (P 4 ONFILETYPE P 3 FORM P 2 DefName P 1 ENTRYTYPE P 0 strm I 1 typesLstTriple I 0 line F 5 FULLS) Q@ A2H` ZghUd U` Kdg\dIdIhi I J(110Q \SFI.PLURALIZE 102Q GETFILEPKGTYPE 51Q SETFILEPTR 45Q READ 36Q GETFILEPTR 17Q READ 3 PositionForTest) (60Q QUOTE 42Q FILERDTBL 25Q QUOTE 14Q FILERDTBL) () TestForConstants D1 (P 0 FORM I 1 typesLstTriple I 0 line F 2 FULLS F 3 ItemPages F 4 linePos F 5 PAGECOUNT) J Rd RT R` Hg(H dYdYIlIgUhSch(30Q SETFILEPTR 24Q READ 14Q SETFILEPTR 7 GETFILEPTR) (70Q CONSTANTS 36Q CONSTANTS 21Q FILERDTBL) () TestForInstance D1 (P 3 className P 2 newInstanceName P 1 strm P 0 instanceNames I 1 typesLstTriple I 0 line F 4 typeNames) HAT @ "I` [I` ` dgdgihhI` ZH J(102Q MEMBER 75Q READ 42Q GETSYNTAX 34Q RATOM 24Q READ 12Q PositionForTest 5 FASSOC) (72Q FILERDTBL 54Q LEFTBRACKET 46Q LEFTPAREN 37Q FILERDTBL 31Q FILERDTBL 21Q FILERDTBL) () TestForMethod D1 (P 1 newMethodName P 0 strm I 1 typesLstTriple I 0 line F 2 typeNames) *@ H` oH` YgR I(43Q FASSOC 33Q PACK* 30Q RATOM 15Q RATOM 3 PositionForTest) (37Q METHOD 25Q FILERDTBL 12Q FILERDTBL) ( 21Q ".") TestForType D1 (P 2 newItemName P 1 itemNames P 0 strm I 1 typesLstTriple I 0 line F 3 typeNames) @ AS H` ZdI (32Q MEMBER 24Q READ 11Q FASSOC 3 PositionForTest) (21Q FILERDTBL) () PositionForTest D1 (P 0 strm I 0 line) F@ H ` dg"dgdgdgdgdgihH H(102Q SKREAD 20Q GETSYNTAX 12Q READC 3 OPENSTRINGSTREAM) (65Q BREAKCHAR 57Q RIGHTBRACKET 51Q LEFTBRACKET 42Q RIGHTPAREN 33Q LEFTPAREN 24Q SEPRCHAR 15Q FILERDTBL) () \SFI.UALPHORDER D1 (I 1 Y I 0 X) @ A (12Q ALPHORDER 7 U-CASE 3 U-CASE) NIL () (PRETTYCOMPRINT SINGLEFILEINDEXCOMS) (RPAQQ SINGLEFILEINDEXCOMS ((* * "Created by Christopher Tong and JonL White, February 1984.") (COMS ( * "Temporary kludge patch") (P (AND (BOUNDP (QUOTE INDEXEDTYPESLST)) (NULL INDEXEDTYPESLST) (SETQ INDEXEDTYPESLST (QUOTE NOBIND))))) (VARS (\SFI.INDIRECTION "Indirection Marker") ( DEFAULTINDEXEDTYPESLST (SUBST \SFI.INDIRECTION (QUOTE \SFI.INDIRECTION) (QUOTE ((VAR (RPAQ ADDTOVAR) TestForVar) (MACRO PUTPROPS TestForMacro) (CONSTANTS CONSTANTS TestForConstants) (RECORD ( \SFI.INDIRECTION CLISPRECORDTYPES)) (RESOURCE PUTDEF TestForResource) (BITMAP "RPAQ " TestForBitmap) ( CLASS "DEFCLASS ") (INSTANCE DEFINST TestForInstance) (METHOD METH TestForMethod) (GLOBALRESOURCE PUTDEF TestForGenericDefinition))))) (PRINTER (SELECTQ (SYSTEMTYPE) (D (QUOTE {LPT})) (QUOTE LPT:)))) (INITVARS (INDEXEDTYPESLST DEFAULTINDEXEDTYPESLST) (RELATIVEINDEXFLG) (\SINGLEFILEINDEX.LOCK NIL)) ( GLOBALVARS \SFI.INDIRECTION \SINGLEFILEINDEX.LOCK DEFAULTINDEXEDTYPESLST PRINTER) (COMS (* * "After CAROL, these will be in MACHINEINDEPENDENT.") (FNS \SFI.LISPSOURCEFILEP \SFI.GETFILEMAP) (P ( COND ((MOVD? (QUOTE \SFI.LISPSOURCEFILEP) (QUOTE LISPSOURCEFILEP)) (MOVD? (QUOTE \SFI.GETFILEMAP) ( QUOTE GETFILEMAP))) (T (PUTD (QUOTE \SFI.LISPSOURCEFILEP)) (PUTD (QUOTE \SFI.GETFILEMAP)))))) (COMS (* * "Random functions that ought to go into the system.") (FNS ILESSCADR UALPHORDERCAR PUTSASSOC PRINTDOTS \SFI.PLURALIZE) (* * "FNS which want to go into the system in either FILEPKG or LOADFNS.") ( FNS NDINFILECOMS? \NDINFILECOMS1 \SFI.LOADCOMS \SFI.GETFILVARDEF) (INITVARS (\SFI.GETDEF.HASH NIL))) ( COMS (* Index printout functions) (FNS \SFI.CENTERPRINT \SFI.LISTINGHEADER \SFI.BreakLine)) (FNS * FileIndexingFns) (FNS * TypeFindingFns) (GLOBALRESOURCES \A&PSTR) (DECLARE: DONTCOPY (DECLARE: EVAL@COMPILE (MACROS SFIMONITOR SFIBLKSTRING.INPUT) (RECORDS TYPESLSTPATTERN) (CONSTANTS (CR.EOLC 0) ( LF.EOLC 1) (CRLF.EOLC 2))) (DECLARE: EVAL@COMPILEWHEN (EQ COMPILEMODE (QUOTE D)) EVAL@LOADWHEN (EQ ( SYSTEMTYPE) (QUOTE D)) (FILES (LOADCOMP FROM ({PHYLUM}SOURCES> {PHYLUM}SOURCES>)) FILEIO) (FILES (LOADCOMP FROM ({PHYLUM}SOURCES> {PHYLUM}SOURCES>)) FILEIO)) (DECLARE: EVAL@COMPILEWHEN (EQ COMPILEMODE (QUOTE PDP-10)) EVAL@LOADWHEN (EQ COMPILEMODE (QUOTE PDP-10)) (P ( FILESLOAD (SYSLOAD FROM LISPUSERS) CJSYS)))) (DECLARE: COPYWHEN (NEQ COMPILEMODE (QUOTE D)) (FNS \SFI.UALPHORDER)) (DECLARE: DOCOPY DONTEVAL@LOAD (P (MOVD? (QUOTE LISTFILES1) (QUOTE OLDLISTFILES1)) ( /MOVD (QUOTE SINGLEFILEINDEX) (QUOTE LISTFILES1)) (SELECTQ (SYSTEMTYPE) (D (PUTD (QUOTE \SFI.UALPHORDER))) (MOVD? (QUOTE \SFI.UALPHORDER) (QUOTE UALPHORDER))) (OR (FIXP (GETTOPVAL (QUOTE LINESPERPAGE))) (SAVESETQ LINESPERPAGE (SELECTQ (SYSTEMTYPE) (D 65) 58))))) (GLOBALVARS FONTCHANGEFLG DEFAULTFONT PRETTYCOMFONT))) (AND (BOUNDP (QUOTE INDEXEDTYPESLST)) (NULL INDEXEDTYPESLST) (SETQ INDEXEDTYPESLST (QUOTE NOBIND))) (RPAQ \SFI.INDIRECTION "Indirection Marker") (RPAQ DEFAULTINDEXEDTYPESLST (SUBST \SFI.INDIRECTION (QUOTE \SFI.INDIRECTION) (QUOTE ((VAR (RPAQ ADDTOVAR) TestForVar) (MACRO PUTPROPS TestForMacro) (CONSTANTS CONSTANTS TestForConstants) (RECORD ( \SFI.INDIRECTION CLISPRECORDTYPES)) (RESOURCE PUTDEF TestForResource) (BITMAP "RPAQ " TestForBitmap) ( CLASS "DEFCLASS ") (INSTANCE DEFINST TestForInstance) (METHOD METH TestForMethod) (GLOBALRESOURCE PUTDEF TestForGenericDefinition))))) (RPAQ PRINTER (SELECTQ (SYSTEMTYPE) (D (QUOTE {LPT})) (QUOTE LPT:))) (RPAQ? INDEXEDTYPESLST DEFAULTINDEXEDTYPESLST) (RPAQ? RELATIVEINDEXFLG) (RPAQ? \SINGLEFILEINDEX.LOCK NIL) (COND ((MOVD? (QUOTE \SFI.LISPSOURCEFILEP) (QUOTE LISPSOURCEFILEP)) (MOVD? (QUOTE \SFI.GETFILEMAP) ( QUOTE GETFILEMAP))) (T (PUTD (QUOTE \SFI.LISPSOURCEFILEP)) (PUTD (QUOTE \SFI.GETFILEMAP)))) (RPAQ? \SFI.GETDEF.HASH NIL) (RPAQQ FileIndexingFns (SINGLEFILEINDEX SINGLEFILEINDEX2 SINGLEFILEINDEX1 \SFI.AnalyzeLine PrintFnDef PrintOneTypeIndex PrintRelativeFunctionIndex DetermineLinesPerPage INDEXCOPYBYTES INDEXNEWLINE INDEXNEWPAGE MERGEDFILEINDEX MERGEDFILEINDEX2 MERGEDFILEINDEX1 PrintFileTitle PrintIndex PrintMergedIndex \SFI.PrintIndexFactors)) (RPAQQ TypeFindingFns (TestForVar TestForMacro TestForBitmap TestForResource TestForGenericDefinition TestForConstants TestForInstance TestForMethod TestForType PositionForTest)) (RPAQQ \\A&PSTR.GLOBALRESOURCE NIL) (MOVD? (QUOTE LISTFILES1) (QUOTE OLDLISTFILES1)) (/MOVD (QUOTE SINGLEFILEINDEX) (QUOTE LISTFILES1)) (SELECTQ (SYSTEMTYPE) (D (PUTD (QUOTE \SFI.UALPHORDER))) (MOVD? (QUOTE \SFI.UALPHORDER) (QUOTE UALPHORDER))) (OR (FIXP (GETTOPVAL (QUOTE LINESPERPAGE))) (SAVESETQ LINESPERPAGE (SELECTQ (SYSTEMTYPE) (D 65) 58))) (PUTPROPS SINGLEFILEINDEX COPYRIGHT ("Xerox Corporation" 1984)) NIL