(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 1-Feb-98 09:30:42" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>internal>library>ARCLEANUP.;1) "31-Jan-98 19:10:48" bcompl'd in "Medley 31-Jan-98 ..." dated "31-Jan-98 19:12:50") (FILECREATED " 1-Apr-92 18:06:57" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>ARCLEANUP.;8| 14846 changes to%: (FNS AR.CLEANUP.DO.SUMMARIES) previous date%: "30-Mar-92 10:45:38" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>ARCLEANUP.;6|) AR.CLEANUPA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 AR.INFO.FILE.NAME F 3 SAVED.TDS.NAME F 4 SI::NLSETQ-VALUE) i@RS hcg(11 RENAMEFILE) (20 :NORMAL) () AR.CLEANUP :D8 (P 9 *CONDITION-HANDLER-BINDINGS* P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE P 5 INDEX.WINDOW P 4 NUMBERS P 3 SAVED.TDS.NAME P 1 INDEX.WINDOW P 0 LOCAL.AR.INDEX.NAME I 3 SUMMARY.LOCAL.DIR I 2 SUMMARY.FLG I 1 INDEX.LOCAL.DIR I 0 UPDATE.FLG F 10 AR.INDEX.DEFAULT.FILE.NAME F 11 AR.INFO.FILE.NAME F 12 *PROCEED-CASES* F 13 *CONDITION-HANDLER-BINDINGS*)  Adg !HCoi Hi oi WHg oi i @{Wg !W oMhW YJ`WioW O gN oi i n K J \ooi i Li i nlnlA o HWM oi ML M oi i Hjoi Hi oi H oi i oi HW i oi i B2nldn^l HWI IC I h(514 CLOSEW 507 AR.CLEANUP.DO.SUMMARIES 499 AR.QFORM.GROUP.CREATE 487 CREATEW 482 CREATEREGION 462 TERPRI 455 PRIN1 443 PRIN1 437 COPYFILE 428 PRIN1 416 TERPRI 409 PRIN1 397 DELFILE 390 PRIN1 378 PRIN1 370 PRIN1 355 TERPRI 348 PRIN1 336 CLOSEW 329 AR.INDEX.UPDATE 321 PRIN1 309 AR.QFORM.GROUP.CREATE 297 CREATEW 287 CREATEREGION 271 TERPRI 264 PRIN1 256 TERPRI 249 PRIN1 228 SORT 223 CL:REMOVE-DUPLICATES 215 \NCONC2 210 AR.GET.NUMS.FROM.TDS 201 BLOCK 192 TERPRI 185 PRIN1 161 AR.CLEANUPA0001 128 INFILEP 110 INFILEP 100 CONCAT 82 TERPRI 75 PRIN1 63 COPYFILES 49 PRIN1 37 PRIN1 29 PRIN1 12 CONCAT) (167 :NORMAL 139 SI::NLSETQ-PROCEED-CASE 95 -PROCESSED 58 >A 7 AR.INDEX) ( 449 "done" 422 "copying new index to file server..." 403 "done" 384 "..." 364 "deleting old AR index from " 342 "done" 315 "updating AR index...." 292 "old index" 243 "Will update AR numbers:" 235 "No numbers found in TDS file --- AR update aborted" 179 "Can't rename TDS file --- trying again" 148 (CL:ERROR . SI::NLSETQHANDLER) 116 "No TDS file --- AR update aborted" 69 "done" 43 "..." 23 "copying old AR index to ") AR.GET.NUMS.FROM.TDS :D8 (P 5 NUM? P 1 NUMBERS P 0 FILE I 0 FILENAME) W@gg @oHhddi JYH IH H ]3ҼK Lh[L&(62 READ 55 READ 47 CLOSEF 37 FILEPOS 15 OPENSTREAM) (10 OLD 5 INPUT) ( 26 " -- (") AR.PRINT.AND.IP.FILE :D8 (P 2 LOCALIPFILE P 1 LOCALTXTFILE P 0 REMOTETXTFILE I 3 FIELDS-TO-PRINT I 2 SUMMARY.LOCAL.DIR I 1 FILENAME I 0 QFORMWINDOW F 3 AR.SUMMARY.DIRECTORY) LggAgoAg h gSh BHoi Ai oi @IC YB(oi IH i oi oi @goghgI  C Zi oi BQoi JgoghgH  i oi I J oi i Ao (327 CONCAT 315 TERPRI 309 PRIN1 297 DELFILE 290 DELFILE 283 PRIN1 271 PRIN1 265 COPYFILE 260 PACKFILENAME.STRING 230 PRIN1 216 PRIN1 204 PRIN1 197 AR.MAKE.SUMMARY.FILE 191 AR.OPEN.IP.STREAM 186 PACKFILENAME.STRING 156 PRIN1 144 PRIN1 132 PRIN1 126 COPYFILE 118 PRIN1 103 AR.MAKE.SUMMARY.FILE 95 PRIN1 83 PRIN1 75 PRIN1 50 CL:APPLY 31 UNPACKFILENAME.STRING) (253 BODY 247 VERSION 237 EXTENSION 179 BODY 173 VERSION 163 EXTENSION 40 DIRECTORY 26 HOST 15 EXTENSION 9 BODY 4 PACKFILENAME.STRING) ( 322 ".txt" 303 "done" 277 " " 242 "IP" 224 "copying... " 210 " " 168 "IP" 150 "Creating Interpress file... " 138 " " 112 "copying... " 89 "... " 69 "Generating summary file: " 20 "txt") AR.QUERY.PRINT.AND.IP.FILE :D8 (P 2 AR.ALWAYS.CACHE.INDEX P 1 OPENED P 0 INDEX.WINDOW I 5 FIELDS-TO-PRINT I 4 SUMMARY.LOCAL.DIR I 3 FILENAME I 2 SLIST I 1 QLIST I 0 INDEX.WINDOW.OR.FILE F 3 AR.INDEX.DEFAULT.FILE.NAME) N@ HY'nldn^lA @SHi HAB HCDE IH h(73 CLOSEW 65 AR.PRINT.AND.IP.FILE 56 AR.QUERY 47 AR.QFORM.GROUP.CREATE 32 CREATEW 27 CREATEREGION 5 WINDOWP) NIL () AR.CLEANUP.DO.SUMMARIES :D8 (P 1 HACKER.NAME P 0 SORT.ORDER I 1 SUMMARY.LOCAL.DIR I 0 INDEX.WINDOW F 2 AR.CLEANUP.SORT.ORDER F 3 AR.CLEANUP.HACKER.NAMES) gR @oHoA @oHoA @oHoA @oRoA @oRoA @oHoA @oHoAo @oooAo S7d@ggIkl IhRIo A h(241 AR.QUERY.PRINT.AND.IP.FILE 234 CONCAT 215 SUBSTRING 186 AR.QUERY.PRINT.AND.IP.FILE 157 AR.QUERY.PRINT.AND.IP.FILE 132 AR.QUERY.PRINT.AND.IP.FILE 112 AR.QUERY.PRINT.AND.IP.FILE 92 AR.QUERY.PRINT.AND.IP.FILE 72 AR.QUERY.PRINT.AND.IP.FILE 52 AR.QUERY.PRINT.AND.IP.FILE 32 AR.QUERY.PRINT.AND.IP.FILE 10 REMOVE) (206 HAS 201 Attn%: 4 Status%:) ( 229 "Summary" 180 ((Edit-Date%: 9 T) (Date%: 9 T) (System%: 13 T) (Subsystem%: 14) (Status%: 10 T) (Attn%: 13) (Subject%: 55) (Priority%: 10) (Impact%: 8) (|Problem Type:| 13)) 174 "ClosedSummary" 169 (Status%: System%: Subsystem%:) 164 (AND (Status%: IS Closed) (OR (Date%: >= 1-Jun-90) (Edit-Date%: >= 1-Jun-90))) 151 ((Edit-Date%: 9 T) (Date%: 9 T) (System%: 13 T) (Subsystem%: 14) (Status%: 10 T) (Attn%: 13) (Subject%: 55) (Priority%: 10) (Impact%: 8) (|Problem Type:| 13)) 145 "FixedSummary" 139 (Status%: IS Fixed) 125 "OpenSummary" 119 (Status%: >= Open/Unreleased) 105 "DocSummary" 99 (AND (Status%: >= Open/Unreleased) (OR (System%: IS Documentation) (Subsystem%: IS Documentation) (|Problem Type:| IS Documentation))) 85 "AbsolutelySummary" 79 (AND (Status%: >= Open/Unreleased) (Priority%: IS Absolutely)) 65 "MaikoSummary" 59 (AND (Status%: >= Open/Unreleased) (System%: IS Maiko)) 45 "LoopsSummary" 39 (AND (Status%: >= Open/Unreleased) (System%: IS LOOPS)) 25 "RoomsSummary" 19 (AND (Status%: >= Open/Unreleased) (System%: IS Rooms))) AR.CLEANUP.REDO.SUMMARIES :D8 (I 1 SUMMARY.LOCAL.DIR I 0 INDEX.WINDOW) @ @oooA (28 AR.QUERY.PRINT.AND.IP.FILE 5 AR.CLEANUP.DO.SUMMARIES) NIL ( 21 "KelleySummary" 16 (Subsystem%: Status%:) 11 (OR (AND (System%: IS Programming% Environment) (Subsystem%: IS Break% Package)) (AND (System%: IS Common% Lisp) (OR (Subsystem%: IS Debugging) (Subsystem%: IS Break% Package) (Subsystem%: IS Error% System))))) AR.CLEANUP.NO.SUMMARIES :D8 (I 3 SUMMARY.LOCAL.DIR I 2 SUMMARY.FLG I 1 INDEX.LOCAL.DIR I 0 UPDATE.FLG) @AhC (8 AR.CLEANUP) NIL () (PRETTYCOMPRINT ARCLEANUPCOMS) (RPAQQ ARCLEANUPCOMS ((FILES AREDIT ARINDEX) (COMS (* ; "The main CLEANUP code") (FNS AR.CLEANUP AR.GET.NUMS.FROM.TDS AR.PRINT.AND.IP.FILE AR.QUERY.PRINT.AND.IP.FILE) (* ; "Special versions of CLEANUP") (FNS AR.CLEANUP.DO.SUMMARIES AR.CLEANUP.REDO.SUMMARIES AR.CLEANUP.NO.SUMMARIES)) (COMS (* ; "List of names to generate summaries for") (INITVARS ( AR.CLEANUP.HACKER.NAMES (QUOTE (Bane Gadener Masinter Mitani Osamu Porter Prolog Shimizu Sybalsky vanMelle Welch))) (AR.CLEANUP.SORT.ORDER (QUOTE (System%: Subsystem%: Status%: Priority%: Impact%:))) (AR.SUMMARY.DIRECTORY "{AR:MV:Envos}Summaries>")) (P (CL:PROCLAIM (QUOTE (CL:SPECIAL AR.CLEANUP.HACKER.NAMES AR.CLEANUP.SORT.ORDER AR.SUMMARY.DIRECTORY))))))) (FILESLOAD AREDIT ARINDEX) (RPAQ? AR.CLEANUP.HACKER.NAMES (QUOTE (Bane Gadener Masinter Mitani Osamu Porter Prolog Shimizu Sybalsky vanMelle Welch))) (RPAQ? AR.CLEANUP.SORT.ORDER (QUOTE (System%: Subsystem%: Status%: Priority%: Impact%:))) (RPAQ? AR.SUMMARY.DIRECTORY "{AR:MV:Envos}Summaries>") (CL:PROCLAIM (QUOTE (CL:SPECIAL AR.CLEANUP.HACKER.NAMES AR.CLEANUP.SORT.ORDER AR.SUMMARY.DIRECTORY))) (PUTPROPS ARCLEANUP COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1989 1990 1992)) NIL