(FILECREATED " 8-NOV-83 16:43:09" ("compiled on " {PHYLUM}LIBRARY>SINGLEFILEINDEX.;7) " 7-NOV-83 13:39:03" brecompiled changes: SINGLEFILEINDEX MERGEDFILEINDEX INDEXNEWLINE INDEXNEWPAGE INDEXCOPYBYTES in WORK dated " 7-NOV-83 14:04:49") (FILECREATED " 8-NOV-83 16:42:39" {PHYLUM}LIBRARY>SINGLEFILEINDEX.;7 18457 changes to: (FNS MERGEDFILEINDEX INDEXCOPYBYTES SINGLEFILEINDEX INDEXNEWLINE INDEXNEWPAGE) previous date: " 8-NOV-83 16:23:17" {PHYLUM}LIBRARY>SINGLEFILEINDEX.;6) SINGLEFILEINDEXA0935 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 40Q CURFN P 37Q INUM P 17Q INUM P 5 CURFN P 3 FULL P 1 PAGECOUNT P 0 LINECOUNT F 41Q RESETVARSLST F 42Q OUTF F 43Q INF F 44Q LINESPERPAGE F 45Q RESETY F 46Q NEWPAGEFLG) %!jdWHWFgg ´gKhhhWBcB¿KWF µK` gð´o^µ%i´K \³(oi ¿Ki ¿i ¿h±¿K ð¢h°ÖN°ÍoWDµ`gg cD hWBcB¿WDg µJºgnèWD hhWBcB¿gl hhWBcB¿KoKg i ¿oo ¿¿jd0L°_d_¿0O°;d_¿O O _¿dOñ¢¿O_ ¿OOkØ__*¿O,µ O*h_.‚O*&_,¿µÅO._$šO&µ>O$_(_&¿µ¢O(_"g ¿O"³-¿` ¿o ¿` ¿¿±å _&O$°ÂO O kØØQ`O0lØÛ_2¿`O0lØO2ÚÙ_6¿O0O6lÛO2ÛØ_0¿O6lÛO2kÙÛlØ_8¿O"¢±ŽJHÙ_4k_¿_¿OOñ³nO2k_¿_¿OOñ³RO"OO4OkÙÚØ _:µ OkØ_°â ¿O0O: ÙO: Ù ¿O: ¿OdO2ð³Ð¿O8 ¿°Å¿OkØ_°‘¿O:_"±ÿtjdL±“d±„d_¿KWDOkØ_>¿HlØJñ“¿`O> lØÙ ¿` ¿o ¿O> ¿o ¿` ¿g ¿O KWDOõW<_µ‚±˜Ng ¿ghhhW:c:¿` ¿gnè hhW:c:¿gl hhW:c:¿oW< _i ¿oo ¿¿N’±ý¿` ¿o ¿` ¿¿±Ó_ _¿gOhhhW:c:¿OO µ#O` gð´O` gð´O ]³oi ¿Oi ¿i ¿°:OOh _¿jº0M° dh_¿_µ)h_(šO*µO(_,_*¿µáO,O±þÄ _*O(°ê_OJkØZhN¾KO O Ø_¿dOñ¢¿O»O°¨KlØ`O(lØÛ_0¿`O(lØO0ÚÙ_4¿O(O4lÛO0ÛØ_(¿O4lÛO0kÙÛlØ_6¿N¢±´LHÙ_2k_$¿_"¿O$O"ñ’±”O0k_ ¿_¿O Oñ³vNO$O2O kÙÚØ _8µ O kØ_ °ã_*¿O8_,¿O8_.¿O* ¿O(O* O, lØØÙ ¿O, ¿lO. Ù ¿O. ¿O dO0𳫿O6 ¿° ¿O$kØ_$±ÿk¿O8^±ÿNoi ¿O°(d_&¿¿O&oO&g i ¿O& ¿µÙ` ¿W<c@i(1264Q CLOSEF 1251Q CLOSEF 1243Q \SINGLEFILEINDEXBLOCK/CENTERPRINT 1237Q CONCAT 1234Q GETFILEINFO 1215Q \SINGLEFILEINDEXBLOCK/INDEXNEWLINE 1200Q \SINGLEFILEINDEXBLOCK/CENTERPRINT 1157Q \SINGLEFILEINDEXBLOCK/INDEXNEWPAGE 1142Q \SINGLEFILEINDEXBLOCK/INDEXNEWLINE 1134Q SPACES 1115Q PRIN1 1107Q \SINGLEFILEINDEXBLOCK/PRINTDOTS 1103Q NCHARS 1073Q PRIN1 1065Q \SINGLEFILEINDEXBLOCK/PRINTDOTS 1055Q NCHARS 1050Q NCHARS 1040Q PRIN1 771Q FNTH 557Q NCHARS 552Q NCHARS 514Q LAST 424Q \NCONC2 410Q TERPRI 403Q PRIN1 374Q PRIN1 360Q LOADFILEMAP 345Q RATOM 327Q RATOM 315Q GETFILEMAP 261Q INPUT 256Q INFILE 244Q \SINGLEFILEINDEXBLOCK/INDEXNEWPAGE 240Q CHANGEFONT 231Q PRIN1 221Q CHANGEFONT 212Q \SINGLEFILEINDEXBLOCK/INDEXNEWLINE 201Q \SINGLEFILEINDEXBLOCK/INDEXNEWLINE 175Q \SINGLEFILEINDEXBLOCK/CENTERPRINT 172Q CONCAT 163Q DATE 153Q \SINGLEFILEINDEXBLOCK/CENTERPRINT 145Q CONCAT 121Q RADIX 76Q LINELENGTH 64Q OUTFILE 41Q OUTPUT 32Q SORT) (1261Q PRINTER 1231Q WRITEDATE 627Q FILELINELENGTH 613Q FILELINELENGTH 350Q FILECREATED 342Q FILERDTBL 332Q %( 324Q FILERDTBL 267Q CLOSEF? 235Q DEFAULTFONT 216Q BOLDFONT 114Q RADIX 70Q LINELENGTH 61Q PRINTER 36Q CLOSEF? 27Q FILEINDEXALPHORDER) ( 1224Q " " 1174Q "Files Indexed" 370Q "Could not get file map for " 226Q "No Functions." 167Q " --" 160Q "-- Listed on " 140Q "Merged Index of Files: ") MERGEDFILEINDEX D1 (P 1 RESETY P 0 LISPXHIST I 0 FILES F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q MERGEDFILEINDEXA0938) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SINGLEFILEINDEXBLOCK/INDEXNEWLINE D1 (F 0 LINECOUNT F 1 LINESPERPAGE) PkØcQñ´(16Q \SINGLEFILEINDEXBLOCK/INDEXNEWPAGE 2 TERPRI) NIL () \SINGLEFILEINDEXBLOCK/INDEXNEWPAGE D1 (F 0 PAGECOUNT F 1 LINECOUNT) 0l l9ñ•`ll0l ñ¢mÜ…`l Ð hj jcPkØc(55Q \SINGLEFILEINDEXBLOCK/LISTINGHEADER 42Q POSITION 35Q PRIN3) (27Q \OneCharAtomBase 10Q \OneCharAtomBase) () \SINGLEFILEINDEXBLOCK/PRINTDOTS D1 (L (0 N)) 0@lÛdjñ›o ¿kÙ°ò@lÜHjño ¹HkÙX°ñI(45Q PRIN1 16Q PRIN1) NIL ( 42Q "." 13Q "........") \SINGLEFILEINDEXBLOCK/LISTINGHEADER D1 (F 0 CURFN F 1 FULL F 2 INUM F 3 PAGECOUNT) JQ P²$o ¿P ¿o ¿R ¿o ¿`l Ùi o oS (107Q \SINGLEFILEINDEXBLOCK/INDEXNEWLINE 104Q \SINGLEFILEINDEXBLOCK/INDEXNEWLINE 101Q PRINTNUM 71Q PRIN1 62Q TAB 47Q PRIN1 37Q PRIN1 32Q PRIN1 22Q PRIN2 15Q PRIN1 3 PRIN1) (53Q FILELINELENGTH) ( 75Q (FIX 4) 66Q "Page " 44Q "] cont.)" 27Q " [" 12Q " (") \SINGLEFILEINDEXBLOCK/CENTERPRINT D1 (L (1 BOLDFLG 0 STR)) .`@ ÙlÛ A²` ¿@ ¿` ƒ@ ¿(53Q \SINGLEFILEINDEXBLOCK/INDEXNEWLINE 47Q PRIN1 42Q CHANGEFONT 33Q PRIN1 26Q CHANGEFONT 15Q TAB 6 NCHARS) (37Q DEFAULTFONT 23Q BOLDFONT 2 FILELINELENGTH) () \SINGLEFILEINDEXBLOCK/INDEXCOPYBYTES D1 (L (3 END 2 START 1 OUT 0 IN) F 10Q LINECOUNT F 11Q LINESPERPAGE) Ù@B @ A bHʺCBÙdjñ¢±ºH ]dl ð²@¿Jdjð²#¿h¼K²WWlÙñ˜¿h[±¿i[±„lð´i°z¼IÉ ¾Il lN°ml ð²VL¤Jkð²KŸWWlÙñ–¿h°9°2IÉ _¿Il lO¿K²WdWlÙñ˜¿¿hŽWkØcWñ“¿i»h°Ml ð“„IM ¿h[\¿k±ÿDi(314Q \BOUT 306Q \SINGLEFILEINDEXBLOCK/INDEXNEWPAGE 270Q \SINGLEFILEINDEXBLOCK/INDEXNEWPAGE 250Q \SINGLEFILEINDEXBLOCK/INDEXNEWPAGE 206Q \SINGLEFILEINDEXBLOCK/INDEXNEWLINE 177Q \SINGLEFILEINDEXBLOCK/INDEXNEWPAGE 111Q \SINGLEFILEINDEXBLOCK/INDEXNEWLINE 100Q \SINGLEFILEINDEXBLOCK/INDEXNEWPAGE 14Q \GETSTREAM 10Q \GETSTREAM 4 SETFILEPTR) NIL () FILEINDEXALPHORDER D1 (I 1 B I 0 A) @ A (14Q ALPHORDER 11Q U-CASE 4 U-CASE) NIL () SFILISTFILES1 D1 (P 0 INF I 0 FILE F 1 NOTLISTEDFILES F 2 PRINTER) E@ H ²4oi ¿Hi ¿oi ¿Ri ¿i Hi Q co@ (102Q OLDLISTFILES1 67Q REMOVE 63Q NAMEFIELD 56Q TERPRI 51Q PRIN1 43Q PRIN1 32Q PRIN1 24Q PRIN1 12Q SINGLEFILEINDEX 3 INFILEP) NIL ( 75Q "" 37Q " => " 20Q "indexed version of ") (PRETTYCOMPRINT SINGLEFILEINDEXCOMS) (RPAQQ SINGLEFILEINDEXCOMS ((FNS SINGLEFILEINDEX MERGEDFILEINDEX INDEXNEWLINE INDEXNEWPAGE PRINTDOTS LISTINGHEADER CENTERPRINT FILEINDEXALPHORDER) (FNS INDEXCOPYBYTES) (FNS SFILISTFILES1) (VARS (PRINTER (SELECTQ (SYSTEMTYPE) (D (QUOTE {LPT})) (QUOTE LPT:)))) (DECLARE: DOCOPY DONTEVAL@LOAD (P (MOVD? ( QUOTE LISTFILES1) (QUOTE OLDLISTFILES1)) (/MOVD (QUOTE SFILISTFILES1) (QUOTE LISTFILES1)) (COND ((NOT (FIXP (GETTOPVAL (QUOTE LINESPERPAGE)))) (SAVESETQ LINESPERPAGE (SELECTQ (SYSTEMTYPE) (D 65) 58)))))) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS DefineqList FileMap FnPointer) (P (SELECTQ (COMPILEMODE) ( PDP-10 (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) CJSYS)) NIL))) (BLOCKS ( SINGLEFILEINDEXBLOCK SINGLEFILEINDEX MERGEDFILEINDEX INDEXNEWLINE INDEXNEWPAGE PRINTDOTS LISTINGHEADER CENTERPRINT INDEXCOPYBYTES (ENTRIES SINGLEFILEINDEX MERGEDFILEINDEX) (LOCALFREEVARS LINECOUNT PAGECOUNT CURFN INUM FULL) (GLOBALVARS FILELINELENGTH PRINTER FONTCHANGEFLG DEFAULTFONT PRETTYCOMFONT) )))) (RPAQ PRINTER (SELECTQ (SYSTEMTYPE) (D (QUOTE {LPT})) (QUOTE LPT:))) (MOVD? (QUOTE LISTFILES1) (QUOTE OLDLISTFILES1)) (/MOVD (QUOTE SFILISTFILES1) (QUOTE LISTFILES1)) (COND ((NOT (FIXP (GETTOPVAL (QUOTE LINESPERPAGE)))) (SAVESETQ LINESPERPAGE (SELECTQ (SYSTEMTYPE) (D 65) 58)))) (PUTPROPS SINGLEFILEINDEX COPYRIGHT (NONE)) NIL