(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 1-Feb-98 09:32:29" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>internal>library>ARHACK.;1) "31-Jan-98 19:10:48" bcompl'd in "Medley 31-Jan-98 ..." dated "31-Jan-98 19:12:50") (FILECREATED "12-Sep-91 19:04:19" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>ARHACK.;3| 33540 changes to%: (VARS ARHACKCOMS) (FNS OBSOLETE.MANY.ARS) previous date%: "15-Jun-90 10:53:51" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>ARHACK.;2|) AR.GET.PLIST :D8 (P 14 ITEMNAME P 8 STR P 7 SPEC P 6 CONDITION P 5 MAP P 4 NUM/OR/FILE I 3 SCRATCH.STREAM I 2 AS-STRINGS? I 1 ITEMS I 0 ARLIST) Cgg b@ HI\CA _OLN`oLN h@Ad_M_`CO O _COjO OOO >_OO jO"lOBOO _O Oh_O&_OJ KhZHX2K&(191 MKATOM 135 %%ARRAY-BASE 116 ALLOCSTRING 106 SETFILEPTR 74 CL:FORMAT 44 \MVLIST 39 AR.FETCH.AND.PARSE.AR 17 OPENSTREAM) (161 FDEV 154 STREAM 62 PROMPTWINDOW 12 BOTH 7 {NODIRCORE}) ( 67 "~%%Can't read AR ~A because: ~A") NAB.TEST.CASES :D8 (P 6 NUM P 4 INFO P 3 TEXT P 2 ITEMS P 1 SCRATCH P 0 NUMS I 1 NUMS.OR.QFORMWINDOW I 0 FIELD-TO-GET) Ad gg @gh#oi Hi i i HMh^hJiI \[[K jQoNi li Li i @i li Ki i i M](185 TERPRI 178 TERPRI 171 PRIN1 163 SPACES 154 PRIN1 146 TERPRI 139 PRIN1 128 SPACES 119 PRINTNUM 103 NCHARS 90 AR.GET.PLIST 68 TERPRI 61 TERPRI 54 PRIN1 46 PRIN1 23 OPENSTREAM 8 AR.NUMS.FROM.QUERY) (29 Subject%: 18 BOTH 13 {NODIRCORE}) ( 112 (FIX 5) 40 "will examine AR numbers: ") LAST-CHANGED-BEFORE :D8 (P 5 TRIPLE P 1 DATE I 1 DATE-STRING I 0 ARLIST) K@oi A BHJ] jMM IMK Lh[HXL&(49 IDATE 35 NCHARS 17 IDATE 11 AR.GET.PLIST) NIL ( 5 (Edit-Date%: Date%:)) AR.GET.SUBMITS.FROM.TDS :D8 (I 0 FILENAME) @g (10 AR.GET.ARS.FROM.TDS) (5 SUBMIT) () AR.GET.FIXES.FROM.TDSA0001 :D8 (I 1 INFO I 0 AR#) 4oA 'oA oA oA (49 STRPOS 36 STRPOS 23 STRPOS 10 STRPOS) NIL ( 43 "->Obsolete" 30 "->Superseded" 17 "->Declined" 4 "->Fixed") AR.GET.FIXES.FROM.TDS :D8 (I 0 FILENAME) @gg (15 AR.GET.ARS.FROM.TDS) (10 AR.GET.FIXES.FROM.TDSA0001 5 EDIT) () AR.GET.ARS.FROM.TDSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 5 INFO P 4 AR# P 0 SEARCHSTR I 0 SI::*CLEANUP-FORMS* F 6 FILE F 7 TYPE F 8 PREDFN) ~oWo QHVhddi` TWV V V ] l(MlmMkm WLMlWLMhJ KhZK&I(88 SUBSTRING 69 CHCON1 63 CL:READ-LINE 56 CL:READ 49 SKREAD 38 FILEPOS 18 CONCAT) (32 UPPERCASEARRAY) ( 13 "" 4 " -- (") AR.GET.ARS.FROM.TDSA0002 :D8 (F 0 FILE) P (5 CLOSEF) NIL () AR.GET.ARS.FROM.TDS :D8 (P 1 *READTABLE* P 0 FILE I 2 PREDFN I 1 TYPE I 0 FILENAME F 2 AR.INFO.FILE.NAME) 6@Rgg `g H $(47 CLOSEF 41 \MVLIST 36 AR.GET.ARS.FROM.TDSA0001 18 OPENSTREAM) (31 AR.GET.ARS.FROM.TDSA0002 23 FILERDTBL 13 OLD 8 INPUT) () COLLECT-FIXES :D8 (P 3 FILE) 60g dK XI HZYJ YH(47 LAST 25 AR.GET.FIXES.FROM.TDS 12 DIRECTORY) (7 {ERIS}*.TDS-PROCESSED) () COLLECT-SUBMISSIONS :D8 (P 3 FILE) 60g dK XI HZYJ YH(47 LAST 25 AR.GET.SUBMITS.FROM.TDS 12 DIRECTORY) (7 {ERIS}*.TDS-PROCESSED) () FIX.MANY.ARSA0001 :D8 (P 2 NEWVALUE P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 ARFORM F 4 ARMENU F 5 AR# F 6 SI::NLSETQ-VALUE F 7 STATUS F 8 NO.RELEASE.NOTE) i@TU oSg SgWghoJ j gJhhW&oSg joh  T hc g(137 AR.FORM.PROGRAMMATIC.PUT 130 AR.REPLACE.FILL.INS 123 CL:APPEND 108 NCHARS 103 CL:STRING-TRIM 98 AR.GET.BUTTON.FIELD.AS.TEXT 63 NCHARS 33 CL:STRING-TRIM 28 AR.GET.BUTTON.FIELD.AS.TEXT 11 AR.FORM.PROGRAMMATIC.GET) (146 :NORMAL 93 |Release Note:| 72 |Assigned To:| 49 Fixed 40 Status%: 23 Attn%:) ( 116 ((|Release Note:| "None required")) 87 (#\Space) 57 (Attn%: "") 17 (#\Space)) FIX.MANY.ARS :D8 (P 8 *CONDITION-HANDLER-BINDINGS* P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 4 BAD.ARS P 3 ARMENU P 2 AR# P 1 ARFORM I 2 NO.RELEASE.NOTE I 1 STATUS I 0 ARLIST F 9 *PROCEED-CASES* F 10 *CONDITION-HANDLER-BINDINGS*) A:@o 2I H6Loi Li i ho A oi Ji i `WioWN gMoi i JLI i HX[(185 TEDIT.STREAMCHANGEDP 179 TEXTSTREAM 168 TERPRI 161 PRIN1 137 FIX.MANY.ARSA0001 107 TERPRI 100 PRIN1 92 PRIN1 76 \ILLEGAL.ARG 68 MEMBER 56 TERPRI 49 PRIN1 41 PRIN1 22 AR.GET.MENU.FROM.MAIN.WINDOW 13 AR.SELECT.WINDOW) (143 :NORMAL 116 SI::NLSETQ-PROCEED-CASE) ( 155 "error reading AR!!!" 125 (CL:ERROR . SI::NLSETQHANDLER) 86 "Fixing " 63 (New Open Fixed Closed Declined Superseded Incomplete Obsolete Wish) 35 "bad ARs: " 8 "Select AR form") FIX.NO.RELEASE.NOTE :D8 (I 1 STATUS I 0 ARLIST) @Ai (7 FIX.MANY.ARS) NIL () CHANGE.MANY.ARSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 ARMENU F 7 CHANGE F 8 ARFORM F 9 SI::NLSETQ-VALUE) Ki@VW W0WdZJhLKh]K&M V hcg(63 AR.FORM.PROGRAMMATIC.PUT 56 AR.REPLACE.FILL.INS 13 AR.FORM.PROGRAMMATIC.GET) (72 :NORMAL) () CHANGE.MANY.ARS :D8 (P 10 *CONDITION-HANDLER-BINDINGS* P 9 SI::*NLSETQFLAG* P 8 *PROCEED-CASES* P 7 SI::NLSETQ-VALUE P 6 CHANGE P 5 CNT P 3 BAD.ARS P 2 NCHANGES P 1 ARMENU P 0 ARFORM I 0 CHANGE.SPEC F 11 *PROCEED-CASES* F 12 *CONDITION-HANDLER-BINDINGS*) o H @ @kLoi Ki i hoi Ni oi oMi oi oJi oi i `WioW O gOoi i NKH i LMkԽ.(237 TEDIT.STREAMCHANGEDP 231 TEXTSTREAM 220 TERPRI 213 PRIN1 188 CHANGE.MANY.ARSA0001 157 TERPRI 150 PRIN1 138 PRINTNUM 125 PRIN1 113 PRINTNUM 100 PRIN1 88 PRIN1 80 PRIN1 65 TERPRI 58 PRIN1 50 PRIN1 27 LENGTH 18 AR.GET.MENU.FROM.MAIN.WINDOW 9 AR.SELECT.WINDOW) (194 :NORMAL 166 SI::NLSETQ-PROCEED-CASE) ( 207 "error reading AR!!!" 175 (CL:ERROR . SI::NLSETQHANDLER) 144 ")" 131 (FIX 1) 119 "/" 106 (FIX 1) 94 " (" 74 "doing change: " 44 "bad ARs: " 4 "Select AR form") CLOSE.MANY.ARSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 AR# F 3 ARMENU F 4 ARFORM F 5 BAD.ARS F 6 SI::NLSETQ-VALUE) ei@SR oTg To S "oi Ri i RUc hdc g(81 TERPRI 74 PRIN1 66 PRIN1 53 AR.FORM.PROGRAMMATIC.PUT 46 AR.REPLACE.FILL.INS 33 CL::SIMPLE-STRING-EQUAL 28 AR.GET.BUTTON.FIELD.AS.TEXT 11 AR.FORM.PROGRAMMATIC.GET) (98 :NORMAL 23 Status%:) ( 60 "AR not Fixed first: " 41 ((Status%: Closed)) 17 "Fixed") CLOSE.MANY.ARS :D8 (P 10 *CONDITION-HANDLER-BINDINGS* P 9 SI::*NLSETQFLAG* P 8 *PROCEED-CASES* P 7 SI::NLSETQ-VALUE P 6 AR# P 5 CNT P 3 BAD.ARS P 2 ARMENU P 1 ARFORM P 0 AR.NO.MESSAGE.FLG I 0 ARLIST F 11 *PROCEED-CASES* F 12 *CONDITION-HANDLER-BINDINGS*) io I @kL%oi Koi i hoi Ni i `WioW O gOoi i NKI i LMkԽe(177 TEDIT.STREAMCHANGEDP 171 TEXTSTREAM 160 TERPRI 153 PRIN1 128 CLOSE.MANY.ARSA0001 97 TERPRI 90 PRIN1 82 PRIN1 67 TERPRI 60 PRIN1 45 PRIN1 22 AR.GET.MENU.FROM.MAIN.WINDOW 13 AR.SELECT.WINDOW) (134 :NORMAL 106 SI::NLSETQ-PROCEED-CASE) ( 147 "error reading AR!!!" 115 (CL:ERROR . SI::NLSETQHANDLER) 76 "Closing " 54 "None." 39 "ARs not closed: " 8 "Select AR form") OBSOLETE.MANY.ARSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 ARMENU F 3 AR# F 4 ARFORM F 5 SI::NLSETQ-VALUE) ,i@RS To R hdc g(30 AR.FORM.PROGRAMMATIC.PUT 23 AR.REPLACE.FILL.INS 11 AR.FORM.PROGRAMMATIC.GET) (41 :NORMAL) ( 18 ((Status%: Obsolete) (Attn%: ""))) OBSOLETE.MANY.ARS :D8 (P 10 *CONDITION-HANDLER-BINDINGS* P 9 SI::*NLSETQFLAG* P 8 *PROCEED-CASES* P 7 SI::NLSETQ-VALUE P 6 AR# P 5 CNT P 3 BAD.ARS P 2 ARMENU P 1 ARFORM P 0 AR.NO.MESSAGE.FLG I 0 ARLIST F 11 *PROCEED-CASES* F 12 *CONDITION-HANDLER-BINDINGS*) io I @kL%oi Koi i hoi Ni i `WioW O gOoi i NKI i LMkԽe(177 TEDIT.STREAMCHANGEDP 171 TEXTSTREAM 160 TERPRI 153 PRIN1 128 OBSOLETE.MANY.ARSA0001 97 TERPRI 90 PRIN1 82 PRIN1 67 TERPRI 60 PRIN1 45 PRIN1 22 AR.GET.MENU.FROM.MAIN.WINDOW 13 AR.SELECT.WINDOW) (134 :NORMAL 106 SI::NLSETQ-PROCEED-CASE) ( 147 "error reading AR!!!" 115 (CL:ERROR . SI::NLSETQHANDLER) 76 "Closing " 54 "None." 39 "ARs not obsoleted: " 8 "Select AR form") LIST.NUM.STATUS.PRIORITY :D8 (I 1 FIELDS I 0 ARLIST) @Aoi (14 AR.GET.PLIST) NIL ( 8 (Status%: Priority%: |Problem Type:| System%: Subsystem%:)) COUNT-ARS :D8 (P 13 O/O P 12 O/H P 11 O/A P 10 F/O P 9 F/H P 8 F/A P 7 HOPE P 6 ABS P 5 OTHER P 4 OPEN P 3 NEW P 2 FIXED P 1 AR I 0 ARLIST) i i oi i i @ jZ[\]^_______Hoi i oi Oi oi Oi i oi Oi oi Oi i oi Oi oi Oi i i i i i oi i i @ jZ[\]^_______Hoi i oi Oi oi Oi i oi Oi oi Oi i oi Oi oi Oi i i i i i oi i i @ jZ[\]^_______Hoi i oi Oi oi Oi i oi Oi oi Oi i oi Oi oi Oi i i i i i oi i i @ jZ[\]^_______Hoi i oi Oi oi Oi i oi Oi oi Oi i oi Oi oi Oi i i hgI IdgdgIKkԻIdgNkԾOk_gOk_Ok_MkԽOk_dg%dgdgdgdgEJkԺIdgNkԾOk_MgOk_Ok_6MkԽOk_)IdgNkԾgOk_MkԽHXRYdgdgdgEKkԻIdgNkԾOk_gOk_Ok_MkԽOk_dg%dgdgdgdgBJkԺIdgNkԾOk_JgOk_Ok_4MkԽOk_(IdgNk^gOk_Mk]HXNYdgdgdgEKkԻIdgNkԾOk_gOk_Ok_MkԽOk_dg%dgdgdgdgBJkԺIdgNkԾOk_JgOk_Ok_4MkԽOk_(IdgNk^gOk_Mk]HXJgI  IgIdgdgdgEKkԻIdgNkԾOk_gOk_Ok_MkԽOk_dg%dgdgdgdgBJkԺIdgNkԾOk_JgOk_Ok_4MkԽOk_(IdgNk^gOk_Mk]HX'(1790 MEMBER 1014 MEMBER 999 TERPRI 992 TERPRI 985 PRIN1 976 PRIN1 964 PRIN1 955 PRIN1 943 TERPRI 936 PRIN1 927 PRIN1 915 PRIN1 906 PRIN1 894 TERPRI 887 PRIN1 878 PRIN1 866 PRIN1 857 PRIN1 845 TERPRI 838 PRIN1 794 TERPRI 787 TERPRI 780 PRIN1 768 TERPRI 761 TERPRI 754 TERPRI 747 TERPRI 740 TERPRI 733 PRIN1 724 PRIN1 712 PRIN1 703 PRIN1 691 TERPRI 684 PRIN1 675 PRIN1 663 PRIN1 654 PRIN1 642 TERPRI 635 PRIN1 626 PRIN1 614 PRIN1 605 PRIN1 593 TERPRI 586 PRIN1 542 TERPRI 535 TERPRI 528 PRIN1 516 TERPRI 509 TERPRI 502 TERPRI 495 TERPRI 488 TERPRI 481 PRIN1 472 PRIN1 460 PRIN1 451 PRIN1 439 TERPRI 432 PRIN1 423 PRIN1 411 PRIN1 402 PRIN1 390 TERPRI 383 PRIN1 374 PRIN1 362 PRIN1 353 PRIN1 341 TERPRI 334 PRIN1 290 TERPRI 283 TERPRI 276 PRIN1 264 TERPRI 257 TERPRI 250 TERPRI 243 TERPRI 236 TERPRI 229 PRIN1 220 PRIN1 208 PRIN1 199 PRIN1 187 TERPRI 180 PRIN1 171 PRIN1 159 PRIN1 150 PRIN1 138 TERPRI 131 PRIN1 122 PRIN1 110 PRIN1 101 PRIN1 89 TERPRI 82 PRIN1 38 TERPRI 31 TERPRI 24 PRIN1 12 TERPRI 5 TERPRI) (2044 Hopefully 2030 Absolutely 1990 Hopefully 1970 Absolutely 1952 Superseded 1944 Incomplete 1935 Obsolete 1926 Declined 1917 Fixed 1880 Hopefully 1859 Absolutely 1841 Open 1833 New 1820 Performance 1804 Feature 1784 Documentation 1757 Hopefully 1743 Absolutely 1703 Hopefully 1683 Absolutely 1665 Superseded 1657 Incomplete 1648 Obsolete 1639 Declined 1630 Fixed 1593 Hopefully 1572 Absolutely 1554 Open 1546 New 1533 Performance 1501 Hopefully 1487 Absolutely 1447 Hopefully 1427 Absolutely 1409 Superseded 1401 Incomplete 1392 Obsolete 1383 Declined 1374 Fixed 1337 Hopefully 1316 Absolutely 1298 Open 1290 New 1277 Feature 1245 Hopefully 1231 Absolutely 1189 Hopefully 1168 Absolutely 1150 Superseded 1142 Incomplete 1133 Obsolete 1124 Declined 1115 Fixed 1075 Hopefully 1053 Absolutely 1035 Open 1027 New 1008 Documentation) ( 970 " " 949 "OTHR " 921 " " 900 "HOPE " 872 " " 851 "ABS " 832 " NEW FIXED" 774 " And bugs: " 718 " " 697 "OTHR " 669 " " 648 "HOPE " 620 " " 599 "ABS " 580 " NEW FIXED" 522 "Now performance problems: " 466 " " 445 "OTHR " 417 " " 396 "HOPE " 368 " " 347 "ABS " 328 " NEW FIXED" 270 "For FEATURES:" 214 " " 193 "OTHR " 165 " " 144 "HOPE " 116 " " 95 "ABS " 76 " NEW FIXED" 18 "For Documentation:") COUNT-BY-WEEK :D8 (P 21 AR P 16 AR P 12 AR P 8 END P 7 START P 6 SD P 5 SUBFIX P 4 FIX P 3 SUB P 2 WASFIXED P 1 FIXES P 0 SUBMITS F 22 BETASUBMITS F 23 BETAFIXES F 24 SUBMITTEDFIXED) ,W,W.W0 Co o HIhi i oi O i oi O i i i @ HNOH_O k o "HH_O Oh__O&_O@IAOI_ o #II_O Oh__O&_OKAO"_*JO$oi oK i oi K oi oM i oi M oi oL i oi L i Oo_Oo_DO*dJjJhJio hO*_(O&O(h_&_$O"_"O(&_&(516 HELP 457 TERPRI 450 BREAKOUT-ARS-BY-TYPE 443 PRIN1 431 PRINTNUM 425 LENGTH 413 PRIN1 401 BREAKOUT-ARS-BY-TYPE 394 PRIN1 382 PRINTNUM 376 LENGTH 364 PRIN1 352 BREAKOUT-ARS-BY-TYPE 345 PRIN1 333 PRINTNUM 327 LENGTH 315 PRIN1 240 IDATE 235 CONCAT 168 IDATE 163 CONCAT 152 NTH 145 LENGTH 121 TERPRI 114 TERPRI 107 PRIN1 101 GDATE 93 PRIN1 81 PRIN1 75 GDATE 67 PRIN1 55 TERPRI 48 TERPRI 33 IDATE 23 IDATE 10 SORT) NIL ( 511 "Mismatch -- a sub-as-fixed ar never got submitted?" 476 604800 465 604800 437 ", " 419 (FIX 3) 407 " Newly Fixed: " 388 ", " 370 (FIX 3) 358 "Submitted&Fixed: " 339 ", " 321 (FIX 3) 309 " Submitted: " 230 " 00:00" 158 " 00:00" 87 " - " 61 "Week of " 28 "9-FEB-87 00:00:00" 18 "2-FEB-87 00:00:00") BREAKOUT-ARS-BY-TYPE :D8 (P 11 AR P 10 AR# P 9 DUNNO P 8 DOCOTHER P 7 DOCHOPE P 6 DOCABS P 5 PERF P 4 FEAT P 3 HOPE P 2 ABS P 1 OTHER I 0 ARLIST F 12 BETAINFO)  @jdddddddd* Hoi oJi oi oKi oi oIi oi oNi oi oOi oi oOi oi oLi oi Mi Oj*OoO i i h o_W_Ok_gO /OdgNkԾdgOk_TOk_KgO LkԼ8gO MkԽ%OdgJkԺgKkԻIkԹHXe(379 MEMBER 360 MEMBER 301 MEMBER 261 \FZEROP 254 TERPRI 247 PRIN1 241 CONCAT 216 PRIN1 208 PRIN1 196 PRINTNUM 183 PRIN1 171 PRINTNUM 157 PRIN1 145 PRINTNUM 131 PRIN1 119 PRINTNUM 106 PRIN1 94 PRINTNUM 81 PRIN1 69 PRINTNUM 56 PRIN1 44 PRINTNUM 31 PRIN1) (410 Hopefully 397 Absolutely 372 Performance 353 Feature 328 Hopefully 314 Absolutely 294 Documentation) ( 268 "" 234 " Can't Tell: " 202 " Perf: " 189 (FIX 3) 177 " || Features: " 163 (FIX 3) 151 " Other: " 137 (FIX 3) 125 " Hope: " 112 (FIX 3) 100 " || DOC: Abs: " 87 (FIX 3) 75 " Other: " 62 (FIX 3) 50 " Hope: " 37 (FIX 3) 25 "BUGS: Abs: ") FEATURE.SUMMARY :D8 (I 1 SUMMARY.LOCAL.DIR I 0 INDEX-WINDOW) $@ooAgo (33 AR.QUERY.PRINT.AND.IP.FILE 28 CONCAT) (18 {DSK6}) ( 23 "FeatureSummary" 10 (System%: Subsystem%: Priority%:) 5 (AND (OR (Status%: IS Open) (Status%: IS New)) (|Problem Type:| IS Feature) (NOT (OR (System%: IS LOOPS) (System%: IS PCE) (System%: IS PROLOG) (System%: IS BusMaster) (Subsystem%: IS DEI))))) HOPE.SUMMARY :D8 (I 2 FIELDS-TO-PRINT I 1 SUMMARY.LOCAL.DIR I 0 INDEX-WINDOW) '@ooAgo hB (36 AR.QUERY.PRINT.AND.IP.FILE 28 CONCAT) (18 {DSK6}) ( 23 "HopeSummary" 10 (System%: Subsystem%: Priority%:) 5 (AND (OR (Status%: IS Open) (Status%: IS New)) (Priority%: IS Hopefully) (NOT (OR (|Problem Type:| IS Feature) (|Problem Type:| IS Documentation) (System%: IS LOOPS) (System%: IS PCE) (System%: IS PROLOG) (System%: IS BusMaster) (Subsystem%: IS DEI))))) OPEN.SUMMARY :D8 (I 0 SUMMARY.LOCAL.DIR) hooo@g (29 AR.QUERY.PRINT.AND.IP.FILE) (23 {DSK}) ( 15 "OpenSummary" 10 (System%: Subsystem%: Priority%:) 5 (OR (Status%: IS New) (Status%: IS Open) (Status%: IS Open/Unreleased) (Status%: IS Incomplete) (Status%: IS Internal) (Status%: IS Wish))) FIXED.SUMMARY :D8 (P 0 LOCAL.AR.INDEX.NAME I 0 SUMMARY.LOCAL.DIR F 1 AR.INDEX.DEFAULT.FILE.NAME) J@dg HQHg Hohgog@ ho (71 AR.QUERY.PRINT.AND.IP.FILE 59 PACKFILENAME.STRING 30 COPYFILES 12 CONCAT) (53 DIRECTORY 43 NAME 25 >A 7 AR.INDEX) ( 65 ((Number%: 5) (Subject%: 60)) 48 "FixedSummary" 37 (AND (Status%: IS Fixed))) ABSOLUTELY.SUMMARIES :D8 (P 3 HACKER.NAME P 1 INDEX.WINDOW P 0 LOCAL.AR.INDEX.NAME I 3 THESE-NAMES-ONLY I 2 INDEX-ALREADY-COPIED? I 1 INDIVIDUAL-SUMMARIES? I 0 SUMMARY.LOCAL.DIR F 4 AR.INDEX.DEFAULT.FILE.NAME F 5 AR.ABSOLUTELY.HACKER.NAMES F 6 AR.CLEANUP.SORT.ORDER) 9@dg !HEBBoi Hi oi THg oi i o YHIi CIoogog@ Ioogog@ CqAqCkUhdIgooggKkK lJJl hoVgKo g@ I (310 CLOSEW 299 AR.QUERY.PRINT.AND.IP.FILE 294 PACKFILENAME.STRING 283 CONCAT 253 SUBSTRING 238 NCHARS 186 AR.QUERY.PRINT.AND.IP.FILE 181 PACKFILENAME.STRING 148 AR.QUERY.PRINT.AND.IP.FILE 143 PACKFILENAME.STRING 104 AR.QFORM.CREATE 95 CREATEW 84 TERPRI 77 PRIN1 65 COPYFILES 52 PRIN1 40 PRIN1 32 PRIN1 12 CONCAT) (288 DIRECTORY 272 NAME 230 HAS 225 Attn%: 210 AND 175 DIRECTORY 165 NAME 137 DIRECTORY 127 NAME 60 >A 7 AR.INDEX) ( 278 "Summary" 262 ((NOT (OR (|Problem Type:| IS Feature) (|Problem Type:| IS Documentation)))) 220 (Priority%: IS Absolutely) 215 (OR (Status%: IS Open) (Status%: IS New)) 170 "LyricAbsSummary" 160 (System%: Subsystem%: Status%:) 155 (AND (OR (Status%: IS Open) (Status%: IS New)) (Priority%: IS Absolutely) (NOT (OR (|Problem Type:| IS Feature) (|Problem Type:| IS Documentation) (System%: IS LOOPS) (System%: IS PCE) (System%: IS PROLOG) (System%: IS BusMaster) (Subsystem%: IS DEI)))) 132 "AllBugsSummary" 122 (System%: Subsystem%: Status%:) 117 (AND (OR (Status%: IS Open) (Status%: IS New))) 90 (0 0 200 100) 71 "done" 46 "..." 26 "copying old AR index to ") ABS.SUMMARY :D8 (I 1 SUMMARY.LOCAL.DIR I 0 INDEX-WINDOW) $hooAgo (33 AR.QUERY.PRINT.AND.IP.FILE 28 CONCAT) (18 {DSK6}) ( 23 "LyricAbsSummary" 10 (System%: Subsystem%: Status%:) 5 (AND (OR (Status%: IS Open) (Status%: IS New)) (Priority%: IS Absolutely) (In/By%: HAS Motown) (NOT (OR (System%: IS LOOPS) (System%: IS PCE) (System%: IS PROLOG) (System%: IS BusMaster) (Subsystem%: IS DEI))))) CACHE-ARINDEX :D8 (I 0 LOCALNAME F 0 LOCAL-CACHE-ORIGINAL-AR-INDEX-NAME F 1 AR.INDEX.DEFAULT.FILE.NAME) P@ @c(6 COPYFILES) NIL () MAKE-AR-FILENAME :D8 (I 1 NUMBER I 0 DIR) g@ghoA (27 PACKFILENAME.STRING 22 CL:FORMAT) (10 BODY 4 DIRECTORY) ( 16 "~5,'0D.AR") MOVE-CLOSED-ARS :D8 (P 0 AR I 0 NUMBERS) F@?doH oH oi Hi i h(61 TERPRI 54 PRIN1 46 PRIN1 34 RENAMEFILE 29 MAKE-AR-FILENAME 18 MAKE-AR-FILENAME) NIL ( 40 "Moved AR file for AR " 23 "{ERINYES}" 12 "{ERINYES}") GET.NUMS.FROM.QUERY :D8 NIL (4 AR.NUMS.FROM.QUERY) NIL () LANDSCAPE.QUERY.WINDOW :D8 (I 1 LOCALIPFILE I 0 LOCALTXTFILE) @A (6 AR.IP.FILE) NIL () HARDCOPY.ARS :D8 (I 0 NUMS) @ (5 AR.HARDCOPY) NIL () GET-SELECTED-AR-NUMBERS :D8 (P 2 SELECTED-ARS P 1 INDEX.WINDOW P 0 LOCAL.AR.INDEX.NAME I 1 SUMMARY.LOCAL.DIR I 0 QUERY-SPEC F 3 AR.INDEX.DEFAULT.FILE.NAME) OAdg !HSHg jdlld YHIi I@ I ZI J(75 CLOSEW 68 AR.NUMS.FROM.QUERY 62 AR.QUERY 55 AR.QFORM.GROUP.CREATE 46 CREATEW 41 CREATEREGION 29 COPYFILES 12 PACK*) (24 >A 7 AR.INDEX) () NOTES :D8 (P 1 AR-INFO P 0 TS I 1 TITLE I 0 ARS) po Hkjg AHAo @5dHI oIn Io  H (109 TEDIT 98 TEDIT.INSERT 93 CONCAT 78 CHARACTER 62 MKSTRING 45 TEDIT.INSERT 40 CONCAT 25 TEDIT.SETSEL 9 OPENTEXTSTREAM) (20 RIGHT) ( 87 " " 67 " " 35 " " 4 "") KNOWN-BUG-LIST :D8 (P 1 NOTES P 0 ARS I 0 SUMMARY.LOCAL.DIR) 3 o@ Xdoi Xdo (48 NOTES 43 CONCAT 38 DATE 26 AR.GET.PLIST 13 GET-SELECTED-AR-NUMBERS) NIL ( 33 "Known Bugs List as of " 20 (Subject%: |Release Note:|) 7 (AND (OR (Status%: IS Open) (Status%: IS Open/Unreleased) (Status%: IS New)) (Priority%: IS Hopefully) (NOT (OR (|Problem Type:| IS Feature) (|Problem Type:| IS Documentation) (System%: IS LOOPS) (System%: IS PCE) (System%: IS PROLOG) (System%: IS BusMaster) (Subsystem%: IS DEI))))) FIXED-BUG-LIST :D8 (P 1 NOTES P 0 ARS I 0 SUMMARY.LOCAL.DIR) 3 o@ Xdoi Xdo (48 NOTES 43 CONCAT 38 DATE 26 AR.GET.PLIST 13 GET-SELECTED-AR-NUMBERS) NIL ( 33 "Fixed Bugs List as of " 20 (Subject%: |Release Note:|) 7 (AND (Status%: IS Fixed) (NOT (OR (System%: IS LOOPS) (System%: IS PCE) (System%: IS PROLOG) (System%: IS BusMaster) (Subsystem%: IS DEI))))) (PRETTYCOMPRINT ARHACKCOMS) (RPAQQ ARHACKCOMS ((COMS (* ;; "FNS for finding things out about lots of ARs") (FNS AR.GET.PLIST) (* ; "Grab specified field from set of ARs:") (FNS NAB.TEST.CASES) (* ; "Find ARs edited before a given date:") (FNS LAST-CHANGED-BEFORE)) (COMS (* ;; "For nabbing AR information from tds") (FNS AR.GET.SUBMITS.FROM.TDS AR.GET.FIXES.FROM.TDS AR.GET.ARS.FROM.TDS COLLECT-FIXES COLLECT-SUBMISSIONS)) (COMS (* ;; "Bulk changes to the AR database (fixes, closing, etc.)") (* ;; "Function to mark lots of ARs fixed in one sweep.") (FNS FIX.MANY.ARS FIX.NO.RELEASE.NOTE) (* ;; "Function for making changes to lots of ARs in one sweep; less convenient than above fn:") (* ;; "the form of CHANGE.SPEC is a list like ((1 Status: Closed Attn: %"%") (234 Attn: Me))") (FNS CHANGE.MANY.ARS) (* ;; "Function for closing lots of ARs, to mark lots of ARs obsolete.") (FNS CLOSE.MANY.ARS OBSOLETE.MANY.ARS) (* ;; "Functions for counting info about ARs") (FNS LIST.NUM.STATUS.PRIORITY COUNT-ARS COUNT-BY-WEEK BREAKOUT-ARS-BY-TYPE)) (COMS (* ;; "Functions for making a summary of all feature requests or hopefully-type ARs.") (FNS FEATURE.SUMMARY HOPE.SUMMARY OPEN.SUMMARY FIXED.SUMMARY)) (COMS (* ;; "Function for making lyric relevant summaries of Absolutely bugs, and a listing of all open ARs.") ( FNS ABSOLUTELY.SUMMARIES ABS.SUMMARY) (INITVARS (AR.ABSOLUTELY.HACKER.NAMES (QUOTE (Bane Biggs Burton Charnley Cude Daniels Fischer Kelley Murage Pavel Pedersen Shih Snow Sye SCPeters RMRichardson Sybalsky vanMelle Woz))))) (COMS (* ; "Function for caching the ar index locally, and causing all later queries to use the local cache.") ( INITVARS (LOCAL-CACHE-ORIGINAL-AR-INDEX-NAME AR.INDEX.DEFAULT.FILE.NAME)) (FNS CACHE-ARINDEX)) (COMS ( * ;; "Fns for moving closed/obsolete/etc ar files from main directory to the directory.") ( FNS MAKE-AR-FILENAME MOVE-CLOSED-ARS)) (COMS (* ;; "These names superseded by other functions on this file or on AREDIT") (FNS GET.NUMS.FROM.QUERY LANDSCAPE.QUERY.WINDOW HARDCOPY.ARS)) (COMS (* ;; "Function for querying, and getting a list of the selected AR numbers. In effect, this is a programmatic interface to AR.QUERY." ) (FNS GET-SELECTED-AR-NUMBERS)) (COMS (* ; "Functions for making release notes & the like:") (* ;; "NOTES takes a list of items (AR# subj-string relnote-string) and prints them one to a line, with tab after AR# & new-line (not new-para) before relnote into a TEdit." ) (FNS NOTES) (FNS KNOWN-BUG-LIST FIXED-BUG-LIST)))) (RPAQ? AR.ABSOLUTELY.HACKER.NAMES (QUOTE (Bane Biggs Burton Charnley Cude Daniels Fischer Kelley Murage Pavel Pedersen Shih Snow Sye SCPeters RMRichardson Sybalsky vanMelle Woz))) (RPAQ? LOCAL-CACHE-ORIGINAL-AR-INDEX-NAME AR.INDEX.DEFAULT.FILE.NAME) (PUTPROPS ARHACK COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1989 1990 1991)) NIL