(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "26-Sep-94 15:30:36" ("compiled on " {DSK}export>lispcore>internal>library>AREDIT.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "17-Sep-90 15:37:53" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>AREDIT.;4| 94426 changes to%: (VARS AREDITCOMS) previous date%: " 2-Jul-90 15:15:42" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>AREDIT.;3|) AR.FORM :D8 (L (0 NUM)) 5gg@hgnÂlÈ hhgg(50 ADD.PROCESS 28 GETREGION) (45 AR.FORM.NEW 40 NAME 18 QUOTE 9 QUOTE 4 AR.FORM.GROUP.CREATE) () AR.FORM.GROUP.CREATE :D8 (L (1 FORMWINDOW 0 INITIAL.NUM) F 3 DEFAULTFONT F 4 AR.IDENTIFICATION.STRING F 5 ARBUTTONFONT F 6 AR.FORM.FORMAT F 7 ARBOLDFONT F 8 AR.FORM.SPECS) Õ0Ad ›¿A Éº°@ µnÂlÈ ZJlSÈ Ö Õl(Õ¿Jo b¿AggAgnÂl<AggAggJJJØJl(hTo YdAggh Igjl(Igjl(Iggg ›` ³$` ¿l g`¿Al IUoog`ggggh ¿AWWVg X@²Ad@Hgðš¿Hid¿AH IggI kÏ8¿kjðhðA(450 TEXTOBJ 444 PUTWINDOWPROP 428 AR.INSTALL.TEDITSTREAM 420 AR.FORM.CLEAR 404 AR.GET.AR 391 AR.FORM.CREATE 373 AR.FORM.CREATE 318 GETPROMPTWINDOW 309 TEDIT.SETFUNCTION 286 COPYREADTABLE 274 READTABLEP 263 BOUNDP 253 PUTWINDOWPROP 237 PUTWINDOWPROP 222 PUTWINDOWPROP 207 ATTACHWINDOW 187 CREATEW 182 CONCAT 149 PUTWINDOWPROP 133 PUTWINDOWPROP 117 PUTWINDOWPROP 100 WINDOWADDPROP 81 CREATEW 64 HEIGHTIFWINDOW 39 GETREGION 27 REGIONP 17 \INSUREWINDOW 9 WINDOWP) (455 TEXTOBJ 439 AR.FORM.MENU.TITLEMENUFN 434 TEDIT.TITLEMENUFN 409 XCL:FILE-NOT-FOUND 385 DON'T 360 DON'T 355 PROMPTWINDOW 350 NILL 345 TITLEMENUFN 340 AR.MENU.READTABLE 335 READTABLE 304 AR.MENU.READTABLE 299 AR.MENU.CR.FN 291 AR.MENU.READTABLE 281 TEDIT.READTABLE 269 AR.MENU.READTABLE 258 AR.MENU.READTABLE 248 AR.FORM.MENU 243 AR.WINDOW.PROC.NAME 228 MINSIZE 213 MAXSIZE 200 JUSTIFY 195 TOP 144 AR.FORM.ICONFN 139 ICONFN 128 AR.FORM 123 AR.WINDOW.PROC.NAME 106 MINSIZE 95 AR.KILL.ATTACHED.TEDIT.CLOSEFN 90 CLOSEFN 56 FONTDESCRIPTOR) ( 330 (New TAB Get TAB Put TAB Number%: TAB CR) 325 ((New FIELDTYPE BUTTON FN AR.FORM.MENU.BUTTONFN) (Get FIELDTYPE BUTTON FN AR.FORM.MENU.BUTTONFN) (Put FIELDTYPE BUTTON FN AR.FORM.MENU.BUTTONFN) (Number%: FIELDTYPE STRING)) 177 " Bug Report Editor" 76 "New Bug Report") AR.FORM.CREATE :D8 (L (4 TEDITPROPS 3 FORM.FORMAT 2 FORM.SPECS 1 BUTTONFONT 0 FORMWINDOW) F 24 ARFONT) [ohddgW0o j@g käC±Hd_¿¿Odgð²¿HoK^¿IkÔY±dgð²¿IjóšINO_¿j¹Ho±î ²HOK¿KO ±ÛOB_g'_¿OOA_¿Odgð—¿o°gð¨Ogð•o„o_ _¿¿OHK¿KL¼KkÔ»Ojó²'HOK¿Og ¨KOkÙÔM½KOÔ»OgOkØ¿Ogj¿Ogð©Ogð²HoK¿KkÔ»µ‚±þ·HokKL°d_¿HoOk¿µêM°d_¿HoOk¿µêh_ _"¿OµHi Dgð²zHO_¿¹HIO µ.IghIkJIkØÛ3O&dO$ó²&¿O*h_"O _ ¿O"OO_¿k°žO(Úg_.¿O,µO.h_,_*¿O&kÔ_&°·O.&_,¿°ò@HD(600 AR.INSTALL.TEDITSTREAM 549 TEDIT.PARALOOKS 463 TEDIT.STREAMCHANGEDP 441 TEDIT.LOOKS 414 TEDIT.LOOKS 392 TEDIT.LOOKS 366 TEDIT.INSERT 334 IMAGEOBJPROP 320 IMAGEOBJPROP 289 IMAGEOBJPROP 276 TEDIT.INSERT 252 TEDIT.INSERT.OBJECT 242 BLOCK 234 NCHARS 179 AR.BUTTON.OBJ.CREATE 150 NCHARS 141 TEDIT.INSERT 130 STRINGP 83 TEDIT.INSERT 57 BLOCK 39 GETWINDOWPROP 27 OPENTEXTSTREAM) (559 LEFT 496 TABS 469 DON'T 351 SUBMENU 342 MENU 328 AR.FIELD.LEN 311 AR.FIELD.START 284 AR.PROTECTED.FLG 214 SUBMENU 205 MENU 190 BUTTON 165 FIELDTYPE 97 CR 66 TAB 34 WIDTH 12 FONT) ( 433 (SELECTPOINT ON) 406 (PROTECTED OFF) 385 (PROTECTED ON) 360 "}" 227 " " 221 " {" 198 "" 122 " " 76 " " 19 (PARALOOKS (PARALEADING 2) TEDIT.TENTATIVE NIL) 4 "") AR.FORM.ICONFN :D8 (L (1 OLDICON 0 WINDOW) F 0 AR.ICONFONT) .Aµ+`@g P@g hdg (43 TITLEDICONW 30 GETWINDOWUSERPROP 18 GETWINDOWUSERPROP) (37 FILE 25 ICONPOSITION 13 AR.FORM.NUMBER 7 AR.FORM.ICONSPEC) () AR.BUTTON.OBJ.CREATE :D8 (L (2 BUTTON.FONT 1 BUTTON.NAME 0 BUTTONSPEC)) Ó@g'1Hgð@g'•g¸A@g'µRHdgð—¿g°Agð©Hdgð—¿g°)gð–g°Hgð•gŠoH @g'Zµ2BYdgHgð³HgðªHdgð²¿g°Mdd3@ð–¿J °¿gð–g°+Hdgð—¿g°gð•gŠoH Hgð³Hgð³Hgð©Hdgðž¿IgH¿HgðIg@g°UHdgð²$¿Ig@g'¿Ig@g°)gð²(Ig@g'¿Ig@g'¿@g'[œIgK¿@g'[›IgKI(463 IMAGEOBJPROP 441 IMAGEOBJPROP 419 IMAGEOBJPROP 400 IMAGEOBJPROP 359 IMAGEOBJPROP 307 IMAGEOBJPROP 259 IMAGEOBJPROP 254 ERROR 197 FONTCREATE 192 \EVALV1 137 MBUTTON.CREATE 121 ERROR) (457 FILLINVALUE 448 FILLINVALUE 435 INITIALVALUE 426 INITIALVALUE 413 SUBMENULIST 407 AR.SUBMENU.LIST 394 ASSOCMENU 388 AR.ASSOCIATED.MENU 379 SUBMENU 372 MENULIST 366 AR.MENU.LIST 353 ASSOCSUBMENU 347 AR.ASSOCIATED.SUBMENU 337 MENU 328 MAXCHARS 322 AR.MAX.LEN 314 SHORTSTRING 301 AR.PROTECTED.FLG 292 SUBMENU 283 MENU 274 PROTECTEDSTRING 265 BUTTON 242 AR.CHECK.SUBMENU 235 SUBMENU 228 AR.CHECK.MENU 220 MENU 211 AR.CHECK.SHORTSTRING 204 SHORTSTRING 177 NILL 168 STRING 159 PROTECTEDSTRING 150 BUTTON 144 AR.CHECK.FN 127 FONT 109 AR.BUTTONFN.DOSUBMENU 102 SUBMENU 94 AR.BUTTONFN.DOMENU 87 MENU 80 AR.BUTTONFN.SELFIELD 72 SHORTSTRING 63 STRING 56 AR.PROTECT.WARNING 48 PROTECTEDSTRING 38 FN 30 SHORTSTRING 23 MAXCHARS 15 STRING 5 FIELDTYPE) ( 248 "Bad Button Type" 115 "Bad Button Type") AR.PROTECT.WARNING :D8 (L (2 WINDOW 1 SEL 0 OBJ)) #Bgo@g o (32 AR.PROMPT.PRINT 21 IMAGEOBJPROP) (16 MBTEXT 5 :CLEAR) ( 26 "%" is not editable." 10 "The field %"") AR.INSTALL.TEDITSTREAM :D8 (L (2 TEDITPROPS 1 FORMSTREAM 0 FORMWINDOW) F 3 ARFONT) V@ É.!Hµ9A@hBgSo Y@g Z´IgJ ²Ä@ ¿°»(81 TEDIT.KILL 73 PROCESSP 67 PROCESSPROP 52 GETWINDOWUSERPROP 40 TEDIT 35 \APPEND2 5 \INSUREWINDOW) (61 NAME 47 AR.WINDOW.PROC.NAME 22 FONT) ( 28 (SEL DON'T LEAVETTY T TEDIT.TENTATIVE NIL)) AR.KILL.ATTACHED.TEDIT.CLOSEFN :D8 (L (0 WINDOW)) U@ !Hµ@g dš hYg Z²I ¿J ¿I ¿HX°¸(77 CLOSEW 70 TEDIT.KILL 65 TEXTOBJ 58 DETACHWINDOW 49 GETWINDOWUSERPROP 35 TEDIT.KILL 30 TEXTOBJ 23 GETWINDOWUSERPROP 5 ATTACHEDWINDOWS) (44 TEXTSTREAM 18 TEXTSTREAM) () AR.BUTTON.GET.MENU :D8 (L (0 OBJ)) ’@g µ‚±‚`@g hg`hhh HdI¿@g HdI¿dg ¿dg¿jdnÿdhHdI ¿@gHH(142 IMAGEOBJPROP 78 IMAGEOBJPROP 57 CL:APPEND 33 IMAGEOBJPROP 10 IMAGEOBJPROP) (136 AR.MENU 103 DEFAULTMENUHELDFN 94 CLRPROMPT 73 MBTEXT 44 AR.NULL.BUTTON.VALUE 39 QUOTE 28 AR.MENU.LIST 21 |MENUTYPE#| 5 AR.MENU) () AR.BUTTON.GET.SUBMENU :D8 (L (1 ASSOCIATED.MENU.VAL 0 OBJ)) ˜@g AHA'µ|`@g A'hg`hhh ºdJ¿@g »dK¿dg ¿dg¿jdnÿdh¼dL ¿YHµ@gAIhIAI°÷(148 LISTPUT 139 IMAGEOBJPROP 78 IMAGEOBJPROP 61 CL:APPEND 35 IMAGEOBJPROP 10 IMAGEOBJPROP) (129 AR.SUBMENUS 99 DEFAULTMENUHELDFN 90 CLRPROMPT 73 MBTEXT 48 AR.NULL.BUTTON.VALUE 43 QUOTE 30 AR.SUBMENU.LIST 23 |MENUTYPE#| 5 AR.SUBMENUS) () AR.BUTTONFN.DOMENU :D8 (L (2 WINDOW 1 SEL 0 OBJ)) ˆ@ 1Hµ B @g ô³í@AÉBg ZH¿@g Y²ÃJI [µoI ¿°«KJ`¿KgH¿°Œ(131 IMAGEOBJPROP 117 AR.REPLACE.FIELD.VAL 100 ERROR 86 AR.FIND.BUTTON 76 IMAGEOBJPROP 64 AR.REPLACE.FIELD.VAL 57 GETWINDOWUSERPROP 34 IMAGEOBJPROP 22 AR.RESET.SEL 10 MENU 5 AR.BUTTON.GET.MENU) (125 AR.ASSOCIATED.MENU.VAL 112 AR.NULL.BUTTON.VALUE 71 AR.ASSOCIATED.SUBMENU 52 TEXTSTREAM 44 SELECTION 29 AR.FIELD.VALUE) ( 94 "Can't find associated submenu button") AR.BUTTONFN.DOSUBMENU :D8 (L (2 WINDOW 1 SEL 0 OBJ)) NBg @B @I Zd²"d@g ô³@AÉHJ¿B h(74 AR.RESET.SEL 67 AR.REPLACE.FIELD.VAL 48 IMAGEOBJPROP 32 MENU 27 AR.BUTTON.GET.SUBMENU 17 AR.GET.ASSOCIATED.MENU.VAL 10 GETWINDOWUSERPROP) (58 SELECTION 43 AR.FIELD.VALUE 5 TEXTSTREAM) () AR.RESET.SELA0001 :D8 (L (2 CH# 1 OBJ 0 TOBJ)) 7Ag ³)@dB Éjg@ ih(49 TEDIT.SHOWSEL 44 TEXTSTREAM 38 TEDIT.SETSEL 20 MBUTTON.FIND.NEXT.FIELD 10 IMAGEOBJPROP) (33 LEFT 25 SELECTION 5 AR.PROTECTED.FLG) () AR.RESET.SEL :D8 (L (0 WINDOW.OR.STREAM)) @g (10 AR.MAP.BUTTONS) (5 AR.RESET.SELA0001) () AR.REPLACE.FIELD.VAL :D8 (L (3 NEWVAL 2 WINDOW.OR.STREAM 1 CH# 0 OBJ)) ¹B C @g 3J²7@g AÔ¼@g »@gI¿@gC°HA ]µANIL (7 TEXTOBJ) () AR.TOBJ.ACTIVEP :D8 (L (0 TOBJ)) @d É>NIL (8 TEXTOBJ) () AR.FORM.MENU.TITLEMENUFN :D8 (L (0 TEXTSTREAM) F 2 AR.FORM.MENU.TITLEMENU.ITEMS) `µU`dR¿do¿di¿di¿dg¿dg ¿dg¿jdnÿdhHdI ¿ H´(@ ÉHd´ hHµH(138 AR.FORM.MENU.ACTIONFN 126 EVAL 106 TEXTOBJ 94 MENU) (111 TEXTOBJ 89 AR.FORM.MENU.TITLEMENU 60 DEFAULTMENUHELDFN 51 CLRPROMPT 42 CL:IDENTITY 11 |MENUTYPE#| 4 AR.FORM.MENU.TITLEMENU) ( 23 "Extra AR Ops") AR.MENU.CR.FN :D8 (L (1 TOBJ 0 TEXTSTREAM)) Ah A (17 AR.FORM.PROGRAMMATIC.GET 12 \TEDIT.PRIMARYW 6 AR.MARK.ACTIVE) NIL () AR.GET.MENU.FROM.MAIN.WINDOW :D8 (L (0 FORMWINDOW)) $@ Hµhdg ³ó¿HX°é(26 GETWINDOWUSERPROP 5 ATTACHEDWINDOWS) (21 TEXTOBJ) () AR.CONFIRM :D8 (L (1 FORMWINDOW 0 WORDS)) @A hdAl (21 MOUSECONFIRM 16 GETPROMPTWINDOW 6 AR.PROMPT) NIL () AR.MENU.FN.CLEAR :D8 (L (1 FILL.INS 0 FORMWINDOW)) C@d ž¿o@ ´-@ @A @ @gA•o„o(64 AR.PROMPT.PRINT 40 AR.FORM.SET.TO.EMPTY 34 AR.FORM.CLEAR 27 CLEARW 19 AR.CONFIRM 6 TEDIT.STREAMCHANGEDP) (46 :CLEAR) ( 59 "Form erased." 53 "New form cleared" 13 "Form has been changed --- confirm CLEAR") AR.FORM.CLEARA0001 :D8 (L (2 CH# 1 OBJ 0 TOBJ) F 1 FILL.INS F 2 NEWFORMP) NQdið²¿Ag d²d² °¡hŽAg QX™AB@H‰R§AB@h(74 AR.DELETE.FIELD.VAL 63 AR.REPLACE.FIELD.VAL 48 IMAGEOBJPROP 32 EVAL 20 IMAGEOBJPROP) (43 MBTEXT 15 INITIALVALUE) () AR.FORM.CLEAR :D8 (L (0 WINDOW.OR.STREAM) I 2 NEWFORMP I 1 FILL.INS) @g @ i (22 TEDIT.STREAMCHANGEDP 16 TEXTSTREAM 10 AR.MAP.BUTTONS) (5 AR.FORM.CLEARA0001) () AR.FORM.SET.TO.EMPTY :D8 (L (0 FORMWINDOW)) I@h @gh@gh@gh@gh@go(70 PUTWINDOWPROP 54 PUTWINDOWPROP 42 PUTWINDOWPROP 30 PUTWINDOWPROP 18 PUTWINDOWPROP 6 AR.SET.FORM.NUMBER) (60 TITLE 48 AR.GET/PUT.FILE.NAME 36 AR.FORM.SCRATCH.STREAM2 24 AR.FORM.SCRATCH.STREAM 12 AR.FORM.SCRATCH.MAP) ( 65 "New Bug Report") AR.DELETE.FIELD.VAL :D8 (L (2 WINDOW.OR.STREAM 1 CH# 0 OBJ)) ‹B !@g ²D@g Zjó´eH@g AÔJi@gj@g`HA Yµ o ÉZjó´HIÉJi(136 TEDIT.DELETE 107 SHOULDNT 94 MBUTTON.FIND.NEXT.FIELD 86 IMAGEOBJPROP 70 IMAGEOBJPROP 58 TEDIT.DELETE 49 IMAGEOBJPROP 32 IMAGEOBJPROP 19 IMAGEOBJPROP 5 TEXTOBJ) (127 SELECTION 113 SELECTION 81 AR.NULL.BUTTON.VALUE 76 AR.FIELD.VALUE 64 AR.FIELD.LEN 44 AR.FIELD.START 27 AR.FIELD.LEN 14 AR.PROTECTED.FLG) ( 102 "Can't find field for button") AR.MENU.FN.GET :D8 (L (1 CURR.NUM 0 FORMWINDOW)) PAµ @ b3 ³@ioAo @d ²¿o@ @ioh@A (77 AR.GET.AR 68 AR.PROMPT.PRINT 55 AR.CONFIRM 41 TEDIT.STREAMCHANGEDP 33 AR.PROMPT.PRINT 8 AR.GET.NUMBER.FIELD) NIL ( 63 "Get aborted" 49 "Form has been changed --- confirm GET" 27 "%" -- Get aborted" 21 "Bad number %"") AR.GET.ARA0001 :D8 (P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SI::CONDITION-CASE-LITERALS F 4 *CONDITION-HANDLER-BINDINGS* F 5 A0123 F 6 FORMWINDOW F 7 FORMSTREAM) "i@STVW c g(24 \MVLIST 19 AR.TEXTSTREAM.LOAD) (31 :NORMAL) () AR.GET.AR :D8 (L (1 NUM/OR/FILE) P 7 A0123 P 6 SI::CONDITION-CASE-LITERALS I 2 FORMSTREAM I 0 FORMWINDOW F 8 AR.IDENTIFICATION.STRING) n@ioWoAo A@ QH¹HZµ‚±¨@gI¿@gh¿oN \dgð—¿O$°dÃ˜¿L»hK$‡N ZµJBµ@g g ½A3²vMAÿ®oWAM¿@A ¿@gh°WÃ²@iWoAo g@ihoWAJ Bµ@i @ i@M3 ] ¿@goWoMµA@iWoAo h(362 AR.PROMPT.PRINT 341 PUTWINDOWPROP 336 CONCAT 308 AR.SET.FORM.NUMBER 296 AR.FORM.SET.TO.EMPTY 290 AR.FORM.CLEAR 280 AR.PROMPT.PRINT 275 CL:FORMAT 251 AR.PROMPT.PRINT 221 PUTWINDOWPROP 208 AR.SET.FORM.NUMBER 200 CL:ERROR 176 IMAGEOBJPROP 165 AR.FIND.BUTTON 146 \MVLIST 140 SI::CONDITION-CASE-ERROR 99 AR.GET.ARA0001 83 PUTWINDOWPROP 70 PUTWINDOWPROP 42 \MVLIST 37 AR.FETCH.AND.PARSE.AR 32 AR.GET.SCRATCH.STREAM 25 AR.PROMPT.PRINT) (315 TITLE 256 XCL:FILE-NOT-FOUND 228 XCL:FILE-NOT-FOUND 215 AR.GET/PUT.FILE.NAME 171 AR.FIELD.VALUE 160 Number%: 122 CL:ERROR 106 :NORMAL 77 AR.FORM.SCRATCH.STREAM2 64 AR.FORM.SCRATCH.MAP) ( 356 " retrieved" 350 " " 327 " " 320 "Editing " 265 "Failed while loading ~A ~A: ~A" 245 " doesn't exist -- Get aborted" 239 " " 191 "Retrieved file for ~A# ~D, but file thinks it is ~A" 89 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR)) 19 " ..." 13 " " 6 "Retrieving ") AR.FETCH.AND.PARSE.ARA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ARSTREAM F 1 SCRATCH.STREAM F 2 NUM/OR/FILE F 3 DONTRESET F 4 INDEX.FIELDS) 0Rd3•h ggcS§Qj ¿PQT(45 AR.COPY.AND.INDEX.AR 36 SETFILEPTR 25 OPENSTREAM 10 AR.GET.FILENAME) (20 OLD 15 INPUT) () AR.FETCH.AND.PARSE.ARA0001A0003 :D8 (F 0 ARSTREAM) Pdœ ´P (15 CLOSEF 7 OPENP) NIL () AR.FETCH.AND.PARSE.ARA0001 :D8 (P 4 ARSTREAM P 3 *UPPER-CASE-FILE-NAMES* P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 SI::CONDITION-CASE-LITERALS F 6 *CONDITION-HANDLER-BINDINGS* F 7 A0124) Ci@UV g Lµ$ cg ²êL ¿°á(62 CLOSEF 54 OPENP 41 \MVLIST 29 \MVLIST 24 AR.FETCH.AND.PARSE.ARA0001A0002) (48 :NORMAL 19 AR.FETCH.AND.PARSE.ARA0001A0003) () AR.FETCH.AND.PARSE.AR :D8 (P 1 A0124 P 0 SI::CONDITION-CASE-LITERALS I 3 DONTRESET I 2 INDEX.FIELDS I 1 SCRATCH.STREAM I 0 NUM/OR/FILE) 8o1H Zdgð•¿I$dÃ˜¿J»hK$H (53 SI::CONDITION-CASE-ERROR 14 AR.FETCH.AND.PARSE.ARA0001) (35 CL:ERROR 21 :NORMAL) ( 4 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR))) AR.SET.FORM.NUMBER :D8 (L (1 N 0 FORMWINDOW)) {@gA@g HžHAµ:o ¿@ Hg Y²)A²H gA °ÈIIHog (120 ERROR 104 AR.DELETE.FIELD.VAL 92 MKSTRING 86 MBUTTON.SET.FIELD 75 TEXTOBJ 63 AR.FIND.BUTTON 49 AR.GET.MENU.FROM.MAIN.WINDOW 41 ICONW.TITLE 22 GETWINDOWUSERPROP 11 PUTWINDOWPROP) (115 Number%: 80 Number%: 58 Number%: 17 ICONWINDOW 5 AR.FORM.NUMBER) ( 110 "Can't find named button" 36 "") AR.GET.SCRATCH.STREAM :D8 (L (0 WINDOW)) .@g µ!gg @gHH(42 PUTWINDOWPROP 27 OPENSTREAM 10 GETWINDOWUSERPROP) (36 AR.FORM.SCRATCH.STREAM 22 BOTH 17 {NODIRCORE} 5 AR.FORM.SCRATCH.STREAM) () AR.COPY.AND.INDEX.AR :D8 (L (2 INDEX.FIELDS 1 SCRATCH.STREAM 0 ARSTREAM)) Â@@ Ad H¿0@ Y¾Mµ9Nh]¼Il:ð²ðL A »º@ ¿B˜JB ²^A@ Ydl'ð™¿@ °.N&½°Ël ð²#@ l ð¦@ ¿¿JKA KÕhHX°!I ¿°Àl ð²@d l ð’±ÿe¿@ ¿±ÿY@ dl'ð²à¿¿@ ¿°î(186 BLOCK 168 AR.MALFORMED.AR 143 BOUT 126 GETFILEPTR 116 AR.MALFORMED.AR 78 MEMB 63 GETFILEPTR 57 PACKC 28 BLOCK 21 \SETEOFPTR 16 GETFILEPTR 8 EOFP) NIL () AR.MALFORMED.AR :D8 (L (0 ARSTREAM)) o (9 CL:ERROR) NIL ( 4 "Malformed AR file") AR.TEXTSTREAM.LOAD :D8 (L (1 FORMSTREAM 0 FORMWINDOW)) šAµ@g b ¿A @g @g jt HKkÔ ^¢±I¿N½N»Mg _²Mg KÔ_°HK µzo ¿AOkÙ ¿Mg J_µ^` ¿o` ¿Mg ` ¿o` ¿Mgh¿±ÿHÉ_°‰\jó².AIO_dLÔO ¿AO•o„oOL¿O¢±ÿMgL¿Ogð³Ogð«Ogð¢±þÖMgLjóžILO „`¿±þ¯A Ai h(406 TEDIT.STREAMCHANGEDP 399 AR.RESET.SEL 389 IMAGEOBJPROP 378 PACKC 373 AR.READ.BYTES 321 IMAGEOBJPROP 302 TEDIT.LOOKS 278 TEDIT.FAST.RAW.INCLUDE 236 IMAGEOBJPROP 223 PRIN1 207 PRIN1 197 IMAGEOBJPROP 185 PRIN1 169 TERPRI 153 IMAGEOBJPROP 141 SETFILEPTR 130 HELP 118 MBUTTON.FIND.NEXT.FIELD 105 IMAGEOBJPROP 90 IMAGEOBJPROP 72 BLOCK 62 MBUTTON.FIND.NEXT.BUTTON 49 GETWINDOWUSERPROP 38 GETWINDOWUSERPROP 27 TEXTOBJ 20 AR.FORM.CLEAR 13 GETWINDOWUSERPROP) (384 AR.NULL.BUTTON.VALUE 360 AR.FIELD.VALUE 349 SUBMENU 340 MENU 330 Number%: 315 AR.FIELD.LEN 245 SELECTION 230 AR.FIELD.VALUE 218 PROMPTWINDOW 202 PROMPTWINDOW 192 MBTEXT 180 PROMPTWINDOW 164 PROMPTWINDOW 148 MBTEXT 100 AR.FIELD.START 85 AR.PROTECTED.FLG 44 AR.FORM.SCRATCH.MAP 33 AR.FORM.SCRATCH.STREAM 8 TEXTSTREAM) ( 294 (PROTECTED OFF) 288 (PROTECTED ON) 213 " field" 175 "AR has no " 125 "Can't find field for button") AR.REPLACE.FILL.INS :D8 (L (1 FILL.INS 0 STREAM.OR.WINDOW)) 8A@ "Hµhº¿IJ [µHX°åKIJ¿°î(51 AR.REPLACE.FIELD.VAL 31 AR.FIND.BUTTON 22 BLOCK 6 TEXTSTREAM) NIL () AR.MENU.FN.PUTA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FORMWINDOW F 3 OPERATION F 4 SI::NLSETQ-VALUE F 5 CURR.NUM F 6 EDIT.CHANGES.STRING) i@RSUVhcg(13 AR.UPDATE.AR.INFO) (22 :NORMAL) () AR.MENU.FN.PUT :D8 (P 20 *CONDITION-HANDLER-BINDINGS* P 19 SI::*NLSETQFLAG* P 18 *PROCEED-CASES* P 17 SI::NLSETQ-VALUE P 7 OPERATION P 5 CURR.NUM P 3 EDIT.CHANGES.STRING P 0 *PRINT-BASE* I 0 FORMWINDOW F 21 AR.IDENTIFICATION.STRING F 22 *PROCEED-CASES* F 23 *CONDITION-HANDLER-BINDINGS*) Îl ‘ @ ³)@g ³o@ @ioh_o^[@g ]¢± g_¿@ º@ @g " K0J°6d_¿oOOd3 ”L¼hƒh_žOµ‚±½O_ _¿µËO »OoKo_OOg ÔOg _Ôoi ¿OgOO Ô¿@O @gOhgNhh ¿@dg ¿@dg °n _O±ÿBg_¿@io¿@ ]¬o@ h@oM¿@gMhgNhh ¿@gh¿@ Y²oIo@ h`W,ioW.O$ gð´O"¬o@ h@ @iOgð•o„oW*oMo @M @i ¿²P@M ¿@goW*oM¿Ogð²@gMKL °@gMŠo@ h(714 AR.PUT.FAILED 702 AR.SEND.MESSAGE 688 AR.SEND.MESSAGE 662 PUTWINDOWPROP 657 CONCAT 632 AR.SET.FORM.NUMBER 622 TEDIT.STREAMCHANGEDP 615 AR.FORM.SAVE 608 AR.PROMPT.PRINT 567 CLEARW 559 AR.PUT.FAILED 535 AR.MENU.FN.PUTA0001 503 AR.PUT.FAILED 497 CONCAT 478 AR.CHECK.FIELDS 471 PUTWINDOWPROP 458 AR.REPLACE.FILL.INS 430 AR.PROMPT.PRINT 416 AR.PUT.FAILED 403 AR.GET.SUBMIT.NUM 396 AR.PROMPT.PRINT 368 LAST 361 AR.NOTE.FIELD.CHANGED 356 AR.FIND.BUTTON 343 AR.NOTE.FIELD.CHANGED 338 AR.FIND.BUTTON 325 AR.REPLACE.FILL.INS 296 AR.NOTE.FIELD.CHANGED 287 IMAGEOBJPROP 281 NCHARS 263 TEDIT.INSERT 248 IMAGEOBJPROP 234 IMAGEOBJPROP 216 CONCAT 197 CONCATLIST 123 AR.FIND.BUTTON 112 TEXTSTREAM 105 AR.FIND.EDIT.CHANGES 86 GETWINDOWUSERPROP 74 CONCAT 68 DATE 56 AR.USERNAME 49 AR.PROMPT.PRINT 36 AR.CONFIRM 23 GETWINDOWUSERPROP 10 TEDIT.STREAMCHANGEDP) (696 SUBMIT 679 EDIT 670 EDIT 639 TITLE 576 SUBMIT 541 :NORMAL 513 SI::NLSETQ-PROCEED-CASE 465 AR.FORM.SCRATCH.MAP 446 Date%: 437 Number%: 381 SUBMIT 351 Edit-Date%: 333 Edit-By%: 313 Edit-Date%: 303 Edit-By%: 272 AR.FIELD.LEN 243 AR.FIELD.LEN 229 AR.FIELD.START 118 Disposition%: 96 EDIT 81 AR.FORM.NUMBER 18 AR.GET/PUT.FILE.NAME) ( 708 "Unknown bug -- AR not saved -- try again" 651 " " 644 "Saved " 602 " ..." 596 " " 589 "Saving " 583 "Submitting " 553 "Cannot update TDS file --- Put aborted -- try again" 522 (CL:ERROR . SI::NLSETQHANDLER) 492 " --- Put Aborted" 486 "Bad bug report form: " 424 " = " 410 "Can't get AR submit number --- Put Aborted --- Try again" 391 "Getting Submit number..." 256 (PROTECTED ON) 211 "]" 205 " [" 143 " " 63 " " 44 "Put aborted" 30 "Form has NOT been changed --- confirm PUT") AR.MENU.FN.PUT&GET :D8 (L (0 FORMWINDOW)) @ @H (20 AR.MENU.FN.GET 13 AR.MENU.FN.PUT 4 AR.READ.NUMBER) NIL () AR.MENU.FN.PUT&GETNEXT :D8 (L (0 FORMWINDOW)) @ @ (11 AR.GET.NEXT 5 AR.MENU.FN.PUT) NIL () AR.FORM.SAVEA0001A0002 :D8 (L (0 OUTSTREAM) F 0 RESETSTATE F 1 FORMWINDOW) 8P´5@d ˜¿@ ¿@ Qio@ o (53 AR.PROMPT.PRINT 42 FULLNAME 29 DELFILE 24 FULLNAME 17 CLOSEF 9 OPENP) NIL ( 47 " deleted" 36 "SAVE ERROR - bad bug report file ") AR.FORM.SAVEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 *UPPER-CASE-FILE-NAMES* I 0 SI::*CLEANUP-FORMS* F 15 FORMWINDOW F 16 FILENAME F 17 SI::*RESETFORMS*) ¼W W jƒ W 3 œW _i c ¿gW gg]hhdW"c"¿O³WioM o ¿nÿÿM ¿¿IJkÔ \µWo ¿M ºL^g M ¿Ml ¿Ng ²Ng JÔ_¿Ng °IJ _É_¿OÉ_¿HOkÙ ¿Ok"OOó’±•H _3 µ)ONg _ð³qWoOo°[lÿó²-ONg _ð³WoOo¿Ml*°&Ol ð«Ol:ð¥Ol'ðž¿Ml' ¿MO ¿OkÔ_±ÿjM ¿M ±þ·(439 TERPRI 432 TERPRI 415 BOUT 406 BOUT 397 BLOCK 368 AR.PROMPT.PRINT 344 IMAGEOBJPROP 324 AR.PROMPT.PRINT 300 IMAGEOBJPROP 263 SETFILEPTR 229 MBUTTON.FIND.NEXT.FIELD 220 IMAGEOBJPROP 204 IMAGEOBJPROP 191 IMAGEOBJPROP 179 BOUT 170 PRIN3 164 IMAGEOBJPROP 148 CLOSEF 141 AR.PROMPT.PRINT 126 MBUTTON.FIND.NEXT.BUTTON 116 BLOCK 110 LINELENGTH 100 AR.PROMPT.PRINT 89 FULLNAME 57 OPENSTREAM 32 AR.GET.FILENAME 13 TEXTOBJ 6 TEXTSTREAM) (339 MBTEXT 295 MBTEXT 248 SELECTION 236 SELECTION 215 AR.FIELD.LEN 199 AR.FIELD.START 186 AR.PROTECTED.FLG 159 MBTEXT 52 NEW 47 OUTPUT 40 AR.FORM.SAVEA0001A0002) ( 363 " field discarded.]" 356 " [NS chars in " 319 " field discarded.]" 312 " [Image object(s) in " 136 " done" 94 " ..." 83 "Writing ") AR.FORM.SAVE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 FILENAME I 0 FORMWINDOW F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 AR.FORM.SAVEA0001) (8 SI::RESETUNWIND) () AR.GET.SUBMIT.NUMA0001 :D8 (P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SI::CONDITION-CASE-LITERALS F 4 *CONDITION-HANDLER-BINDINGS* F 5 AR.SUBMIT.NUM.FILE.NAME F 6 A0126) /i@STUggo cg(37 \MVLIST 32 OPENSTREAM) (44 :NORMAL 22 OLD 17 BOTH) ( 27 ((DON'T.CACHE T) (DON'TCACHE T))) AR.GET.SUBMIT.NUMA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SUBMIT.NUM.FILE F 3 CURR.NEXT.NUM F 4 DONTINCREMENT F 5 SI::NLSETQ-VALUE) Ii@Rj ¿R` c3 ¥¿T³Rj ¿SkØR`€hhc g(59 PRINT 44 SETFILEPTR 33 ERROR! 23 READ 11 SETFILEPTR) (70 :NORMAL 54 FILERDTBL 18 FILERDTBL) () AR.GET.SUBMIT.NUM :D8 (L (0 FORMWINDOW) P 15 *CONDITION-HANDLER-BINDINGS* P 14 SI::*NLSETQFLAG* P 13 *PROCEED-CASES* P 12 SI::NLSETQ-VALUE P 11 A0126 P 10 SI::CONDITION-CASE-LITERALS P 6 *UPPER-CASE-FILE-NAMES* P 4 CURR.NEXT.NUM P 2 SUBMIT.NUM.FILE I 1 DONTINCREMENT F 16 AR.FILE.TRIES F 17 *PROCEED-CASES* F 18 *CONDITION-HANDLER-BINDINGS* F 19 AR.SUBMIT.NUM.FILE.NAME) áW k‚ IHó@iohoO _dgð—¿O$°Ã›O_¿hO$ŠOO _ºO½J²9`W"ioW$O gð´O»J ¿K´LMÃŸ@ioW&h@ihoMo¿nˆ ¿IkÔY±ÿ*(215 DISMISS 206 AR.PROMPT.PRINT 196 CL:FORMAT 180 AR.PROMPT.PRINT 153 CLOSEF 134 AR.GET.SUBMIT.NUMA0002 92 \MVLIST 86 SI::CONDITION-CASE-ERROR 39 AR.GET.SUBMIT.NUMA0001 21 AR.PROMPT.PRINT) (165 XCL:FILE-NOT-FOUND 140 :NORMAL 112 SI::NLSETQ-PROCEED-CASE 62 CL:ERROR 47 :NORMAL) ( 201 " --- please wait" 190 "~A" 173 "Can't find submit number file " 121 (CL:ERROR . SI::NLSETQHANDLER) 28 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR)) 16 "Gave up trying to open submit number file--try again later") AR.FIND.EDIT.CHANGES :D8 (L (0 FORMWINDOW)) ”@g @g @g jÔI¡hJ _OKkÔ ]¢±N¿M¼M»Lg ^I_µ:j__¿H_¿Lg _²BLg KÔ_¿Lg _°@_¿O_¿O²¼@g °°OK _ µ‚±‹o ¿OOÿ²!Ojð’±ÿSOdJOOOO ¢±ÿ?¿NdgðOo ²Zl(OOOoh JOOkÙo °É_¿O É_±ÿpOhO_¿nOó¢±þ¸@MOO¿±þ©O (401 DREVERSE 390 AR.NOTE.FIELD.CHANGED 332 CONCATCODES 326 \NCONC2 321 \NCONC2 316 \NCONC2 306 AR.READ.BYTES 294 \APPEND2 283 AR.READ.BYTES 268 MEMB 242 AR.PIECE.CHANGED 208 SHOULDNT 190 MBUTTON.FIND.NEXT.FIELD 180 GETWINDOWUSERPROP 145 IMAGEOBJPROP 129 IMAGEOBJPROP 114 IMAGEOBJPROP 86 IMAGEOBJPROP 68 BLOCK 58 MBUTTON.FIND.NEXT.BUTTON 46 TEXTOBJ 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (351 SELECTION 339 SELECTION 254 Attn%: 175 AR.FORM.SCRATCH.STREAM2 140 AR.FIELD.LEN 124 AR.FIELD.START 109 AR.PROTECTED.FLG 81 MBTEXT 27 TEXTSTREAM 16 AR.FORM.SCRATCH.MAP 5 AR.FORM.SCRATCH.STREAM) ( 311 (41) 288 (45 62) 263 (MENU SUBMENU) 203 "Can't find field for button") AR.NOTE.FIELD.CHANGEDA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SCRATCH.STREAM F 3 FIELD.LEN F 4 FORMSTREAM F 5 OBJ F 6 SI::NLSETQ-VALUE F 7 FIELD.CH# F 8 SCRATCH.MAP) @i@Ug R SiTWkÙ ¿TRS¿Whcg(52 PUTASSOC 44 COPYBYTES 35 SETFILEPTR 21 GETFILEPTR 15 IMAGEOBJPROP) (61 :NORMAL 10 MBTEXT) () AR.NOTE.FIELD.CHANGED :D8 (L (1 BUTTON 0 FORMWINDOW) P 8 *CONDITION-HANDLER-BINDINGS* P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 3 OBJ P 2 FORMSTREAM P 1 SCRATCH.MAP P 0 SCRATCH.STREAM I 3 FIELD.LEN I 2 FIELD.CH# F 9 *PROCEED-CASES* F 10 *CONDITION-HANDLER-BINDINGS*) Ì @g @g @g AI´‚± H³@ggg X¿B³PKg ² Kg AØb¿Kg °"J A \Éb¿LÉb¿Hmÿ `WioWN gðh(193 AR.NOTE.FIELD.CHANGEDA0001 164 SETFILEPTR 134 MBUTTON.FIND.NEXT.FIELD 127 TEXTOBJ 119 IMAGEOBJPROP 102 IMAGEOBJPROP 89 IMAGEOBJPROP 74 PUTWINDOWPROP 68 OPENSTREAM 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (199 :NORMAL 172 SI::NLSETQ-PROCEED-CASE 151 SELECTION 140 SELECTION 114 AR.FIELD.LEN 97 AR.FIELD.START 84 AR.PROTECTED.FLG 63 BOTH 58 {NODIRCORE} 53 AR.FORM.SCRATCH.STREAM2 27 TEXTSTREAM 16 AR.FORM.SCRATCH.MAP 5 AR.FORM.SCRATCH.STREAM2) ( 181 (CL:ERROR . SI::NLSETQHANDLER)) AR.SEND.MESSAGE :D8 (L (4 EDIT.CHANGES.TEXT 3 EDIT.CHANGES.STRING 2 NUM 1 OPERATION 0 FORMWINDOW) P 8 *PRINT-BASE* F 9 AR.NO.MESSAGE.FLG F 10 AR.IDENTIFICATION.STRING F 11 AR.INTERESTING.SUBMIT.FIELDS F 12 LAFITEEDITORFONT) : @ qW’±g •«o hHg [Hg Ydoô²!Agð™Kdoô–¿o…o»¹gg ZnÿÿJ l oJ ¿Agð•o„oJ ¿oJ ¿WJ ¿oJ ¿BµoJ oJ HJgJ ¿oJ ¿IJ ¿J Agð²&Koô³oJ ¿KJ ¿J ¿J Agð²,HJg¿J ¿Wd½HJMi¿µñ°[oJ ¿CJ ¿oJ ¿J ¿D²1gD\²"J ¿HJghL ¿J ¿D^µAJ ggJhddgWh hoggh_jð²Ogð«HJOi¿N°œ(563 AR.COPY.BUTTON.FIELD 531 ADD.PROCESS 506 OPENTEXTSTREAM 476 TERPRI 464 TERPRI 457 AR.COPY.BUTTON.FIELD 439 TERPRI 419 TERPRI 412 PRIN1 400 PRIN1 392 PRIN1 374 AR.COPY.BUTTON.FIELD 358 TERPRI 351 AR.COPY.BUTTON.FIELD 330 TERPRI 323 TERPRI 316 PRIN1 308 PRIN1 279 TERPRI 272 PRIN1 264 PRIN1 252 TERPRI 246 AR.COPY.BUTTON.FIELD 234 PRIN1 222 PRIN1 207 PRIN1 195 PRIN1 186 PRIN1 174 PRIN1 148 PRIN1 132 LINELENGTH 122 OPENSTREAM 66 AR.GET.BUTTON.FIELD.AS.TEXT 54 AR.GET.BUTTON.FIELD.AS.TEXT 41 PROMPTPRINT 30 LAFITEMODE 24 \DEFINEDP 5 TEXTSTREAM) (550 Description%: 526 MESSAGESENDER 521 NAME 495 FONT 486 QUOTE 481 \SENDMESSAGE 447 Description%: 428 Description%: 346 Description%: 336 SUBMIT 285 EDIT 241 Subject%: 155 SUBMIT 117 BOTH 112 {NODIRCORE} 82 EDIT 61 Attn%: 49 Submitter%: 19 LAFITEMODE) ( 514 ((QUOTE (LEAVETTY T))) 406 "]" 386 "[" 302 "cc: " 294 "" 258 "To: " 228 ": " 216 "" 201 " " 180 "ed " 168 "Edit" 162 "Submitt" 142 "Subject: " 105 "" 99 ">>Recipients<<" 91 "" 73 "" 36 "Can't send AR message -- LAFITE not turned on") AR.COPY.BUTTON.FIELD :D8 (L (4 START 3 LABEL 2 BUTTON.NAME 1 OUTSTREAM 0 FORMSTREAM)) ª @B QH¹HºD˜IDÔ¹JDÕZ€Jjó´‚±‡@IkÙ C²A ¿BA ¿oA °)JkÙº@ \dl ð˜¿Jdjó³ð°3 ŸAÉ(»ALlK¿J!k_Nó³!@ _3 ²AÉ(½AOlM¿OkÔ°ÝC•A i(166 TERPRI 73 PRIN1 61 PRIN1 53 TERPRI 44 SETFILEPTR 6 AR.GET.BUTTON.FIELD.SHAPE) (140 STREAM 105 STREAM) ( 67 " ") AR.UPDATE.AR.INFOA0001 :D8 (P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SI::CONDITION-CASE-LITERALS F 4 *CONDITION-HANDLER-BINDINGS* F 5 AR.INFO.FILE.NAME F 6 A0131) /i@STUggo cg(37 \MVLIST 32 OPENSTREAM) (44 :NORMAL 22 OLD/NEW 17 BOTH) ( 27 ((DON'T.CACHE T) (DON'TCACHE T))) AR.UPDATE.AR.INFOA0002 :D8 (NAME SI::*UNWIND-PROTECT* P 0 *PRINT-BASE* I 0 SI::*CLEANUP-FORMS* F 1 INFO.FILE F 2 OP F 3 AR.INFO F 4 USER.INFO) .l nÿÿQ oQ RSThQ Q (43 TERPRI 37 PRIN1 24 PRIN1 13 LINELENGTH) NIL ( 18 " -- ") AR.UPDATE.AR.INFOA0003 :D8 (F 0 INFO.FILE) P (5 CLOSEF) NIL () AR.UPDATE.AR.INFO :D8 (L (0 FORMWINDOW) P 10 A0131 P 9 SI::CONDITION-CASE-LITERALS P 5 *UPPER-CASE-FILE-NAMES* P 2 INFO.FILE I 3 USER.INFO I 2 AR.INFO I 1 OP F 11 AR.FILE.TRIES) Û@ioWkrIHó²@io¿ho O _dgð—¿O$°Ã˜O¾hN$ŠOO _ºO»Jµ4LhoK\ @iLo¿nˆ ¿IkÔY±ÿkmÿ ¿g J ¿$¿@o h(215 AR.PROMPT.PRINT 199 CLOSEF 193 \MVLIST 188 AR.UPDATE.AR.INFOA0002 177 SETFILEPTR 162 DISMISS 153 AR.PROMPT.PRINT 139 CL::SIMPLE-STRING-EQUAL 133 CL:FORMAT 108 \MVLIST 102 SI::CONDITION-CASE-ERROR 58 AR.UPDATE.AR.INFOA0001 40 ERROR! 34 AR.PROMPT.PRINT 11 AR.PROMPT.PRINT) (183 AR.UPDATE.AR.INFOA0003 81 CL:ERROR 66 :NORMAL) ( 210 " done" 148 " --- please wait" 127 "~A" 47 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR)) 29 "Gave up trying to open info file--try again later" 6 "Updating TDS file...") AR.PUT.FAILED :D8 (L (1 FORMWINDOW 0 MSG)) 'Ak Ai@Ag@ (36 PUTWINDOWPROP 31 MKSTRING 19 AR.PROMPT.PRINT 11 FLASHWINDOW 4 RINGBELLS) (25 TITLE) () AR.CHECK.FIELDSA0001 :D8 (L (2 CH# 1 OBJ 0 TOBJ) F 5 FORMWINDOW) ŠPAg Xd²xgð³oAg ²Ag BØ»Ag °@B ZÉ»JÉ¼UABKLlHY´!oAg ohI h(133 \APPEND2 118 IMAGEOBJPROP 72 MBUTTON.FIND.NEXT.FIELD 63 IMAGEOBJPROP 49 IMAGEOBJPROP 36 IMAGEOBJPROP 13 IMAGEOBJPROP) (113 MBTEXT 87 SELECTION 78 SELECTION 58 AR.FIELD.LEN 44 AR.FIELD.START 31 AR.PROTECTED.FLG 22 NILL 8 AR.CHECK.FN) ( 123 "] --- " 107 "Bad value for field [") AR.CHECK.FIELDS :D8 (I 0 FORMWINDOW) @g (10 AR.MAP.BUTTONS) (5 AR.CHECK.FIELDSA0001) () AR.CHECK.MENU :D8 (L (4 FIELD.LEN 3 FIELD.CH# 2 CH# 1 OBJ 0 FORMWINDOW)) L@ DCkÙHµh YAg ³èAghoIoh(58 IMAGEOBJPROP 44 MEMB 39 IMAGEOBJPROP 27 PACKC 14 AR.READ.BYTES 5 TEXTSTREAM) (52 AR.MENU 34 AR.MENU.LIST) ( 69 " --- please reset" 63 "bad menu value: ") AR.CHECK.SHORTSTRING :D8 (L (4 FIELD.LEN 3 FIELD.CH# 2 CH# 1 OBJ 0 FORMWINDOW)) -DAg ñ¡hoAg oDh(31 IMAGEOBJPROP 11 IMAGEOBJPROP) (26 AR.MAX.LEN 6 AR.MAX.LEN) ( 36 "; current length= " 20 "max length= ") AR.CHECK.SUBMENU :D8 (L (4 FIELD.LEN 3 FIELD.CH# 2 CH# 1 OBJ 0 FORMWINDOW)) l@ DCkÙAghHµh YAg A@ ' ³àAghAghoIoh(90 IMAGEOBJPROP 78 IMAGEOBJPROP 64 MEMB 58 AR.GET.ASSOCIATED.MENU.VAL 51 IMAGEOBJPROP 39 PACKC 29 IMAGEOBJPROP 14 AR.READ.BYTES 5 TEXTSTREAM) (84 AR.ASSOCIATED.MENU.VAL 72 AR.SUBMENUS 46 AR.SUBMENU.LIST 23 AR.ASSOCIATED.MENU.VAL) ( 101 " --- please reset" 95 "bad menu value: ") AR.FORM.GET/PUT.FILE :D8 (L (1 OPERATION 0 FORMWINDOW)) Š@ @ Agð•o„o@g hHhg ¹H I´E@gIAgð—@I @I Y´@goI @i (135 TEDIT.STREAMCHANGEDP 128 PUTWINDOWPROP 123 CONCAT 103 AR.FORM.SAVE 95 AR.GET.AR 80 PUTWINDOWPROP 65 TERPRI 58 PROMPTFORWORD 44 GETWINDOWUSERPROP 11 GETPROMPTWINDOW 5 AR.PROMPT.CLEAR) (112 TITLE 86 Get 74 AR.GET/PUT.FILE.NAME 52 TTY 39 AR.GET/PUT.FILE.NAME 20 Get) ( 117 "Saved " 33 "Put File: " 27 "Get File: ") AR.GET.NEXT :D8 (L (0 FORMWINDOW) P 1 *UPPER-CASE-FILE-NAMES* F 3 AR.IDENTIFICATION.STRING) ‚@g µ @ 3 H«@o HkØXd ™¿@H hJµ @i Zd²óýó³@ioSo h@iSoHo ¿°ª(125 AR.PROMPT.PRINT 103 AR.PROMPT.PRINT 76 AR.GET.SUBMIT.NUM 64 AR.MENU.FN.GET 55 INFILEP 50 AR.FILENAME 36 AR.PROMPT.PRINT 18 AR.GET.NUMBER.FIELD 10 GETWINDOWUSERPROP) (5 AR.FORM.NUMBER) ( 119 " doesn't exist, checking next ar." 113 " #" 97 " hasn't been submitted yet." 91 "Next " 31 "Can't GetNext when there isn't a current number") AR.FORM.FILL.IN.DEFAULTSA0001 :D8 (L (2 CH# 1 OBJ 0 TOBJ) F 1 DEFAULTS F 2 ALREADY.FILLED) wAg H´fAg Hd´ hQc¿Ag œAg °@B µo Éjó´Ag Rch(111 IMAGEOBJPROP 89 SHOULDNT 77 MBUTTON.FIND.NEXT.FIELD 68 IMAGEOBJPROP 56 IMAGEOBJPROP 37 EVAL 27 IMAGEOBJPROP 10 IMAGEOBJPROP) (106 MBTEXT 94 SELECTION 63 AR.FIELD.LEN 51 AR.PROTECTED.FLG 22 MBTEXT 5 FILLINVALUE) ( 84 "Can't find field for button") AR.FORM.FILL.IN.DEFAULTS :D8 (L (0 FORMWINDOW) P 3 *PRINT-CASE* P 2 DEFAULTS P 1 ALREADY.FILLED) Y@ !Hg I²0ghoIdo@ ¥¿@J @o (86 AR.PROMPT.PRINT 75 AR.REPLACE.FILL.INS 67 ERROR! 61 MOUSECONFIRM 56 GETPROMPTWINDOW 44 CL:FORMAT 19 AR.MAP.BUTTONS 5 TEXTSTREAM) (27 :UPCASE 14 AR.FORM.FILL.IN.DEFAULTSA0001) ( 81 " done" 50 "Click LEFT to overwrite anyway" 36 "The ~{~A ~}field~:[ is~;s are~] already non-empty") AR.CURRENT.LISP.VERSION :D8 NIL 6`i o`k`o ‘hmö(51 CONCAT 46 SUBSTRING 36 CL::SIMPLE-STRING-EQUAL 10 L-CASE) (26 MAKESYSNAME 20 MAKESYSDATE 4 MAKESYSNAME) ( 31 "LISPCORE" 15 " ") AR.PROMPT :D8 (L (1 FORMWINDOW 0 WORDS) P 0 *PRINT-BASE*) /l Al I @dž‰dI ¿µõ…I h(43 PRIN1 31 PRIN1 18 CLEARW 9 GETPROMPTWINDOW) NIL () AR.PROMPT.PRINT :D8 (L (0 ARGS) P 1 *PRINT-BASE*) Jel kal 2Hl½¼MLó‘hMa[dið˜¿J °gð–J †KJ ¿MkÔ]°Ñ(65 PRIN1 57 CLEARW 42 FRESHLINE 14 GETPROMPTWINDOW) (49 :CLEAR) () AR.PROMPT.CLEAR :D8 (L (0 FORMWINDOW)) @l (12 CLEARW 7 GETPROMPTWINDOW) NIL () AR.GET.FILENAME :D8 (L (1 PUTFLG 0 NUM)) @3 ´@ (10 AR.FILENAME) NIL () AR.READ.NUMBERA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 AR.IDENTIFICATION.STRING F 2 RETFLG) Ug` hhPco ohdPcQo hddihid µRhð´(82 ERROR! 70 RNUMBER 57 CONCAT 33 PROMPTPRINT 14 TTY.PROCESS) (9 \RUNNING.PROCESS 4 TTY.PROCESS) ( 52 " number" 38 (CLRPROMPT) 28 "Type or select digits of desired AR.") AR.READ.NUMBER :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 RETFLG F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 AR.READ.NUMBERA0001) (8 SI::RESETUNWIND) () AR.FILENAME :D8 (L (0 ARN) F 0 AR.DIRECTORY) Po@Ômûmÿo(26 CONCAT 16 SUBSTRING) NIL ( 21 ".AR" 5 100000) AR.READ.BYTES :D8 (L (2 START 1 NBYTES 0 STREAM)) ,B—@B ¿AAk\Hó³@ »JµKhZ¹LkÔ°íK&º°øI(8 SETFILEPTR) NIL () AR.USERNAME :D8 NIL g ´di(24 USERNAME 16 FULLUSERNAME 9 \DEFINEDP) (4 FULLUSERNAME) () TEDIT.FAST.RAW.INCLUDE :D8 (L (4 INSERTCH# 3 END 2 START 1 INSTREAM 0 TEXTSTREAM) P 9 \INTERRUPTABLE) @ HÉ¹DI µI ÉI ºIJ É»CµA BµjbÕ¼Kgð³!DIJ ÉóKDHJ»JkÔºHD`dA¿dB¿dL¿dhÎ ¿dh¿HÉ@½dM¿djÏ¿HÉ:¾dN¿_ OdÈnðåhÒnÿåäÍ¿OlkØÐhÓÍdh¿LKJ HHÉLÔ_O(235 \TEDIT.INSERT.PIECES 113 \SPLITPIECE 95 FINDNODE-INDEX 70 GETEOFPTR 53 FINDNODE-INDEX 45 INDEX 32 \LASTNODE 24 \CHTOPCNO 5 TEXTOBJ) (247 TEXTOBJ 241 TEXTOBJ 177 TEXTOBJ 157 TEXTOBJ 125 |PIECETYPE#| 100 PCTNODE 84 LASTPIECE 58 PCTNODE 37 PCTNODE 14 TEXTOBJ) () AR.PIECE.CHANGED :D8 (L (5 LEN 4 START 3 REFSTREAM 2 CH# 1 TEXTSTREAM 0 TEXTOBJ)) ¬@ÉABH Y¡iHI ÉZd´Jd3‘hÉCð›JÉDÿ°0ABkÙ ¿CD ¿JÉ»k\Kó¬A C ð¡h…LkÔ°ñi²¡EJÉÕb jó´’DJÉÔb¿BJÉÔb¿JÉZ±ÿ~(85 SETFILEPTR 77 SETFILEPTR 28 FINDNODE-INDEX 17 \CHTOPCNO) (164 PIECE 152 PIECE 139 PIECE 123 PIECE 92 PIECE 62 PIECE 51 PIECE 33 PCTNODE 5 TEXTOBJ) () AR.UNSELECT.ITEM :D8 (NAME TB.UNSELECT.ITEM L (1 ITEM 0 BROWSER)) 0AÊjð³"AÈ@Hd@Hgh(43 TB.SHOW.SELECTION 31 TB.DESELECTRANGE) (38 ERASE 24 TABLEBROWSER 5 TABLEITEM) () AR.DISPLAY :D8 (L (2 PROMPTW 1 WINDOW 0 AR#) F 1 AR.IDENTIFICATION.STRING) ^Qo@Adž ¿AgH°H bgg¿@Ag hBdAhdo (91 OPENTEXTSTREAM 75 AR.DISPLAY.TEXTSTREAM 68 GETWINDOWPROP 55 PUTWINDOWPROP 38 CREATEW 22 CLEARW 11 CONCAT) (63 WIDTH 50 TEXTICON 45 ICONFN 29 TITLE) ( 85 (READONLY T SEL DON'T) 5 " ") AR.HARDCOPY :D8 (L (1 PROMPTW 0 NUMBERS) F 8 AR.IDENTIFICATION.STRING F 9 ARHEADERFONT F 10 AR.HARDCOPY.WIDTH F 11 ARFONT F 12 AR.HARDCOPY.MAXLENGTH) Ø@µ%Aig b¿@d²oWo°³Ü@hb¿°ÔWo@jdd5H]µ(N´‚±ˆKjð’±") ( AR.INFO.FILE.NAME "{AR:MV:Envos}LispARs.tds") (AR.SUBMIT.NUM.FILE.NAME "{AR:MV:Envos}LispARs.num") (AR.IDENTIFICATION.STRING "AR"))) (INITVARS (ARBUTTONFONT ( FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))) (ARFONT (FONTCREATE (QUOTE TIMESROMAN) 10)) (ARBOLDFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE BOLD))) (ARHEADERFONT (FONTCREATE (QUOTE HELVETICA) 8)) ( AR.ICONFONT (FONTCREATE (QUOTE GACHA) 8)) (AR.FILE.TRIES 10) (AR.NO.MESSAGE.FLG NIL)) (VARS ( AR.NULL.BUTTON.VALUE (PACKC)) AR.FORM.MENU.TITLEMENU.ITEMS (AR.FORM.MENU.TITLEMENU) AR.FORM.ICONSPEC) (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS AR.FORM.ICONSPEC AR.NULL.BUTTON.VALUE AR.HARDCOPY.PAGENO.KLUDGE.OFFSET AR.MENU.READTABLE TEDIT.READTABLE AR.FORM.MENU.TITLEMENU) (LOCALVARS . T) (P (* ; "Need TEDITDECLS for TEDIT.FAST.RAW.INCLUDE") (OR (GET (QUOTE TEDITDECLS) (QUOTE FILE)) (LOAD (QUOTE TEDITDECLS))))) (DECLARE%: EVAL@COMPILE DOCOPY (P (CL:PROCLAIM (QUOTE (CL:SPECIAL AR.INFO.FILE.NAME AR.SUBMIT.NUM.FILE.NAME AR.DIRECTORY AR.NO.MESSAGE.FLG ARBUTTONFONT ARFONT ARBOLDFONT ARHEADERFONT AR.ICONFONT AR.FILE.TRIES AR.HARDCOPY.MAXLENGTH AR.FORM.FORMAT AR.FORM.SPECS AR.HARDCOPY.WIDTH AR.DISPLAY.FORMAT AR.IDENTIFICATION.STRING AR.FORM.MENU.TITLEMENU.ITEMS AR.INTERESTING.SUBMIT.FIELDS))))) (FILES (SYSLOAD) ARQUERY TABLEBROWSER TEDIT READNUMBER) (VARS ( AR.HARDCOPY.PAGENO.KLUDGE.OFFSET (COND ((> (IDATE TEDITSYSTEMDATE) (IDATE "23-feb-88 0000")) (* ; "Bug was fixed") 0) (T 2)))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (COND ((EQ MAKESYSNAME :LYRIC) ( FILESLOAD (SYSLOAD) MVALUESPATCH) (MOVD? (QUOTE AR.UNSELECT.ITEM) (QUOTE TB.UNSELECT.ITEM) NIL T))) ( PUTD (QUOTE AR.UNSELECT.ITEM) NIL)) (P (* ; "Install background menu command. Smash any previous AREdit.") (/RPLACD (OR (CL:ASSOC "AR Edit" BackgroundMenuCommands :TEST (QUOTE STRING-EQUAL)) (CAR (RPAQ BackgroundMenuCommands (CONS (LIST "AR Edit") BackgroundMenuCommands)))) (QUOTE ((QUOTE (AR.FORM)) "Create a new AR editor for the Lisp AR database" (SUBITEMS ("New AR form" (QUOTE (AR.FORM)) "Creates a new AR editor, cleared ready to submit a new AR.") ("Load AR" (QUOTE (AR.FORM ( AR.READ.NUMBER))) "Creates a new AR editor and loads a specified AR into it") ("Display AR" (QUOTE ( AR.DISPLAY (AR.READ.NUMBER))) "Displays a specified AR in a read-only window") ("AR Query Form" (QUOTE (AR.QFORM.CREATE)) "Creates an AR Query Form"))))) (RPAQ BackgroundMenu))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA AR.PROMPT.PRINT))))) (RPAQ? AR.HARDCOPY.WIDTH 504) (RPAQ? AR.HARDCOPY.MAXLENGTH 40000) (RPAQ? AR.DISPLAY.FORMAT NIL) (RPAQQ AR.FORM.FORMAT (Number%: TAB Date%: CR Submitter%: TAB Source%: CR CR Subject%: CR CR |Assigned To:| TAB Attn%: CR CR Status%: TAB In/By%: CR |Problem Type:| TAB Impact%: CR Difficulty%: TAB Frequency%: CR TAB Priority%: CR CR System%: TAB Subsystem%: CR CR Machine%: TAB Disk%: CR |Lisp Version:| TAB |Source Files:| CR |Microcode Version:| TAB |Memory Size:| CR |File Server:| TAB |Server Software Version:| CR CR Disposition%: CR CR |Release Note:| CR CR Description%: CR CR Workaround%: CR |Test Case:| CR CR Edit-By%: TAB Edit-Date%: CR)) (RPAQQ AR.FORM.SPECS ((Number%: FIELDTYPE PROTECTEDSTRING) (Date%: FIELDTYPE PROTECTEDSTRING) ( Submitter%: FIELDTYPE STRING INITIALVALUE (AR.USERNAME)) (Source%: FIELDTYPE STRING INITIALVALUE ( AR.USERNAME)) (Subject%: FIELDTYPE STRING) (|Assigned To:| FIELDTYPE STRING) (Attn%: FIELDTYPE STRING) (Status%: FIELDTYPE MENU MENULIST (New Open Open/Unreleased Fixed Closed Declined Superseded Obsolete Incomplete Internal Wish) INITIALVALUE New) (In/By%: FIELDTYPE STRING) (|Problem Type:| FIELDTYPE MENU MENULIST (Bug |Design - Impl| Feature |Design - UI| Documentation Performance)) (Impact%: FIELDTYPE MENU MENULIST (Fatal Serious Moderate Annoying Minor)) (Difficulty%: FIELDTYPE MENU MENULIST (Easy Moderate Hard Very% Hard Impossible)) (Frequency%: FIELDTYPE MENU MENULIST (Everytime Intermittent Once)) (Priority%: FIELDTYPE MENU MENULIST (Absolutely Hopefully Perhaps Unlikely)) ( System%: FIELDTYPE MENU ASSOCSUBMENU Subsystem%: MENULIST (Communications |Windows and Graphics| Operating% System Language% Support Programming% Environment Text Common% Lisp CLOS Port Maiko LOOPS PCE PROLOG 4045 Rooms Library BusMaster NoteCards Documentation Other% Software)) (Subsystem%: FIELDTYPE SUBMENU ASSOCMENU System%: SUBMENULIST (Communications (NS% Protocols NS% Filing NS% Printing PUP% Protocols PUP% FTP Grapevine Leaf RS232 VAX% Server DEI EVMS/RPC Lisp% Servers Clearinghouse TCP/IP Centronics TTYPort Chat Chat% Interface |Pup Chat Driver| |NS Chat Driver| |RS232 Chat Driver| |TTYPort Chat Driver| |Chat DM2500 Emulator| |Chat VT100 Emulator| NSMaintain Other) |Windows and Graphics| (Window% System Library Fonts Printing Color Bitmaps Demos Menus Other) Operating% System (Virtual% Memory |Generic File Operations| DLion% Disk Daybreak% Disk DLion% Floppy Daybreak% Floppy Dolphin/Dorado% Disk Processes Streams Keyboard Mouse Other) Language% Support ( Arithmetic |Compiler, Code Format| For/If Microcode Storage% Formats/Mgt Garbage% Collection |Read and Print| |Stack and Interpreter| |Bootstrapping and Teleraid| Diagnostics Other) Programming% Environment (Break% Package Code% Editor DWIM Inspector File% Package History Masterscope PSW Record% Package Performance% Tools Edit% Interface Exec Presentations Stepper Other) Text (TEdit TTYIN Lafite AR% Database Other) Common% Lisp (Type% System Declarations Macros Control% Structure Evaluator Symbols/Packages Arithmetic Characters/Strings Sequences Lists Arrays Structures Hash% Tables |Streams and I/O| |File System Interface| Error% System Compiler Tamarin% Support Microcoded% Operations Common% Loops Other) CLOS (Language Browsers Methods Classes Meta% Classes Other) Port (Other) Maiko (Bytecode% Emulation Native% Code I/O% System Host% Integration |Host User Interface| |Foreign Fn Interface| Installation% Procedure Documentation Other) LOOPS ( Active% Values Composite% Objects Objects Browsers User% Interface Virtual% Copy Other) PCE ( Monochrome% Display Color% Display Keyboard |Emulated Rigid Disk| Floppy% Disk Printer% Port User% Interface Programmatic% Interface |File System Interface| Memory Ethernet Configuration% Tools Other) PROLOG (Arithmetic Dinfo Microcode Editor% Interface Compiler Interpreter I/O Debugging Prolog-Lisp% Interface Other) 4045 (XLPStream Remoteserver HQStream PSO Other) Rooms (Window% Types Overview Suites Buttons Documentation Other) Library (Cash-File Centronics CharCodeTables Copyfiles DEdit DatabaseFns EditBitmap |FX-80 Printer Support| Filebrowser Font% Samples GCHax GraphZoom Grapher Hash Hash-File |Image Object Interface| Kermit Masterscope% Browser MatMult |Press Printer Support| ReadNumber SameDir Sketch SysEdit/EXPORTS.ALL Tablebrowser TExec TextModules Virtual% Keyboards Where-Is Other) BusMaster (Speech Color Other) NoteCards (User% Interface Programmer's% Interface System% Interface Notefiles Links Documentation Text% Cards File% Boxes Sketch% Cards Graph% Cards Browser% Cards Search% Cards |Link Index Cards| Document% Cards Other% Cards Library) Documentation ( Tools |1108 Users Guide| |1186 Users Guide| Primer |Product Descr/Tech Summary| |Hardware Installation Guide| Programmers% Introduction |Interlisp Reference Manual| |Library Package Manual| |Internal System Documentation| Other) Other% Software (Installation% Utility Release% Procedure Other))) (Machine%: FIELDTYPE MENU ASSOCSUBMENU Disk%: MENULIST (1100 1108 1132 1186) FILLINVALUE (SELECTQ (MACHINETYPE) (DANDELION 1108) (DOLPHIN 1100) (DORADO 1132) (DOVE 1186) AR.NULL.BUTTON.VALUE)) (Disk%: FIELDTYPE SUBMENU ASSOCMENU Machine%: SUBMENULIST (1100 NIL 1108 ( |SA1000 (10MB)| |SA4000 (29MB)| |Q2040 (43MB)| |Q2080 (80MB)| |T80 (80MB)| |T300 (300MB)| Other) 1132 (|T80 (80MB)| Century315 Other) 1186 (|ST212 (10MB)| |TM703 (20MB)| |TM702 (20MB)| |ST4026 (20MB)| |Q530 (20MB)| |Q540 (40MB)| |Micropolis 1303 (40MB)| |Micropolis 1325 (80MB)|))) (|Lisp Version:| FIELDTYPE STRING FN AR.BUTTONFN.OFFER.DEFAULT FILLINVALUE (AR.CURRENT.LISP.VERSION)) (|Source Files:| FIELDTYPE STRING) (|Microcode Version:| FIELDTYPE STRING FILLINVALUE (MICROCODEVERSION)) ( |Memory Size:| FIELDTYPE STRING FILLINVALUE (REALMEMORYSIZE)) (|File Server:| FIELDTYPE MENU MENULIST (8037 IFS NS |VAX/VMS - 3Mb| |VAX/VMS - 10Mb| VAX/UNIX Micro% VAX/VMS Other)) ( |Server Software Version:| FIELDTYPE STRING) (Disposition%: FIELDTYPE PROTECTEDSTRING) ( |Release Note:| FIELDTYPE STRING) (Description%: FIELDTYPE STRING) (Workaround%: FIELDTYPE STRING) ( |Test Case:| FIELDTYPE STRING) (Edit-By%: FIELDTYPE PROTECTEDSTRING) (Edit-Date%: FIELDTYPE PROTECTEDSTRING))) (RPAQQ AR.INTERESTING.SUBMIT.FIELDS (|Release Note:| Workaround%: |Test Case:|)) (RPAQ AR.DIRECTORY "{AR:MV:Envos}") (RPAQ AR.INFO.FILE.NAME "{AR:MV:Envos}LispARs.tds") (RPAQ AR.SUBMIT.NUM.FILE.NAME "{AR:MV:Envos}LispARs.num") (RPAQ AR.IDENTIFICATION.STRING "AR") (RPAQ? ARBUTTONFONT (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))) (RPAQ? ARFONT (FONTCREATE (QUOTE TIMESROMAN) 10)) (RPAQ? ARBOLDFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE BOLD))) (RPAQ? ARHEADERFONT (FONTCREATE (QUOTE HELVETICA) 8)) (RPAQ? AR.ICONFONT (FONTCREATE (QUOTE GACHA) 8)) (RPAQ? AR.FILE.TRIES 10) (RPAQ? AR.NO.MESSAGE.FLG NIL) (RPAQ AR.NULL.BUTTON.VALUE (PACKC)) (RPAQQ AR.FORM.MENU.TITLEMENU.ITEMS ((Clear (QUOTE (AR.MENU.FN.CLEAR NIL)) "Clears all the fields of the AR") (New (QUOTE (AR.MENU.FN.CLEAR T)) "Same as creating a new form: sets all fields to default initial values") (Get (QUOTE Get) "Retrieves the AR whose number is given in the %"Number:%" field") (GetNext (QUOTE AR.GET.NEXT) "Gets the next existing AR after this one") (Put (QUOTE AR.MENU.FN.PUT) "Saves an edited AR, or submits a new AR") ("Put & GetNext" (QUOTE AR.MENU.FN.PUT&GETNEXT) "Stores the current AR, and Gets the next existing AR") ("Put & Get" (QUOTE AR.MENU.FN.PUT&GET) "Stores the current AR, and Gets another") ("Get From File" (QUOTE (AR.FORM.GET/PUT.FILE Get)) "Retrieves AR from named file") ("Put To File" (QUOTE (AR.FORM.GET/PUT.FILE Put)) "Stores AR into named file") ("Fill In Defaults" (QUOTE AR.FORM.FILL.IN.DEFAULTS) "Fills in default values for Microcode Version, Machine Type, Lisp Version, and Memory Size"))) (RPAQQ AR.FORM.MENU.TITLEMENU NIL) (RPAQQ AR.FORM.ICONSPEC (#*(60 60)OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@CO@@@@@@C@L@@@@@GOH@@@@@C@L@@@@@NAL@@@@@C@L@@CH@L@L@@@@@C@L@@OL@L@L@CN@@C@L@ALL@L@L@CO@@C@L@GHN@L@L@GCH@C@L@N@F@L@L@FAL@C@LGH@F@NAL@F@G@C@LG@@BCOOO@L@CHC@LD@@CGOOOIL@ALC@L@@@CO@@CMH@@NC@L@@@CL@@@O@@@FC@L@@@CH@@@G@@@@C@L@@@O@@@@CH@@@C@L@@@LCOCO@L@@@C@L@@@LGOCOHN@@@C@L@GAHNCCALF@@@C@L@GMHLCC@LF@@@C@L@MOHLCC@LGOL@C@LAHC@LCC@LCON@C@LAHC@LCC@LC@N@C@LC@C@OOCOLC@C@C@LC@C@OOCOLC@C@C@LF@C@LCCG@C@AHC@LF@C@LCCCHC@AHC@LF@C@LCCALC@@LC@LF@CHLCC@LF@@NC@L@@AHLCC@LF@@FC@L@@AHLCC@LF@@FC@L@@@LLCC@LL@@@C@L@AOLLCC@LON@@C@L@AOLLCC@LON@@C@L@AHN@CC@ALF@@C@L@AHF@CC@AHC@@C@L@CHF@CC@AHC@@C@L@C@C@CC@C@AH@C@L@C@CHCC@G@AH@C@L@C@AHCC@F@AH@C@L@C@@N@@AN@AL@C@L@F@@G@@CL@@L@C@L@F@@CNCOH@@N@C@L@N@@AOON@@@F@C@L@L@@@CN@@@@C@C@LAH@@@@@@@@@CHC@LAH@@@@@@@@@ALC@LC@@@@@@@@@@ALC@LF@@@@@@@@@@@NC@LF@@@@@@@@@@@FC@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@ NIL (15 2 30 10))) (CL:PROCLAIM (QUOTE (CL:SPECIAL AR.INFO.FILE.NAME AR.SUBMIT.NUM.FILE.NAME AR.DIRECTORY AR.NO.MESSAGE.FLG ARBUTTONFONT ARFONT ARBOLDFONT ARHEADERFONT AR.ICONFONT AR.FILE.TRIES AR.HARDCOPY.MAXLENGTH AR.FORM.FORMAT AR.FORM.SPECS AR.HARDCOPY.WIDTH AR.DISPLAY.FORMAT AR.IDENTIFICATION.STRING AR.FORM.MENU.TITLEMENU.ITEMS AR.INTERESTING.SUBMIT.FIELDS))) (FILESLOAD (SYSLOAD) ARQUERY TABLEBROWSER TEDIT READNUMBER) (RPAQ AR.HARDCOPY.PAGENO.KLUDGE.OFFSET (COND ((> (IDATE TEDITSYSTEMDATE) (IDATE "23-feb-88 0000")) (* ; "Bug was fixed") 0) (T 2))) (COND ((EQ MAKESYSNAME :LYRIC) (FILESLOAD (SYSLOAD) MVALUESPATCH) (MOVD? (QUOTE AR.UNSELECT.ITEM) ( QUOTE TB.UNSELECT.ITEM) NIL T))) (PUTD (QUOTE AR.UNSELECT.ITEM) NIL) (/RPLACD (OR (CL:ASSOC "AR Edit" BackgroundMenuCommands :TEST (QUOTE STRING-EQUAL)) (CAR (RPAQ BackgroundMenuCommands (CONS (LIST "AR Edit") BackgroundMenuCommands)))) (QUOTE ((QUOTE (AR.FORM)) "Create a new AR editor for the Lisp AR database" (SUBITEMS ("New AR form" (QUOTE (AR.FORM)) "Creates a new AR editor, cleared ready to submit a new AR.") ("Load AR" (QUOTE (AR.FORM ( AR.READ.NUMBER))) "Creates a new AR editor and loads a specified AR into it") ("Display AR" (QUOTE ( AR.DISPLAY (AR.READ.NUMBER))) "Displays a specified AR in a read-only window") ("AR Query Form" (QUOTE (AR.QFORM.CREATE)) "Creates an AR Query Form"))))) (RPAQ BackgroundMenu) (PUTPROPS AREDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1989 1990)) NIL