(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 4-Nov-93 17:04:03" ("compiled on " {DSK}export>lispcore>sources>CLTL2>FILEPKG.;1) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "12-Oct-93 18:01:09" "{Pele:mv:envos}Sources>CLTL2>FILEPKG.;1" 190280 changes to%: (FNS DEFAULT.EDITDEF) (VARS FILEPKGCOMS) previous date%: "22-Sep-92 19:19:15" {DSK}usr>users>sybalsky>cltl2>sources>FILEPKG.;1) EDITFROMFILEA0001A0002A0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 DEF F 3 NAME F 4 TYPE F 5 SI::NLSETQ-VALUE F 6 FILE F 7 EDITCOMS) %i@STRgRVW hc g(25 EDITDEF) (34 :NORMAL 13 =) () EDITFROMFILEA0001A0002 :D8 (P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 DEF P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 TYPE F 7 NAME F 8 SEEN F 9 FNS F 10 SI::NLSETQ-VALUE F 11 EDITPATTERN F 12 *PROCEED-CASES*) i@WVgo WVgo VgWiJJW W)oi V Vi ki WWcWid oi `WL gKoi i hhcg(204 LISPXTERPRI 197 LISPXPRIN1 174 EDITFROMFILEA0001A0002A0003 153 LISPXPRIN1 141 LISPXPRIN2 123 LISPXSPACES 115 LISPXPRIN1 103 SEARCHPRETTYTYPELST 96 LISPXPRIN1 75 \EDITFROMFILE/LOOKIN 42 GETDEF 22 GETDEF) (216 :NORMAL 180 :NORMAL 162 SI::NLSETQ-PROCEED-CASE 51 FNS 32 SAVED 12 CURRENT) ( 191 "failed" 147 ": " 90 "editing the " 37 (NOCOPY NOERROR) 17 (NOCOPY NOERROR)) EDITFROMFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 13 SI::*NLSETQFLAG* P 12 *PROCEED-CASES* P 11 SI::NLSETQ-VALUE P 10 NAME P 8 FILE P 6 SEEN P 5 TYPE I 0 SI::*CLEANUP-FORMS* F 14 FNS F 15 FILES F 16 EDITCOMS F 17 EDITPATTERN F 18 *PROCEED-CASES* F 19 ONLYTYPES F 20 FILEPKGTYPES) h`dioW gW"hhc W`AHIcW&droyHhHH`Ld `9`goLhhi gLWg hiLJ KhZK&|gdW( Lh]d3@"Mg gWO L\O_hO_O_MgWiWhcOMg  O_N  `W$ O O_(349 EDITFROMFILEA0001A0002 326 MEMBER 306 FILECOMSLST 226 GETPROP 197 REMOVE 160 LOADFROM 140 ASKUSER 104 ROOTFILENAME) (336 SI::NLSETQ-PROCEED-CASE 301 EDIT 279 FNS 231 NILL 221 EDITDEF 189 FNS 155 ALLPROP 145 Y 123 Y 118 DWIMWAIT 109 FILELST 96 EDITLOADFNSFLG 46 FILELST 27 EXAM 19 EDITLOADFNSFLG 4 EDITLOADFNSFLG) ( 128 "load from" 77 (FNS) 14 (T . NO)) EDITFROMFILE :D8 (P 0 SI::*RESETFORMS* I 4 ONLYTYPES I 3 EDITCOMS I 2 EDITPATTERN I 1 FILES I 0 FNS) *g`hg $(35 SI::RESETUNWIND 30 \MVLIST 25 EDITFROMFILEA0001) (20 SI::RESETUNWIND 9 EDITLOADFNSFLG 4 EDITLOADFNSFLG) () \EDITFROMFILE/LOOKIN :D8 (L (1 PAT 0 X)) DAg2AdHd3@gH hih@A @Ai (65 EDITFINDP 56 FINDATS 35 STRPOS) (29  6 *ANY*) () DELFROMCOMS :D8 (L (2 TYPE 1 NAME 0 COMS) P 0 COMSNAME) @d3@@H b@AB B b@I/@AB dg@d gԑi@b@dgdgdg@޿BgA@@d i(152 /RPLNODE2 79 /RPLNODE2 61 \DELFROMCOMS/DELFROMCOM 39 GETFILEPKGTYPE 29 DELFROMCOMS 16 GETTOPVAL) (135 VARS 121 COPYWHEN 113 EVAL@COMPILEWHEN 105 EVAL@LOADWHEN 85 ALL 67 ALL) () \DELFROMCOMS/DELFROMCOM :D8 (L (2 TYPE 1 NAME 0 COM) F 10 COMSNAME)   @g X@ABlHXWg H@dgdg*@dgd3@s@AB dg.@dgd3@@@AB dgdgB@@g>@Yd3@AI XdAH XzIHig iA@XcHAH ZRHJ Wg idgWBg@i dAM AM M[h\AL LAL KdgdgBgf@A@A A@_^OONO@ XHA@A@ddh Wg i@_Oi@A O_hO_O_BOg hdgdgdgBgW@A dgBg<@A dgdgBg@Ai B@ @A (711 \DELFROMCOMS/DELFROMCOM1 696 \DELFROMCOMS/DELFROMCOM1 660 \DELFROMCOMS/DELFROMCOM1 633 \DELFROMCOMS/DELFROMCOM1 584 GETPROP 549 \DELFROMCOMS/DELFROMCOM1 522 MARKASCHANGED 510 /RPLACA 505 REMOVE 474 PRETTYCOM1 441 \DELFROMCOMS/DELFROMCOM1 390 /RPLACD 385 REMOVE 375 MEMB 350 /DREMOVE 342 MEMB 330 INFILECOMTAIL 299 MARKASCHANGED 287 /RPLACD 276 \DELFROMCOMS/REMOVEITEM 253 SAVESET 236 \DELFROMCOMS/REMOVEITEM 218 GETTOPVAL 153 DELFROMCOMS 100 DELFROMCOMS 40 MARKASCHANGED 14 GETPROP) (685 VARS 675 INITVARS 667 VARS 650 EXPRESSIONS 640 P 623 RECORDS 613 SYSRECORDS 605 INITRECORDS 596 RECORDS 579 PROPTYPE 517 VARS 421 PROPS 409 IFPROP 401 PROP 316 FNS 307 BLOCKS 294 VARS 248 NOPRINT 192 * 168 PROPS 160 ALISTS 121 * 107 CL:EVAL-WHEN 71 * 58 COMS 50 DECLARE%: 35 VARS 9 DELFROMPRETTYCOM) () \DELFROMCOMS/DELFROMCOM1 :D8 (L (2 FLG 1 NAME 0 COM) F 2 COMSNAME) _ @dg/Xd3@$H YAIB YHIig ihA@B X@H Rg i(91 MARKASCHANGED 80 /RPLACD 69 \DELFROMCOMS/REMOVEITEM 55 SAVESET 39 \DELFROMCOMS/REMOVEITEM 30 GETTOPVAL) (86 VARS 50 NOPRINT 11 *) () \DELFROMCOMS/REMOVEITEM :D8 (L (2 FLG 1 LST 0 X)) J@A B=Ad@h-@A"d[@BKK@dIHhZH&JA(6 MEMBER) NIL () ADDTOFILES?A0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 NAME F 3 TYPE F 4 SI::NLSETQ-VALUE) i@RSi hcg(18 DOBE 12 SHOWDEF) (27 :NORMAL) () ADDTOFILES?A0001A0003A0004A0005 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 LISTNAME F 3 NAME F 4 PLACE F 5 SI::NLSETQ-VALUE F 6 TYPE F 7 FILE) Di@TcSR i ig SV` chc g(56 ERROR! 46 WHEREIS 33 SAVESET 22 MERGEINSERT 15 GETTOPVAL) (65 :NORMAL 41 FILELST 28 NOPRINT) () ADDTOFILES?A0001A0003A0004 :D8 (NAME SI::*UNWIND-PROTECT* P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS* F 6 UNDOTEM) 1h`TioUI gHc h(32 ADDTOFILES?A0001A0003A0004A0005) (38 :NORMAL 13 SI::NLSETQ-PROCEED-CASE 5 %#UNDOSAVES) ( 21 (CL:ERROR . SI::NLSETQHANDLER)) ADDTOFILES?A0001A0003 :D8 (P 14 SI::*RESETFORMS* P 13 UNDOTEM P 11 UNDOSIDE0 P 10 LISPXHIST P 8 LISTNAME P 7 PLACE P 6 COMSNAME P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 15 FILE F 16 TYPE F 17 NAME F 18 SI::NLSETQ-VALUE F 19 LISPXHIST F 20 LASTFILE) i@B@ WhW _d3@MOc ^W"W OO NW"W hW W g dW"W WlJ3OgO_`dc W"W OO hgWhid !Ogghid W g dW"W WlKW&1 gO _d__jh_OUgOh_g`hg $Og#Ogg gO OOO h(`dc W"W OO h;oi Wid W g dW"W WlLoi Oid hdooi g cOW"O i ig W W"W OW W g dO dW WlMWW Oc(hdc$g(670 ADDFILE 639 GETTOPVAL 626 GETPROP 613 \ADDTOFILEBLOCK/ADDNEWCOM 598 FILECOMS 590 SAVESET 579 MERGEINSERT 572 GETTOPVAL 556 \ADDTOFILEBLOCK/WHATIS 546 ASKUSER 526 PRIN2 515 PRIN1 481 GETPROP 468 PRINT 458 PRIN1 439 ADDTOCOMS 425 FILECOMS 404 UNDONLSETQ1 388 UNDOSAVE 381 LISTPUT1 367 LISTPUT1 335 SI::RESETUNWIND 330 \MVLIST 325 ADDTOFILES?A0001A0003A0004 261 MEMB 221 GETPROP 208 ERROR! 202 PRINT 175 PRINT 150 ADDTOCOMS 136 FILECOMS 77 GETPROP 64 \ADDTOFILEBLOCK/ADDNEWCOM 49 ADDTOCOMS 34 FILECOMS 17 \ADDTOFILEBLOCK/WHATIS) (686 :NORMAL 621 WHENFILED 585 NOPRINT 551 FILE 476 WHENFILED 414 FILELST 374 SIDE 362 NOSAVE 357 SIDE 347 NOSAVE 320 SI::RESETUNWIND 309 %#UNDOSAVES 304 %#UNDOSAVES 291 SIDE 254 SIDE 216 WHENFILED 191 found 186 not 163 on 125 FILELST 108 Near%: 72 WHENFILED) ( 539 (("" "" EXPLAINSTRING "a file name" KEYLST ())) 534 " on file: " 509 " put list " 452 " value is filed on ") ADDTOFILES?A0001 :D8 (P 18 SI::*NLSETQFLAG* P 17 *PROCEED-CASES* P 16 SI::NLSETQ-VALUE P 15 SI::*NLSETQFLAG* P 14 *PROCEED-CASES* P 13 SI::NLSETQ-VALUE P 12 FILE P 10 NAME P 6 TYPE P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 19 FILEPKGTYPES F 20 *PROCEED-CASES* F 21 NOASKSTR F 22 READBUF F 23 SI::NLSETQ-VALUE F 24 LASTFILE) i@2g  hW*4i `gooi dgsi Rg)W& dZ  dJh =L!i hiW, \W&1MLL hdc.g^ _QNdgK  _5oi Oi oi i O1 OM]_Oi li hdd`i _dg `W(O gh+Odg𒿰FgW0_gi O_`W(O" gO bO_I(453 ADDTOFILES?A0001A0003 426 PRINT 374 ADDTOFILES?A0001A0002 341 ASKUSER 325 SPACES 316 PRIN2 283 TERPRI 276 PRIN1 264 PRIN1 255 PRIN1 239 GETTOPVAL 233 SEARCHPRETTYTYPELST 209 SEARCHPRETTYTYPELST 190 UPDATEFILES 184 BKBUFS 164 CLBUFS 154 SYSBUF 148 LINBUF 141 READP 121 ADDTOFILE 111 GETTOPVAL 105 SEARCHPRETTYTYPELST 83 PRIN1 67 ASKUSER 39 READP 32 DOBE 20 GETTOPVAL 14 SEARCHPRETTYTYPELST) (459 :NORMAL 440 SI::NLSETQ-PROCEED-CASE 420 Nowhere 406 % 396 % 383 %] 361 SI::NLSETQ-PROCEED-CASE 349 %[ 334 ADDTOFILEKEYLST 223 VARS 201 :NORMAL 90 %] 73 N 50 N 45 DWIMWAIT 9 VARS) ( 270 ")" 249 "(" 60 ((Y "es ") (N "o ") (%] "Nowhere " EXPLAINSTRING "] - nowhere, all items will be marked as dummy " NOECHOFLG T)) 55 ("want to say where the above go")) ADDTOFILES? :D8 (P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 NOASKSTR F 3 *PROCEED-CASES*) `SI gH(18 ADDTOFILES?A0001) (24 :NORMAL 7 SI::NLSETQ-PROCEED-CASE) () ADDTOFILE :D8 (L (4 LISTNAME 3 NEAR 2 FILE 1 TYPE 0 NAME) P 0 COMSNAME) } Ahi Ad`BAb bBg bd X@ACD H@AhB Ag d@ABlIBdd` B(121 ADDFILE 88 GETPROP 76 \ADDTOFILEBLOCK/ADDNEWCOM 64 ADDTOCOMS 53 FILECOMS 45 \ADDTOFILEBLOCK/WHATIS 32 GETFILEPKGTYPE 10 GETFILEPKGTYPE) (114 FILELST 83 WHENFILED 40 FILE 19 FILELST) () \ADDTOFILEBLOCK/WHATIS :D8 (L (1 ONLY 0 USERINPUT)) @d6A@dgdgg@@gbbAdg4@ Xd`d wHh`i gAg@d SAdg hdoHhhi gHAgQhdo@hhi g4@h(210 ASKUSER 171 ASKUSER 137 GETTOPVAL 120 FIXSPELL 103 GETTOPVAL 98 FILECOMS 80 U-CASE 18 ERROR!) (215 Y 186 FILE 176 Y 148 LIST 128 FILE 114 FILELST 87 FILELST 70 LIST 55 LIST 43 Near%: 35 Near%: 27 @) ( 198 "create new list" 159 "create new file") ADDTOCOMS :D8 (L (4 LISTNAME 3 NEAR 2 TYPE 1 NAME 0 COMS) P 0 COMSNAME) @dGd3@/@H ABC@DhD 7@D2@AB B b@IZhJdABCD $iJdgdgdgJJ(90 \ADDTOFILEBLOCK/ADDTOCOM 60 GETFILEPKGTYPE 53 \ADDTOFILEBLOCK/ADDNEWCOM 37 ADDTOCOMS 19 GETTOPVAL) (118 COPYWHEN 110 EVAL@COMPILEWHEN 102 EVAL@LOADWHEN) () \ADDTOFILEBLOCK/ADDTOCOM :D8 (L (4 LISTNAME 3 NEAR 2 TYPE 1 NAME 0 COM) F 7 COMSNAME)  pCB@g X@DDg@h @ABClHXWg HB@h h@dgBg@ACD dgdgK@gCDpBdgAgW@ACD g @ACD dg-@dgd3@@ABCD dg+DC@dgd3@@dg:DC@dgd3@@ABCD dgdgBdgY@A@ACD A@@@Addh@ddh Wg ig@hI`]Di@ACD IhIIJ``J`^@[LLKLMAN hdgdgQB@@A@dgd3@hD@D @ AhA CD g%BgsAgf@ACD @B @ACD (774 ADDTOCOM1 758 ADDTOCOM1 715 ADDTOCOM1 708 /NCONC1 691 GETTOPVAL 615 GETPROP 538 ADDTOCOM1 489 MARKASCHANGED 477 /RPLACA 472 UNION 424 ADDTOCOM1 373 ADDTOCOMS 258 ADDTOCOMS 206 ADDTOCOM1 188 ADDTOCOM1 116 ADDTOCOM1 78 INFILECOMS? 67 MARKASCHANGED 37 INFILECOMS? 17 GETPROP) (744 SETQ 730 EXPRESSIONS 721 P 660 * 634 ALISTS 626 PROPS 578 MACROPROPS 565 MACROPROPS 557 MACROPROPS 517 MACROPROPS 496 MACROS 484 VARS 401 PROPS 388 IFPROP 380 PROP 338 * 315 CL:EVAL-WHEN 287 * 265 DECLARE%: 226 * 213 COMS 194 VARS 171 SETQ 160 EXPRESSIONS 142 VARS 131 INITVARS 123 VARS 100 FNS 90 FNS 62 VARS 29 FILEVARS 12 ADDTOPRETTYCOM) () ADDTOCOM1 :D8 (L (3 LISTNAME 2 NEAR 1 NAME 0 COM) F 0 COMSNAME) @gTC@C@d3@t@@ bBB@ bA@i ig AB @C9A@ B@ b@A@ Pg iABh(142 MARKASCHANGED 130 /RPLACD 125 MERGEINSERT 112 MEMBER 103 MEMBER 88 /RPLACD 78 SAVESET 67 MERGEINSERT 55 MEMBER 42 GETTOPVAL) (137 VARS 73 NOPRINT 7 *) () \ADDTOFILEBLOCK/ADDNEWCOM :D8 (L (4 FILE 3 LISTNAME 2 TYPE 1 NAME) I 0 COMSNAME) 0ABCD @ Z4@Hhig ggIHJ 7Jd)ZYIdgdgdg𲿿iHh @g h(129 MARKASCHANGED 117 /RPLACD 62 /ATTACH 37 SAVESET 18 GETTOPVAL 11 MAKENEWCOM) (124 VARS 102 BLOCKS 94 SPECVARS 85 LOCALVARS 51 COMPILERVARS 43 DECLARE%: 32 NOPRINT) () INFILECOMS? :D8 (L (2 COMS) P 2 ORIGFLG P 1 LITERALS P 0 VAL I 3 ONFILETYPE I 1 TYPE I 0 NAME) ^0A bCgdghBdd3@ AgAgB B H XCgIHH(77 DREVERSE 71 \INFILECOMS?/INFILECOMS 66 \EVALV1 59 \INFILECOMS?/INFILECOMSVAL 8 GETFILEPKGTYPE) (84 UPDATE 51 FILEVARS 43 VARS 24 FILEVARS 16 EDIT) () \INFILECOMS?/INFILECOMTAILA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 COM F 3 SI::NLSETQ-VALUE) i@R chcg(13 EVAL) (24 :NORMAL) () \INFILECOMS?/INFILECOMTAILA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 4 DWIMLOADFNSFLG F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS*) (hc`UioVI gh(29 \INFILECOMS?/INFILECOMTAILA0001A0002) (35 :NORMAL 10 SI::NLSETQ-PROCEED-CASE) ( 18 (CL:ERROR . SI::NLSETQHANDLER)) \INFILECOMS?/INFILECOMTAIL :D8 (L (1 FLG) P 0 SI::*RESETFORMS* I 0 COM F 6 COMMENTFLG F 7 DWIMLOADFNSFLG) @dg>d3@@ +gWhg $@bA>dI@IYV0@dZJVdLKh]K&M@(64 SI::RESETUNWIND 59 \MVLIST 54 \INFILECOMS?/INFILECOMTAILA0001 28 \EVALV1) (49 SI::RESETUNWIND 36 DWIMLOADFNSFLG 8 *) () \INFILECOMS?/INFILECOMS :D8 (L (0 COMS)) @d h(8 \INFILECOMS?/INFILECOM) NIL () \INFILECOMS?/INFILECOM :D8 (L (0 COM) P 14 TYPE P 13 ORIGFLG F 15 TYPE F 16 ONFILETYPE F 17 NAME F 18 COMMENTFLG F 19 VAL F 20 ORIGFLG) @Wgs@ W$WW$[@i O@@ Hg Z@W W"d3@W"hW"WW lJHg Z@WW"lJ[ IHgHg6IY2d$iW"iW gi  IgfIdd3@!WdgdgGI <8W g.Wg$IgI W"IW&c&HgHdg@i g@i Hdg&g@h@ Wg gi @i JHgHdgPWdg@i @ g@ @ HWy@i gg@ Hdg6Wdg@i ` g@i gWg @ HdgVWdgdg@i i W Wdg@g g @g gHdgWdg%W hv@i di hgP@i \h]g ^gN&gNMd_MOhi LWHhg;Hg2Hg)Hg HgHgHdgWdg2@i _h_OW$gOi OgWHt@i *d_dOW$OiOHg hg)@i _h_WOO OHdghWHWH@i JJiW W(Hg [d@i K (1236 \INFILECOMS?/INFILECOMS 1231 SUBPAIR 1224 \INFILECOMS?/INFILECOMTAIL 1210 GETTOPVAL 1181 \INFILECOMS?/INFILECOMSVALS 1176 \INFILECOMS?/INFILECOMTAIL 1134 \INFILECOMS?/INFILECOMSVALS 1108 \INFILECOMS?/INFILECOMTAIL 1086 \INFILECOMS?/INFILECOMSVAL 1046 \INFILECOMS?/INFILECOMTAIL 1020 \INFILECOMS?/INFILECOMSVAL 986 \INFILECOMS?/INFILECOMTAIL 883 \INFILECOMS?/INFILECOMSVAL 840 GETPROP 821 \INFILECOMS?/INFILECOMTAIL 799 \INFILECOMS?/INFILECOMSVAL 789 \INFILECOMS?/INFILECOMTAIL 739 \INFILECOMS?/IFCEXPRTYPE 719 \INFILECOMS?/IFCEXPRTYPE 689 \INFILECOMS?/INFILECOMSVALS 683 \INFILECOMS?/INFILECOMTAIL 645 \INFILECOMS?/INFILEPAIRS 640 \INFILECOMS?/INFILECOMTAIL 615 \INFILECOMS?/INFILECOMSVALS 610 \INFILECOMS?/INFILECOMTAIL 594 \INFILECOMS?/IFCPROPSCAN 584 \INFILECOMS?/INFILECOMTAIL 553 \INFILECOMS?/IFCPROPS 536 \INFILECOMS?/INFILECOMSVALS 531 \INFILECOMS?/INFILECOMTAIL 515 \INFILECOMS?/INFILECOMSMACRO 507 \INFILECOMS?/INFILECOMTAIL 491 \INFILECOMS?/IFCPROPSCAN 483 \INFILECOMS?/INFILECOMTAIL 441 \INFILECOMS?/INFILECOMS 436 \INFILECOMS?/INFILECOMTAIL 416 \INFILECOMS?/IFCDECLARE 403 \INFILECOMS?/INFILECOMTAIL 368 \INFILECOMS?/INFILECOMS 363 \INFILECOMS?/INFILECOMTAIL 345 \INFILECOMS?/INFILECOMS 340 \INFILECOMS?/INFILECOMTAIL 301 LAST 254 \INFILECOMS?/INFILECOMSVAL 201 \INFILECOMS?/INFILECOMSVALS 192 RETFROM 113 GETPROP 70 GETPROP 48 \INFILECOMS?/INFILECOMSVAL 23 \INFILECOMS?/INFILECOMSVAL) (1205 PRETTYDEFMACROS 1147 FILES 1098 DEFS 1080 INITVARS 1031 VARS 1011 SETQ 975 EXPRESSIONS 961 ARRAY 952 CONSTANTS 943 HORRIBLEVARS 934 UGLYVARS 925 FILEVARS 916 INITVARS 907 VARS 857 ALIST 846 ALIST 835 VARTYPE 811 ALISTS 768 VARS 754 APPENDVARS 745 ADDVARS 734 SETTEMPLATE 725 TEMPLATES 714 I.S.OPR 705 I.S.OPRS 673 P 665 EXPRESSIONS 653 P 631 ALISTS 621 ALISTS 600 MACROS 589 MACROPROPS 573 PROPS 561 MACROS 545 PROPS 498 MACROS 471 PROPS 459 IFPROP 450 PROP 422 ORIGINAL 410 DECLARE%: 387 COMPILERVARS 378 DECLARE%: 353 CL:EVAL-WHEN 330 EXPORT 321 COMS 290 PROGN 278 VARS 268 UPDATE 242 FILEVARS 234 VARS 212 * 186 INFILECOMS? 150 IFPROP 142 PROP 108 PRETTYTYPE 65 FILEPKGCONTENTS 10 VARS) () \INFILECOMS?/INFILECOMSVAL :D8 (L (1 FLG 0 X) F 2 NAME F 3 VAL F 4 ONFILETYPE F 5 LITERALS F 6 TYPE) TdgR@R lA@Uc @ScgAhTg$Rd3@R@R@;VSHdIIIcRiRd3@R@R@gi R@Sc(118 RETFROM 19 MEMBER) (112 INFILECOMS? 52 TYPESOF 40 EDIT 6 UPDATE) () \INFILECOMS?/INFILECOMSVALS :D8 (L (1 FLG 0 X) F 1 COMMENTFLG) @HhddQA HX(24 \INFILECOMS?/INFILECOMSVAL) NIL () \INFILECOMS?/INFILEPAIRS :D8 (L (0 LST)) A@dAHK hdhKHYIIhIILJh (61 \INFILECOMS?/INFILECOMSVAL) NIL () \INFILECOMS?/INFILECOMSMACRO :D8 (L (1 PROPS 0 ATS) F 4 ONFILETYPE) g@1HddhHTg)I dZ`JAAJAih`d[AAKAhI (98 \INFILECOMS?/INFILECOMSVAL 33 PROPNAMES) (71 MACROPROPS 43 MACROPROPS 24 UPDATE) () \INFILECOMS?/IFCPROPS :D8 (L (0 COM) F 2 TYPE) oRdg@ dg.@ dH hHhHHI g@ dHH h(102 \INFILECOMS?/INFILECOMSMACRO 87 \INFILECOMS?/INFILECOMTAIL 70 \INFILECOMS?/INFILECOMSVAL 35 \INFILECOMS?/INFILECOMTAIL 19 \INFILECOMS?/INFILEPAIRS 14 \INFILECOMS?/INFILECOMTAIL) (78 MACROS 26 PROP 6 PROPS) () \INFILECOMS?/IFCEXPRTYPE :D8 (L (1 FN 0 COM)) 4@ HhYAIdgi HX(44 \INFILECOMS?/INFILECOMSVAL 5 \INFILECOMS?/INFILECOMTAIL) (32 QUOTE) () \INFILECOMS?/IFCPROPSCAN :D8 (L (1 PROPNAMES 0 ATOMS) F 8 NAME F 9 ONFILETYPE) @1HhYd3@bWgWIWWIWFAdg6I1L,_`IO M NhL\N&ZJHXJhJJIK (137 \INFILECOMS?/INFILECOMSPROP 89 \INFILECOMS?/INFILECOMSPROP) (79 SYSPROPS 52 ALL 24 UPDATE) () \INFILECOMS?/IFCDECLARE :D8 (L (1 WANTDECLARE 0 TAIL)) @HLHdgdgdgAHHh HMdgg/g/hA/H %gHd`AH  HX(129 \INFILECOMS?/INFILECOM 122 \INFILECOMS?/INFILECOMSVAL 92 \INFILECOMS?/INFILECOMSVAL 51 \INFILECOMS?/INFILECOMSVAL) (110 DECLARETAGSLST 99 COMPILERVARS 78 LOAD 71 DOFILESLOAD 62 DONTEVAL@LOAD 32 COPYWHEN 24 EVAL@COMPILEWHEN 15 EVAL@LOADWHEN) () \INFILECOMS?/INFILECOMSPROP :D8 (L (1 PROP 0 AT) F 2 NAME F 3 VAL F 4 ONFILETYPE) dTg1RRHhK@AhScY@IAIiHXRiRd@dAgi @AhSch(84 RETFROM) (78 INFILECOMS? 5 UPDATE) () MAKEFILEA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 X F 3 SI::NLSETQ-VALUE) i@R hcg(10 EVAL) (19 :NORMAL) () MAKEFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 X I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 OPTIONS F 6 FILETYPE F 7 FILE F 8 REPRINTFNS F 9 *PROCEED-CASES* F 10 SOURCEFILE F 11 FILEPROP F 12 CHANGES)   gU gd gi%gU #gd gg Tcgd gh TcgU gU gd gi.VggV #gd gg Tc`d`WJ hWWWWW c(260 PRETTYDEF 235 MAKEFILEA0001A0002 200 SETTOPVAL 184 GETTOPVAL 171 MEMB 142 GETTOPVAL 129 MEMB 117 MEMB 101 SETTOPVAL 89 GETTOPVAL 72 SETTOPVAL 56 GETTOPVAL 43 MEMB 23 GETTOPVAL 10 MEMB) (223 SI::NLSETQ-PROCEED-CASE 211 MAKEFILEFORMS 195 CHANGES 190 CLISPIFYPRETTYFLG 178 CLISPIFYPRETTYFLG 164 CLISP 157 CLISP 148 CLISPIFYPRETTYFLG 136 CLISPIFYPRETTYFLG 123 CLISP 111 CLISPIFY 95 %#UNDOSAVES 83 %#UNDOSAVES 67 BOTH 62 PRETTYTRANFLG 50 PRETTYTRANFLG 37 CLISP% 29 PRETTYTRANFLG 17 PRETTYTRANFLG 4 NOCLISP) () MAKEFILE :D8 (P 10 RESETSTATE P 9 SI::*RESETFORMS* P 8 LISPXHIST P 7 FILEDATES P 6 CHANGES P 5 FILEPROP P 3 FILETYPE P 1 *PRINT-BASE* P 0 PRETTYFLG I 3 SOURCEFILE I 2 REPRINTFNS I 1 OPTIONS I 0 FILE F 14 PRETTYFLG F 15 *PRINT-BASE* F 16 LISPXHIST F 17 LASTFILE) UgAddhb hWWlll @ SJbJJMLg _Lg MOAg&AgA`gA MMi@id Mdgo?dgdgdgodgdgoi `go g'Mh hbbCOPLi bd O%COb )C !C OOC BNtOO bBoi @id oi hbbgAbLg OMLg ^ bCMdg gCogohadg.ggM CgoLoh,dgdggoCohhZ`JJo dgYMdgC MdggC Mg (dgdgiC g7W ! g $Lc"Mh Kdg#gKLd``Kg#KgKLd``A! O_O@_dgL` @iO wgL` c@hO VOdgL` >g@h .` #Oh`hA koO O_X@oh(1088 ERROR 1072 FIXSPELL 1054 MEMB 1042 APPLY 1027 MEMB 1002 MAKEFILE1 990 MEMB 969 MAKEFILE1 955 MEMB 830 /RPLACD 814 SI::RESETUNWIND 809 \MVLIST 804 MAKEFILEA0001 775 LOADVARS 748 /RPLACD 735 LOADVARS 711 LOADFROM 683 ASKUSER 592 INFILECOMS? 514 FILEPKG.CHANGEDFNS 508 FILEPKG.MERGECHANGES 503 GETPROP 482 FILEDATE 473 GETPROP 445 LISPXPRIN1 433 LISPXPRIN2 424 LISPXPRIN1 409 INFILEP 386 /RPLACD 370 FILEDATE 362 INFILEP 354 CL::SIMPLE-STRING-EQUAL 335 FILEDATE 326 FINDFILE 301 /RPLACD 283 ASKUSER 262 LISPXPRIN1 256 SHOULDNT 175 LISPXPRIN2 145 MEMB 93 GETPROP 78 GETPROP 63 UPDATEFILES 42 ADDFILE 19 MEMB) (1064 MAKEFILEOPTIONS 1049 MAKEFILEOPTIONS 1034 LISTFILES 1022 NOTLISTEDFILES 1012 LIST 985 NOTCOMPILEDFILES 976 C 950 NOTCOMPILEDFILES 940 RC 914 NOTCOMPILEDFILES 908 NOTCOMPILEDFILES 901 NOTCOMPILEDFILES 890 DON'TCOMPILE 879 DON'TCOMPILE 872 NOTLISTEDFILES 866 NOTLISTEDFILES 859 NOTLISTEDFILES 848 DON'TLIST 838 DON'TLIST 799 SI::RESETUNWIND 784 A 765 compiled 757 loadfns 743 COMPILED 729 DONTCOPY 720 Compiled 702 LOADCOMP 689 Y 669 DWIMWAIT 640 N 631 loadfns 623 compiled 599 Y 584 DECLARE%: 579 DONTCOPY 570 Compiled 551 - 540 N 531 LOADCOMP 498 FILECHANGES 468 FILECHANGES 457 NEW 288 Y 273 Y 268 DWIMWAIT 241 LOADFNS 233 loadfns 217 COMPILED 209 Compiled 201 compiled 185 LOADCOMP 139 REMAKE 130 MAKEFILEREMAKEFLG 121 NEW 110 NEW 88 FILETYPE 73 FILEDATES 4 FAST) ( 1103 "-- MAKEFILE not performed." 1081 "Unrecognized MAKEFILE option" 678 ((Y "es ") (N "o ") (A "bort MAKEFILE ")) 651 "loaded via LOADFNS. Load all other expressions from it" 645 "Only some functions from" 610 "was loaded; LOADVARS the (DECLARE .. DONTCOPY ) expressions" 604 "only compiled version of" 556 "LOADFROM it to obtain VARS/COMS" 546 "was loaded with LOADCOMP" 439 ", so it will have to be written anew " 418 "can't find either the previous version or the original version of " 278 "Go ahead and MAKEFILE anyway? " 249 " -- only some of its symbolics have been loaded " 225 " -- only the compiled file has been loaded " 193 "the file was loaded for compilation purposes only") ADDFILE :D8 (L (3 FCLST 2 PRLST 1 LOADTYPE 0 FILE) F 9 FILEPKGTYPES F 10 ADDSPELLFLG)  @ QC HA@ b#Cbd3@C HA@C >AiAdggbggbAgCh[*BI@h AW!NDWH` J\dd3@#IAgL ALL K_d3@0O  _OBO OM M N^(261 /SETTOPVAL 254 SEARCHPRETTYTYPELST 245 INTERSECTION 229 GETTOPVAL 223 SEARCHPRETTYTYPELST 202 \ADDFILE/ADDFILE0 191 ROOTFILENAME 156 ADDSPELL 130 UPDATEFILES 109 SHOULDNT 55 \ADDFILE/ADDFILE0 44 ROOTFILENAME 19 \ADDFILE/ADDFILE0 5 ROOTFILENAME) (180 LOADCOMP 151 USERWORDS 102 LOADCOMP 93 compiled 86 loadfns 77 Compiled 69 LOADFNS) () \ADDFILE/ADDFILE0 :D8 (L (3 DAT 2 FULLNAME 1 LOADTYPE 0 ROOTNAME)) 0@ @g YAZAIoLIA AH n@gHAh YAC@gCBh AiIh H '@g g@g  A?B@IJ `@B@lF`i bBoi hbi%I(214 ERROR 198 MISSPELLED? 159 /SETTOPVAL 153 GETTOPVAL 134 GETTOPVAL 120 GETTOPVAL 113 /RPLACD 101 /PUTPROP 77 /PUTPROP 58 GETTOPVAL 48 /RPLACD 20 GETPROP 8 FILECOMS) (192 FILELST 177 DWIMFLG 148 FILELST 142 FILELST 129 FILELST 91 FILEDATES 67 FILE 15 FILE) ( 208 "not file name." 35 (LOADCOMP loadfns compiled Compiled LOADFNS COMPILED NIL T)) FILEPKGCHANGES :D8 (L (0 N) F 8 FILEPKGTYPES) eHj6WAJK^d3@N YNIL Mh\JZM&kai/W1IJdd3@d K Lh[ZIYL&[Hkzka+kaIhZdWJ J IYka  aI]JM^hMKLh[M_MO̖OiNL&lakaI I (257 /SETTOPVAL 250 SEARCHPRETTYTYPELST 175 GETTOPVAL 169 SEARCHPRETTYTYPELST 156 /SETTOPVAL 148 SEARCHPRETTYTYPELST 90 FILEPKGCHANGES 36 FILEPKGCHANGES) NIL () ALISTS.WHENCHANGED :D8 (L (2 NEWFLG 1 TYPE 0 NAME)) 6@g H#Hgg@HB h(50 RETFROM 45 MARKASCHANGED 11 GETPROP) (33 MARKASCHANGED 25 ALIST 6 VARTYPE) () CHANGECALLERS :D8 (L (4 METHOD 3 FILES 2 AS-TYPES 1 NEW 0 OLD)) B  D `bgGDgD;@hH oi @i oi Ji i o@Aho g@Ahh[DgDdοgD`HhMIgMhMMNgNgNgNdggQgoCNgNdgo*gNgNg,ggNhZhIJgIhWJRDgDgDggdg~Cg hC`! O O \3O_hO_O_OO _d @I Yi L \dg`C`AO ObO_hO_O_@Oi ZLJ O_O Oh__O&_g?C`! OO\5O_hO_O_OO _oD HgHgH@L@L LC@K H_OTIP@Ii Zd>gC 1oi @i oi Ji i hO_hO_O_@OC Qd_AOO ?@OO 3@i oi Ai oi Oi @OC Z-oi @i oi Ai oi Oi oi Ji (1034 PRIN1 1026 PRIN1 1014 PRIN1 1005 PRIN1 993 PRIN1 985 PRIN1 973 PRIN1 965 PRIN1 949 WHEREIS 935 PRIN1 926 PRIN1 914 PRIN1 906 PRIN1 894 PRIN1 885 DELFROMFILES 873 ADDTOFILE 856 WHEREIS 824 TERPRI 817 PRIN1 809 PRIN1 797 PRIN1 789 PRIN1 776 WHEREIS 761 GETRELATION 752 UPDATECHANGED 736 EDITFROMFILE 726 REMOVE 694 ERROR 678 \NCONC2 673 FILEFNSLST 585 \NCONC2 574 EDITCALLERS 507 INTERSECTION 501 GETRELATION 494 PARSERELATION 482 UPDATEFN 470 \NCONC2 465 FILEFNSLST 432 \NCONC2 407 FILEPKGCHANGES 396 UPDATEFILES 115 SUBPAIR 93 TERPRI 86 PRIN1 78 PRIN1 66 PRIN1 58 PRIN1 46 TYPESOF 5 GETFILEPKGTYPE) (770 FNS 712 FNS 701 FNS 630 FILELST 619 SEARCH 529 FILELST 517 EDITCALLERS 417 FILELST 402 FNS 384 MASTERSCOPE 378 SEARCH 372 EDITCALLERS 364 EDITCALLERS 354 EDITCALLERS 334 OR 316 AS 311 USE 303 I.S.OPRS 295 FIELDS 286 RECORDS 271 VARIABLES 262 VARS 247 MACROS 240 CALL 232 OPTIMIZERS 223 SPECIAL-FORMS 214 FUNCTIONS 205 FNS 184 MASTERSCOPE 163 MSDATABASELST 152 MASTERSCOPE 136 MASTERSCOPE 121 R 34 CAREFUL 23 CAREFUL 16 DEFAULTRENAMEMETHOD) ( 1020 " on " 999 " as " 979 " to " 959 "Couldn't change " 920 " on " 900 " changed to " 803 " is referenced in " 783 "Couldn't find where " 688 "UNRECOGNIZED RENAME METHOD" 279 (USE OR BIND) 254 (CALL DIRECTLY) 110 (BIND (LPQ (F OLD N) (MARK %#1) (ORR (1 !0 P) NIL) (MARK %#2) (COMS (SELECTQ (ASKUSER NIL NIL " Replace ? " (QUOTE ((Y "Yes ") (N "No ") (% "") (% "") (% "") (& ""))) NIL NIL (QUOTE (NOECHOFLG T))) (Y (QUOTE (R1 OLD NEW))) (N NIL) (QUOTE TTY%:))) (MARK %#3) (IF (EQ (%## (\ %#3)) (%## (\ %#2))) ((\ %#1)) NIL))) 100 (OLD NEW) 72 " is also defined as " 52 "Warning --") CLEANUP :D8 (L (0 FILES)) 0@ b@@b`J@ gJ h$@d ` X gH gJ Xh"@ `Y` YdH I (142 \APPEND2 137 \APPEND2 130 COMPILEFILES0 120 INTERSECTION 95 MEMB 84 APPLY 70 INTERSECTION 58 LISTFILES 46 MEMB 35 MAKEFILES 8 NLAMBDA.ARGS) (115 NOTCOMPILEDFILES 108 NOTCOMPILEDFILES 89 RC 78 LISTFILES 65 NOTLISTEDFILES 40 LIST 27 CLEANUPOPTIONS) () CLEARCLISPARRAYA0001 :D8 (L (1 FORM 0 TRAN) F 0 NAME) PA Ah` (20 PUTHASH 6 MEMB) (15 CLISPARRAY) () CLEARCLISPARRAYA0002 :D8 (L (1 FORM 0 TRAN) F 0 NAME) )PAAg gAh` (38 PUTHASH 17 GETPROP) (33 CLISPARRAY 23 CHANGETRAN 12 CLISPWORD) () CLEARCLISPARRAY :D8 (I 2 REASON I 1 TYPE I 0 NAME) "`dAggg (31 MAPHASH) (26 CLEARCLISPARRAYA0002 20 CLEARCLISPARRAYA0001 13 I.S.OPRS 4 CLISPARRAY) () COMPARE :D8 (L (4 SOURCE2 3 SOURCE1 2 TYPE 1 NAME2 0 NAME1)) @BCo ABDo HI h@id Coi Cid oi Aid Doi Did oi i HI i(137 COMPARELISTS 130 TERPRI 124 PRIN1 112 PRIN2 103 PRIN1 89 PRIN2 81 PRIN1 69 PRIN2 60 PRIN1 46 PRIN2 35 COMPARELST 25 GETDEF 12 GETDEF) NIL ( 118 " differ:" 97 " from " 75 " and " 54 " from " 20 (NOERROR NOCOPY) 7 (NOERROR NOCOPY)) COMPAREDEFS :D8 (L (2 SOURCES 1 TYPE 0 NAME))  AdBhi BAbAg bB @Ai aB;@A $Hd@AKg  hgHXHA OOXdo_@AOo YAg JdIL hOIJh3oi Oi oi @i i iO_OOh__O_cO&_oJJ d^x]@id Noi Nid oi @id Moi Mid oi i NM }gg(425 COMPARELISTS 413 TERPRI 406 PRIN1 394 PRIN2 383 PRIN1 366 PRIN2 357 PRIN1 345 PRIN2 334 PRIN1 317 PRIN2 301 DREVERSE 243 TERPRI 236 PRIN1 228 PRIN1 216 PRIN1 207 PRIN1 179 COMPARELST 163 GETPROP 151 GETDEF 91 MEMBER 83 GETPROP 62 MEMBER 57 FILEPKGCHANGES 44 WHEREIS 31 GETFILEPKGTYPE 13 GETFILEPKGTYPE) (449 SAME 443 DIFFERENT 158 NULLDEF 103 CURRENT 78 FILE 26 TYPE) ( 400 " differ:" 377 " from " 351 " and " 328 " from " 288 (only one definition found) 222 " definition found for " 201 "No " 146 (NOERROR NOCOPY) 132 (no definitions found)) COMPILEFILES :D8 (L (0 FILES)) @ bd@  (25 COMPILEFILES0 19 COMPILEFILES0 5 NLAMBDA.ARGS) NIL () COMPILEFILES0 :D8 (L (1 OPTIONS 0 FILES)) T@`i"HAdghAgAAJhlF`hJ JIKJ JZ(76 MAKEFILE1 64 MISSPELLED?) (56 FILELST 35 RC 22 C 7 NOTCOMPILEDFILES) () CONTINUEDITA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 STREAM F 2 FILE F 3 SI::*RESETFORMS* F 4 FC F 5 ENV) MgRg chhdScQ cQj Qg Hc HcH(59 \MVLIST 54 \PARSE-FILE-HEADER 43 SETFILEPTR 34 FULLNAME 15 OPENSTREAM) (49 RETURN 10 INPUT 4 CLOSEF) () CONTINUEDIT :D8 (P 7 RESETSTATE P 6 SI::*RESETFORMS* P 5 LISPXHIST P 4 ENV P 3 FC P 0 STREAM I 0 FILE F 8 LISPXHIST) uPW!g $@ Ydg @ IgK IgK@gK ZJh @(113 /PUTPROP 98 MEMB 76 /PUTPROP 71 FILECHANGES 58 LOADFROM 50 GETPROP 38 ROOTFILENAME 27 SI::RESETUNWIND 22 \MVLIST 17 CONTINUEDITA0001) (92 date%: 82 FILEDATES 65 FILECHANGES 45 FILE 12 SI::RESETUNWIND) () COPYDEF :D8 (L (4 OPTIONS 3 SOURCE 2 TYPE 1 NEW 0 OLD)) 0Bg b@BCDghgDddh YBdgdguIkdZdgdgJZJgEJZd3@:@Jkhid X*AJHm XJ i JH;gBg"Ad@@I A@A@A@I ABI A(254 PUTDEF 245 DSUBST 221 DSUBST 178 SAVESET 172 COPY 167 GETTOPVAL 159 PACK* 154 SUBATOM 140 STRPOS 52 GETDEF 47 REMOVE 13 GETFILEPKGTYPE) (202 ALISTS 194 PROPS 113 * 97 IFPROP 89 PROP 71 FILES 60 VARS 34 NOCOPY 24 NOCOPY 8 TYPE) () DEFAULTMAKENEWCOM :D8 (L (3 FILE 2 LISTNAME 1 TYPE 0 NAME) F 0 DEFAULTCOMHASFILEFLG) A`6Ag 'Ag oA Ai PCiB.CA@hA b@B i ig AgBh(111 SAVESET 100 MERGEINSERT 93 GETTOPVAL 84 FILECOMS 59 ERROR 47 SEARCHPRETTYTYPELST 34 GETPROP 19 GETTOPVAL) (119 * 106 NOPRINT 29 GETDEF 14 PRETTYDEFMACROS 5 FILEPKGCOMSPLST) ( 41 "no defined way to dump or obtain the definition of ") DELFROMFILES :D8 (L (2 FILES 1 TYPE 0 NAME))  A bB`AJKJhJJN X@A h@AH =oi @i oi Ni oi i Ag d@ANlINL Mh\rM&l(136 GETPROP 122 TERPRI 115 PRIN1 103 PRIN1 95 PRIN1 83 PRIN1 75 PRIN1 62 INFILECOMS? 52 DELFROMCOMS 44 FILECOMS 8 GETFILEPKGTYPE) (131 WHENUNFILED 18 FILELST) ( 109 ")" 89 " from " 69 "(could not delete ") EDITDEF :D8 (L (4 OPTIONS 3 EDITCOMS 1 TYPE 0 NAME) I 2 SOURCE) XAg bddg Ag @ABCDlH AgB@CD @ABCD @(84 DEFAULT.EDITDEF 72 EDITDEF.FNS 38 GETPROP 24 GETPROP 10 GETFILEPKGTYPE) (60 FNS 33 EDITDEF 19 EDITDEF 5 TYPE) () EXPRESSIONS.WHENCHANGED :D8 (L (0 EXPR)) D@dgdg@g dgdg@d h(59 EXPRESSIONS.WHENCHANGED 31 UNMARKASCHANGED) (46 PROG 38 PROGN 26 VARS 15 SETQQ 7 SETQ) () FILECOMS :D8 (L (1 X 0 FILE)) :@A gAAg@g @ Ag (55 PACK* 42 COMSNAME 31 GETPROP) (50 COMS 26 FILE 18 COMS 9 NILCOMS) () FILECOMSLST :D8 (L (2 FLG 1 TYPE 0 FILE)) (BghA@ B A@ B (37 INFILECOMS? 31 FILECOMS 22 INFILECOMS? 16 FILECOMS) (5 UPDATE) () FILEFNSLST :D8 (L (0 FILE)) @o (10 FILECOMSLST) NIL ( 5 (FUNCTIONS FNS)) FILEPKGCOM :D8 (L (0 N)) ,eka1Hdkqo!MDNIg gihIg ZgJh_IO ZNOJh M]lladgIg dgIg dgIg dgdg}Ig XIg YdIdg@g8IIIgIIggI goIohgIg iIg lao HlLdKIg kaLaggJdri+Ig _gIg  EIg gIJg  J J'Ig gIg  Ladg"JIgJ Ig dg"JIgJ Ig dgRJ'IJg gIhh dgIg g =dgdgJIgJ Ig Lao Ll\f(801 ERROR 787 /REMPROP 774 /PUTPROP 740 /SETTOPVAL 735 REMOVE 730 GETTOPVAL 719 GETTOPVAL 701 /PUTASSOC 696 /SETTOPVAL 678 GETTOPVAL 650 /REMPROP 636 /PUTPROP 609 /REMPROP 595 /PUTPROP 568 /SETTOPVAL 562 GETTOPVAL 543 GETTOPVAL 526 /RPLACD 517 /SETTOPVAL 511 GETTOPVAL 490 GETTOPVAL 476 /SETTOPVAL 470 GETTOPVAL 449 GETTOPVAL 413 MARKASCHANGED 390 ERROR 374 GETTOPVAL 359 GETTOPVAL 315 SUBST 242 GETPROP 229 GETPROP 197 GETTOPVAL 176 GETPROP 155 GETPROP 119 \NCONC2 105 FILEPKGCOM 74 GETTOPVAL 46 GETTOPVAL) (782 FILEPKGCONTENTS 768 FILEPKGCONTENTS 756 CONTAIN 748 CONTENTS 725 PRETTYDEFMACROS 714 PRETTYDEFMACROS 708 PRETTYDEFMACROS 686 PRETTYDEFMACROS 673 PRETTYDEFMACROS 659 MACRO 645 DELFROMPRETTYCOM 630 DELFROMPRETTYCOM 618 DELETE 604 ADDTOPRETTYCOM 589 ADDTOPRETTYCOM 577 ADD 557 FILEPKGCOMSPLST 551 FILEPKGCOMSPLST 538 FILEPKGCOMSPLST 506 FILEPKGCOMSPLST 498 FILEPKGCOMSPLST 485 FILEPKGCOMSPLST 465 FILEPKGCOMSPLST 459 FILEPKGCOMSPLST 444 FILEPKGCOMSPLST 425 COM 408 FILEPKGCOMS 369 FILEPKGCOMSPLST 354 FILEPKGCOMSPLST 345 COM 323 LAMBDA 307 PRETTYCOM1 302 INFILECOMTAIL 283 NAME 261 LAMBDA 252 NILL 237 PRETTYTYPE 224 FILEPKGCONTENTS 214 CONTAIN 206 CONTENTS 192 PRETTYDEFMACROS 183 MACRO 171 DELFROMPRETTYCOM 162 DELETE 150 ADDTOPRETTYCOM 141 ADD 88 COM 69 FILEPKGCOMSPLST 53 COM 41 FILEPKGCOMSPLST) ( 796 "not file package command property" 385 "not file package command property" 334 (COM TYPE NAME) 328 (COM TYPE NAME) 20 (MACRO CONTENTS DELETE ADD)) FILEPKGCOMPROPS :D8 (L (0 PROPS)) 9@2dHd` `Hgg h(48 PUT 19 MEMB) (43 FILEPKGCOMS 38 PROPTYPE 31 SYSPROPS 25 SYSPROPS 14 SYSPROPS) () FILEPKGTYPE :D8 (L (0 N) F 8 FILEPKGTYPES) eka1Hdkoo` !M8N3Ig gihIg Z gJh_IO ZNOJh M]l_la`Ila ladgI gIg iIg lao HlLdKIg kaLagEJdiIWgIW IWgIJW hJ `JIWgIW Lda`JILaJ 0ILa &agIJ J Lao Ll\:(419 ERROR 406 /RPLACA 398 SEARCHPRETTYTYPELST 381 /REMPROP 371 /PUTPROP 347 /SETTOPVAL 323 /RPLACD 315 /SETTOPVAL 290 /SETTOPVAL 243 MARKASCHANGED 220 ERROR 204 GETTOPVAL 189 GETTOPVAL 166 SEARCHPRETTYTYPELST 147 GETPROP 117 \NCONC2 103 FILEPKGTYPE 76 GETTOPVAL 52 GETTOPVAL 30 UNION) (389 DESCRIPTION 356 FILEPKGTYPEPROPS 338 FILEPKGTYPES 304 FILEPKGTYPES 281 FILEPKGTYPES 255 TYPE 238 FILEPKGCOMS 199 FILEPKGTYPES 184 FILEPKGTYPES 175 TYPE 157 DESCRIPTION 136 FILEPKGTYPEPROPS 86 TYPE 71 FILEPKGTYPES 59 TYPE 47 FILEPKGTYPES 25 FILEPKGTYPEPROPS) ( 414 "not file package command/type property" 215 "not file package type property" 20 (DESCRIPTION)) FILES? :D8 (F 9 FILEPKGTYPES)  ``Z_Wh\MIoi `!`$o i o i [g X6Ioi iKi oi H!Ni JX_d-Oi _Oi O hi i ki N^Io iL(267 FILES?1 247 LISPXSPACES 239 LISPXPRIN2 231 LISPXTAB 222 FILES?PRINTLST 213 LISPXPRIN2 201 POSITION 177 LISPXTERPRI 161 LISPXPRIN1 149 LISPXPRIN2 139 LISPXPRIN1 121 GETPROP 106 LISPXTERPRI 99 FILES?PRINTLST 86 LISPXTERPRI 79 FILES?PRINTLST 50 ADDTOFILES? 44 LISPXPRIN1 4 UPDATEFILES) (116 FILE 63 NOTLISTEDFILES 56 NOTCOMPILEDFILES 12 FILELST) ( 262 " plus " 155 " ...changes to " 133 "To be dumped: " 94 "To be compiled: " 74 "To be listed: " 38 "...to be dumped. ") FILES?1 :D8 (L (1 FIRST 0 TYPE)) Q @d3@G@ X;@  Y+AAi oi Hi I i i(77 LISPXTERPRI 71 FILES?PRINTLST 65 LISPXPRIN1 58 LISPXPRIN1 46 LISPXPRIN1 33 GETTOPVAL 27 SEARCHPRETTYTYPELST 15 SEARCHPRETTYTYPELST) NIL ( 52 "the ") GETFILEPKGTYPE :D8 (L (3 NAME 2 NOERROR 1 ONLY 0 TYPE) F 4 FILEPKGTYPES) \@d*1HIABC dJ KhZHXK&gCd Adg+@gigTHYhAg@d3@@`Ag@dd3@T1H4h@hAdgTTh@I@I@IIHXYdZ @ ջjKKk@J IdJHXg`T` 0B,Adgogoo@ h(343 ERROR 297 FIXSPELL 292 UNION 253 STRPOS 234 NCHARS 228 NCHARS 60 TYPESOF 22 GETFILEPKGTYPE) (324 COMS 309 TYPE 287 FILEPKGCOMSPLST 280 FILEPKGCOMSPLST 273 COMS 183 TYPE 146 COMS 132 FILEPKGCOMSPLST 117 TYPE 89 VARS 80 FNS 68 COMS 49 ?) ( 337 "unrecognized manager definition-type/command" 331 "unrecognized manager command" 317 "unrecognized manager definition type") HASDEFA0001 :D8 (L (0 X) F 0 TYPE) @Pg (11 HASDEF) (6 CURRENT) () HASDEF :D8 (L (3 SPELLFLG 2 SOURCE 0 NAME) I 1 TYPE F 14 FILEPKGTYPES) IAdg bd!!HI@JB YHXg o"B gbgBdj@A  hAg [@ABlKL@d3@Adg<@+Cq@d3@f@hAdg!`@ g]AgTAgKAgBAg9Ag0Ag'AgAgAgAghAdg%@o o ds kg@ [Adg@` Cg@d`4`&Adg@ @ gg@ Adg.@g ZdgJg g8@d @d @g'\@gB |Adg@ lg@`\AdghOgAgAgAdgh)g@d`WH@AgI h@d3@@ +gWhg $@bA>dI@IYV0@dZJVdLKh]K&M@(64 SI::RESETUNWIND 59 \MVLIST 54 INFILECOMTAILA0001 28 \EVALV1) (49 SI::RESETUNWIND 36 DWIMLOADFNSFLG 8 *) () LOADDEF :D8 (L (2 SOURCE 1 TYPE 0 NAME)) @A@ABo (19 PUTDEF 14 GETDEF) NIL ( 9 (NODWIM NOCOPY)) MAKEALISTCOMS :D8 (L (0 X)) g@@d[AL"MXIHZYJh YHd_h_LOKA OO_N Oh^O&O_hO_O_OO %gOggOhid _O Oh__O&_(171 LISPXPRINT 137 SASSOC 132 GETTOPVAL 47 LAST) (156 on 151 entry 144 no 4 ADDVARS) () MAKEFILE1 :D8 (L (3 OTHERFILES 2 OPTIONS 1 RECOMPFLG 0 FILE)) @ aH ^gNg#Hd gH` hHg ]hY_hoi M@id Bg BgBgNdgH@gKgKLh ZH!Jdg JC JpiIxg@gKLgKi yNgNg^Bo Bh MAM DM dg5dg,dg#dgId`oi IYB(210 PRINT) (195 LOADOPTIONS 183 NOERROR 174 IMPORT 165 SYMBOLIC 156 SOURCE 147 EXT 138 EXTENSION 129 LOAD 120 COMPILED 101 OF 90 VALUE 80 VALUEOF 66 FROM 55 LOADFROM 44 LOADCOMP 13 FILESLOAD) ( 203 (-- unrecognized FILES option)) MAKELISPXMACROSCOMS :D8 (L (0 X))  g0@d`dKJh\J&LX gHh0@d`dKJh\J&LX gHh X0@d`dKJh\J&LYggIhh0@d`dKJh\J&LYggIhh (223 \NCONC2 106 \NCONC2) (211 HISTORYCOMS 206 ADDVARS 176 HISTORYCOMS 156 LISPXCOMS 151 ADDVARS 121 LISPXCOMS 97 LISPXMACROS 67 LISPXMACROS 50 LISPXHISTORYMACROS 20 LISPXHISTORYMACROS 7 ALISTS) () MAKENEWCOM :D8 (L (3 FILE 2 LISTNAME 1 TYPE 0 NAME)) A b@@ bAg X@ABClHmAdg#BVg@dd@;@h5g1@g@gBC gBgBh@h @ABC (153 DEFAULTMAKENEWCOM 120 MAKENEWCOM 33 GETPROP 19 COPY 5 GETFILEPKGTYPE) (134 * 127 P 113 VARS 104 SETQ 94 EXPRESSIONS 65 PROP 53 PROPS 28 NEWCOM) () MAKEPROPSCOMS :D8 (L (0 X)) 9@@/dgKddKKhIHhZH&JNIL (13 PROP) () MAKEUSERMACROSCOMS :D8 (L (0 X)) + 0@/0`:dY`I`Ioid ܰ dLKh]K&Md bgoAKLoAK`L h_ 1 O OX(3d@_OOh__O_O&_OHM Nh]K[N&_0 O )dZ@JJ@d_O Oh_O&_OXOHM Nh]K[PN&(224 GETTOPVAL 135 GETTOPVAL 123 \NCONC2 82 INTERSECTION 48 LISPXPRINT) (90 ADDVARS 32 EDITMACROS 23 USERMACROS 13 USERMACROS) ( 109 (EDITCOMSA EDITCOMSL COMPACTHISTORYCOMS DONTSAVEHISTORYCOMS) 95 (USERMACROS EDITMACROS) 40 (-- no entry on USERMACROS)) MARKASCHANGED :D8 (L (2 REASON 1 TYPE 0 NAME) F 2 LISPXHIST F 3 FILEPKGFLG F 4 MARKASCHANGEDFNS) SBdgCdg:dg1dg(dg gigoB bAg bdg HT(HhHH@ABlId@ABlHBg1A  HY @A N@Ih IA@A   @A   RgHhR @(274 UNDOSAVE 254 SETTOPVAL 248 GETTOPVAL 242 SEARCHPRETTYTYPELST 234 SEARCHPRETTYTYPELST 228 GETTOPVAL 222 SEARCHPRETTYTYPELST 209 /RPLACA 195 DELFROMFILES 179 GETTOPVAL 173 SEARCHPRETTYTYPELST 107 GETPROP 94 GETFILEPKGTYPE 81 ERROR) (264 /RPLACA 164 DELETED 102 WHENCHANGED 89 TYPE 69 DEFINED 59 CHANGED 49 DELETED 40 DEFINED 31 CHANGED 22 LOAD 13 CLISP) ( 75 "bad REASON in MARKASCHANGED") MOVETOFILE :D8 (L (3 FROMFILE 2 TYPE 1 NAME 0 TOFILE)) JB bdgCABABCo BgAB ABC AB@ (71 ADDTOFILE 63 DELFROMFILES 54 MARKASCHANGED 38 PUTDEF 33 GETDEF 5 GETFILEPKGTYPE) (45 FNS 13 FNS) ( 28 (NOCOPY NODWIM)) POSTEDITPROPS :D8 (L (1 OLDPROPS 0 EDITCHANGES) F 4 FILEPKGFLG) @Th@@[}AZi[nKNJKJh`K` XKHKHKh` hJ@Khgh iKIq@hh(136 MARKASCHANGED 109 PUTHASH 74 GETHASH) (130 PROPS 104 CLISPARRAY 69 CLISPARRAY 59 CLISPARRAY) () PREEDITFN :D8 (L (2 EDITCHANGES 1 TYPE 0 ATM) F 3 SI::*RESETFORMS* F 4 FILEPKGFLG) 6T0Adgn`hhhh `5@+dH H` HdH` gB@h hhdScg@g HgH gHi`hhhh `6@ +dH H` HdH` gB0@ dIHhZH&JhhdSc(273 \EVALV1 252 PUTHASH 234 GETHASH 212 \EVALV1 198 CLISPTRAN 147 GETPROP 111 \APPEND2 88 PUTHASH 70 GETHASH 35 CLISPTRAN) (263 POSTEDITALISTS 247 CLISPARRAY 229 CLISPARRAY 204 CLISPARRAY 185 CLISPARRAY 168 ALIST 156 ALIST 142 VARTYPE 129 VARS 99 POSTEDITPROPS 83 CLISPARRAY 65 CLISPARRAY 41 CLISPARRAY 22 CLISPARRAY 13 PROPLST) () PRETTYDEFMACROS :D8 (L (0 ARGS)) )@@d[gK IHhZH&J(21 FILEPKGCOM) (14 MACRO) () PROPS.WHENCHANGED :D8 (L (2 NEWFLG 1 TYPE 0 NAME)) H@g H"gHg@HB h @g @ h(68 CLEARCLISPARRAY 47 RETFROM 40 MARKASCHANGED 12 GETPROP) (58 CLISPWORD 29 IGNORE 23 MARKASCHANGED 7 PROPTYPE) () PUTDEF :D8 (L (3 REASON 2 DEFINITION 1 TYPE 0 NAME)) }Ag bdg H@ABClHAdg@ABC @g@ABC .Adg@ABC g@ABC B @(121 EVAL 114 FILEPKGCOMS.PUTDEF 96 FILES.PUTDEF 75 VARS.PUTDEF 57 FNS.PUTDEF 23 GETPROP 10 GETFILEPKGTYPE) (103 FILEPKGCOMS 84 FILES 64 VARS 45 FNS 18 PUTDEF 5 TYPE) () RENAME :D8 (L (4 METHOD 3 FILES 2 TYPES 1 NEW 0 OLD)) Bgh@ AHYI@AHCD H[K2AdhIJg@AJhJgg KhKKLg@dg @Ag @L (142 DELDEF 133 COPYDEF 119 HASDEF 84 COPYDEF 32 CHANGECALLERS 12 GETFILEPKGTYPE) (128 FIELDS 114 FIELDS 104 FIELDS 78 NOERROR 70 VARS 57 FIELDS 5 TYPE) () SAVEDEF :D8 (L (2 DEFINITION 1 TYPE 0 NAME)) @)A'0@dg IHhZH&JAg bdgKB@ b@Bd g! gB ggbB sg/B @ bgXB@ N@gbB >B@Ago b&@BA`A@hh` A(250 /PUTASSOC 210 GETDEF 188 /PUT 171 GETTOPVAL 154 GETTOPVAL 135 /PUT 115 CCODEP 101 EXPRP 87 SUBRP 73 GETD 53 GETFILEPKGTYPE 24 SAVEDEF) (244 SAVEDDEFS 238 SAVEDDEFS 222 SAVEDDEFS 200 CURRENT 180 VALUE 161 NOBIND 142 VARS 127 LIST 121 CODE 107 EXPR 94 SUBR 61 FNS 48 TYPE 19 FNS) ( 205 (NOCOPY NOERROR NODWIM)) SAVEPUT :D8 (L (2 VAL 1 PROP 0 ATM) F 4 LISPXHIST F 5 DFNFLG F 6 ADDSPELLFLG) @dd3@l@h @1H)HxIuABhTg@JhT IJyPHdACBn ihHB KfUiNgAgg@hid -YXAB@@JTg@JhT @AhgKh V@j B(218 ADDSPELL 208 MARKASCHANGED 189 UNDOSAVE 144 LISPXPRINT 105 /RPLACA 92 EQUALN 63 UNDOSAVE 18 ERRORX) (200 PROPS 177 /PUT-1 130 for 125 property 119 new 51 /PUT-1) () SEARCHPRETTYTYPELST :D8 (L (1 FLG 0 TYPE) F 2 PRETTYTYPELST) k@d3@RRHKhFACgg@g @hdbg  Ad Ah AY@IiHX(85 /SETTOPVAL 74 GETTOPVAL 66 /SETTOPVAL 60 GETTOPVAL 42 PACK*) (55 PRETTYTYPELST 37 LST 31 CHANGED 26 PRETTYTYPELST) () SHOWDEFA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 PRETTYCOMSLST P 2 FL P 1 FNSLST P 0 ORIGFLG I 0 SI::*CLEANUP-FORMS* F 4 FILE F 5 SI::*RESETFORMS* F 6 NAME F 7 TYPE) [@TGT>Tg ZgJ hhT ghhdUc VW h(87 PRETTYCOM 82 MAKENEWCOM 62 OUTPUT 51 OUTFILE 39 OUTPUT 25 OPENP 11 OUTPUT) (57 CLOSEF? 33 OUTPUT 20 OUTPUT) () SHOWDEF :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FILE I 1 TYPE I 0 NAME F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 SHOWDEFA0001) (8 SI::RESETUNWIND) () SMASHFILECOMS :D8 (L (0 FILE)) ,@g H@dd3@g HX(36 SETTOPVAL 10 FILECOMSLST) (31 NOBIND 5 FILEVARS) () TYPESOFA0001 :D8 (F 1 FOUND F 2 SHADOW-TYPES) (Q!dRdHQHQ ch(24 REMOVE) NIL () TYPESOF :D8 (L (4 FILTER 3 SOURCE 2 IMPOSSIBLETYPES 1 POSSIBLETYPES 0 NAME) P 0 FOUND F 14 FILEPKGTYPES F 15 SHADOW-TYPES)  CgCKh__AWhK@jg`]Og @O H jgKhKKLd3@LBBLBDLkDHhY/h@Lg @d3@-@Lg LHfLJWJWiILO_FOtNg i@ON g _M!! OOO __dO"HOW_OO OO _O_AW_OHO_hO_O_Od3@OBBOBDOkD@OC OH(419 HASDEF 333 REMOVE 323 LDIFFERENCE 289 LDIFFERENCE 262 INFILECOMS? 252 FILECOMS 237 GETPROP 177 HASDEF 156 HASDEF 82 UNION 76 XCL::HASH-FILE-TYPES-OF 67 \DEFINEDP) (257 TYPESOF 232 FILE 172 SAVED 151 CURRENT 89 TYPESOFA0001 62 XCL::HASH-FILE-TYPES-OF 45 FILELST 38 TYPESOFA0001 8 ?) () UNMARKASCHANGED :D8 (L (1 TYPE 0 NAME))  Ag b  @I `AJH@ i@AKg ]^ \!iLN \NLMNM JZ(122 /RPLACD 117 REMOVE 103 REMOVE 89 MEMBER 79 GETPROP 59 /RPLACA 34 MEMBER 26 GETTOPVAL 20 SEARCHPRETTYTYPELST 13 GETFILEPKGTYPE) (74 FILE 41 FILELST 8 TYPE) () UNSAVEDEF :D8 (L (2 DEF 1 TYPE 0 NAME) P 3 DFNFLG F 4 DFNFLG) A%AgAgAgAg/@d#0@dA IHhZH&JA B&@Ag bgj bAoTi@A i@AB @AB A(156 PUTDEF 146 PUTDEF 133 SAVEDEF 110 GETDEF 97 GETFILEPKGTYPE 81 UNSAVED1 57 UNSAVED1) (104 SAVED 92 TYPE 34 LIST 26 SUBR 17 CODE 8 EXPR) ( 119 (not found)) UPDATEFILES :D8 (L (1 FLST 0 PRLST) F 15 FILEPKGTYPES) gWQHhYd  i ZIh h P`I@rJIgg _OO _N JO IM M HX_g AJO J_*Og __OIOg _N^d`O:gOg gOg IO_OIh_ Oh[OOO _\O OL K(352 /NCONC1 343 MEMBER 328 \NCONC2 323 \NCONC2 300 /NCONC1 279 /SETTOPVAL 274 REMOVE 269 GETTOPVAL 251 /SETTOPVAL 246 REMOVE 241 GETTOPVAL 205 INFILECOMS? 181 GETPROP 163 INTERSECTION 150 GETPROP 130 /SETTOPVAL 123 SEARCHPRETTYTYPELST 115 LDIFFERENCE 100 \NCONC2 95 \NCONC2 82 INFILECOMS? 50 /SETTOPVAL 43 SEARCHPRETTYTYPELST 33 FILEPKGCHANGES 24 GETTOPVAL 18 SEARCHPRETTYTYPELST) (264 NOTCOMPILEDFILES 257 NOTCOMPILEDFILES 236 NOTLISTEDFILES 229 NOTLISTEDFILES 200 UPDATE 176 FILE 145 FILEDATES 77 UPDATE 72 NILCOMS 58 FILELST) () DELDEF :D8 (L (1 TYPE 0 NAME)) %PAg bg X@AlHAdgM@d @ @g `g@ddi3 g@hh g@g AdgSodY@I @gh @gh @gh @ -gjg@ g@ @ Z@Jh @ [@Kh g@ g Adg@d@@  g`d@L xAdg@di@ \g?g@` g@` g@ g@ oAohi @Ag @(545 MARKASCHANGED 532 PRIN1 509 \DELDEF/DELFROMLIST 497 \DELDEF/DELFROMLIST 485 \DELDEF/DELFROMLIST 467 \DELDEF/DELFROMLIST 440 /REMPROP 408 /REMPROP 381 \DELDEF/DELFROMLIST 375 GETTOPVAL 343 /SETTOPVAL 338 REMOVE 333 GETTOPVAL 323 SEARCHPRETTYTYPELST 306 FILEPKGTYPE 295 FILEPKGTYPE 283 FILEPKGCOM 272 FILEPKGCOM 265 \DELDEF/DELFROMLIST 253 \DELDEF/DELFROMLIST 231 FLUSHFILEMAPS 224 /PUTPROP 211 /PUTPROP 198 /PUTPROP 181 /SETTOPVAL 176 REMOVE 171 GETTOPVAL 140 /SETTOPVAL 119 MASTERSCOPE 75 REMPROP 63 /PUTD 55 EXPRP 25 GETPROP 13 GETFILEPKGTYPE) (540 DELETED 503 HISTORYCOMS 491 LISPXCOMS 479 LISPXHISTORYMACROS 473 LISPXHISTORYMACROS 461 LISPXMACROS 455 LISPXMACROS 447 LISPXMACROS 422 PROPS 397 MACROPROPS 389 MACROS 353 ALISTS 328 PRETTYTYPELST 317 PRETTYTYPELST 259 FILEPKGTYPES 247 FILEPKGCOMSPLST 239 FILEPKGCOMS 218 FILEDATES 205 FILECHANGES 192 FILE 150 FILES 135 NOBIND 127 VARS 107 QUOTE 90 ERASE 81 MSDATABASELST 70 EXPR 44 FNS 20 DELDEF 8 TYPE) ( 522 "not implemented yet" 516 "Note: deleting" 159 (FILELST NOTCOMPILEDFILES NOTLISTEDFILES)) \DELDEF/DELFROMLIST :D8 (L (1 VAL 0 VAR)) @A@ 6@@@ d[AKKAdIHhZH&J (61 /SETTOPVAL 19 GETTOPVAL 6 GETTOPVAL) NIL () GETDEF :D8 (L (3 OPTIONS 2 SOURCE 1 TYPE 0 NAME) P 0 NOCOPY) @CgC gCi!CdjobikobiCigbAg bBdjgigB gbg@AC {BdgPgCddh@AJ YAg J@AJ YAg 3@AgC #g@AC B7@ABC iHI Ag/Cg&CgCgBI@B I(316 \GETDEF/DWIMDEF 261 COPY 250 \GETDEF/GETDEFFROMFILE 235 \GETDEF/GETDEFSAVED 217 \GETDEF/GETDEFFROMFILE 201 GETPROP 189 \GETDEF/GETDEFSAVED 178 GETPROP 166 \GETDEF/GETDEFCURRENT 129 \GETDEF/GETDEFCURRENT 80 GETFILEPKGTYPE) (300 = 289 NODWIM 277 NODWIM 268 FNS 225 SAVED 211 FILE 196 NULLDEF 173 NULLDEF 148 NOERROR 139 ? 119 CURRENT 112 ? 103 SAVED 93 CURRENT 75 TYPE 66 SPELL 17 NOCOPY 5 NOCOPY) ( 51 (NOERROR NODWIM FAST ARGLIST) 36 (NOERROR NODWIM)) \GETDEF/DWIMDEF :D8 (L (2 SOURCE 1 FN 0 DEF) P 4 LISPXHIST P 3 FILEPKGFLG P 2 DWIMESSGAG P 1 NOSPELLFLG F 5 DWIMIFYCOMPFLG) Uim`id@gWBgBgBgBdgh.d3@BBg HgH gHiid"@AAgh@ (135 DWIMIFY0 82 GETPROP) (128 ? 103 CLISP 91 CLISP 77 FILETYPE 59 ? 50 FILE 41 SAVED 32 CURRENT 23 CLISP%: 9 CLISPIFYPRETTYFLG) () GETDEFCOM :D8 (L (0 X)) (0@d XI HZYJ YH(33 LAST 12 \GETDEF/GETDEFCOM0) NIL () \GETDEF/GETDEFCOM0 :D8 (L (0 COM)) 0@g X70H@ H d [L K]\M \K@dg/0@ d [L K]\M \Kdg*0@ dgILKh]K&Mdg*0@ dgJLKh]K&Mg@ h g (256 RETFROM 245 \APPEND2 239 PRETTYCOM1 196 PRETTYCOM1 147 PRETTYCOM1 123 LAST 102 \GETDEF/GETDEFCOM0 93 PRETTYCOM1 67 LAST 46 \GETDEF/GETDEFCOM0 37 SUBPAIR 30 PRETTYCOM1 14 GETTOPVAL) (251 GETDEFCOM 231 P 206 APPENDTOVAR 183 APPENDVARS 157 ADDTOVAR 134 ADDVARS 80 COMS 9 PRETTYDEFMACROS) () \GETDEF/GETDEFERR :D8 (L (3 MSG 2 OPTIONS 1 TYPE 0 NAME)) @BgBgBAg C7BgBd+gB @AhBgI i XBZJ;@Aoi h@gHAggBddh JhJJK gK (184 RETFROM 171 STRINGP 152 RETFROM 147 GETDEF 110 ERROR 87 HASDEF 77 MEMB 33 GETPROP) (178 GETDEF 133 NOERROR 128 ? 121 GETDEF 71 SPELL 56 SPELL 43 SPELL 28 NULLDEF 19 NOERROR 8 NOERROR) ( 103 (definition not found)) \GETDEF/GETDEFCURRENTA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 8 SI::*RESETFORMS* F 9 FILE F 10 NOCOPY F 11 COMS F 12 DEF) gd gh Wcgd gh Wcggg c hhWcW Wj W !H IcicIJdghudgRJAK_L\dgdgdgOh߿Od`M Nh]ON&dgJgJJh HXh(268 \NCONC2 116 READFILE 109 SETFILEPTR 101 PRETTYDEFCOMS 84 OUTPUT 77 OPENSTREAM 51 SETTOPVAL 39 GETTOPVAL 22 SETTOPVAL 10 GETTOPVAL) (255 PROGN 243 CL:EVAL-WHEN 215 DECLARETAGSLST 196 EVAL@COMPILEWHEN 188 EVAL@LOADWHEN 180 COPYWHEN 154 DECLARE%: 142 * 72 BOTH 67 {NODIRCORE} 62 OUTPUT 45 FONTCHANGEFLG 33 FONTCHANGEFLG 16 PRETTYFLG 4 PRETTYFLG) () \GETDEF/GETDEFCURRENT :D8 (L (2 OPTIONS 1 TYPE 0 NAME) P 15 RESETSTATE P 14 SI::*RESETFORMS* P 13 LISPXHIST P 12 *PRINT-BASE* P 11 *READ-BASE* P 10 *READTABLE* P 9 *PACKAGE* P 8 FILE P 7 COMS P 0 DEF F 16 *OLD-INTERLISP-READ-ENVIRONMENT* F 17 LISPXHIST) @Ag X.AdgH@d3@@ X Hi@ABlHXAg @AB Hg@d3@@ g~AgAdgJ@d3@`Ag@ @ BgBgBH (H$gK@d3@@ XH Hg Hg hAdgQ@d3@@ Xg@ddi3 g@hHddi3 gHhhzgK@d3@g@!L^MXQg@HE`MNNh NAdg@g:@ @d@hXg@@HhAdgO@d3@@ @ Y JgIgJhIgIJgJhg(@d3@@ X@g H[gT@A hO X8W [KKK W"!g $H XAg @AB H(784 \GETDEF/GETDEFERR 774 GETPROP 761 MKPROGN 749 SI::RESETUNWIND 744 \MVLIST 739 \GETDEF/GETDEFCURRENTA0003 699 GETDEFCOM 687 MAKENEWCOM 669 WHEREIS 655 GETTOPVAL 581 FILEPKGTYPE 575 FILEPKGCOM 462 \NCONC2 326 GETTEMPLATE 290 GETPROP 278 GETPROP 266 GETTOPVAL 261 FILECOMS 254 UPDATEFILES 242 GETFILEDEF 210 COPY 183 MKPROGN 178 FIELDLOOK 171 RECLOOK 116 GETTOPVAL 94 \GETDEF/GETDEFERR 84 GETPROP 50 EXPRP 44 VIRGINFN 13 GETPROP) (769 NULLDEF 734 SI::RESETUNWIND 709 READER-ENVIRONMENT 678 NOBIND 664 FILEVARS 639 FILEVARS 627 TYPE 613 COM 600 TYPE 593 COM 554 FILEPKGCOMS 531 PUTPROPS 488 PROPS 475 EXPRESSIONS 446 MACROPROPS 433 PUTPROPS 392 MACROS 376 QUOTE 355 QUOTE 338 SETTEMPLATE 305 TEMPLATES 285 FILEDATES 273 FILE 222 FILES 201 EDIT 190 EDIT 163 RECORDS 142 RECORDS 133 FIELDS 124 NOBIND 101 VARS 79 NULLDEF 23 FNS 8 GETDEF) () \GETDEF/GETDEFFROMFILEA0004 :D8 (NAME SI::*UNWIND-PROTECT* P 0 LOAD-VERBOSE-STREAM I 0 SI::*CLEANUP-FORMS* F 1 NAME F 2 SI::*RESETFORMS* F 3 SOURCE F 4 OPTIONS F 5 TYPE) TghhRchSgQd3@ggQhhi QUgTddh (81 \GETDEF/GETDEFCURRENT 59 LOADFNS 9 RESETUNDO) (67 NOERROR 45 |..| 40 & 28 PROP 4 RESETUNDO) () \GETDEF/GETDEFFROMFILE :D8 (P 9 RESETSTATE P 8 SI::*RESETFORMS* P 7 LISPXHIST P 4 SOURCE I 3 OPTIONS I 2 SOURCE I 1 TYPE I 0 NAME F 10 LISPXHIST)  oBdg@Ai RI@ACoLddh IhIIJi \Ag ]@ALCHlM0Adg@ALCH gAdg@ALCH g@ALCH Adg@ALCH g@ALCH Adg@ALCH g@ALCH Ag'[]hLggoggggKhhoh ^dgH/gN$N W! g $[HLgJ`ioL K(440 CL:FORMAT 399 SI::RESETUNWIND 394 \MVLIST 389 \GETDEF/GETDEFFROMFILEA0004 344 LOADFNS 266 FILEGETDEF.LISPXMACROS 245 FILEGETDEF.ALISTS 221 FILEGETDEF.RECORDS 200 FILEGETDEF.PROPS 176 FILEGETDEF.MACROS 155 FILEGETDEF.VARS 124 FILEGETDEF.FNS 88 GETPROP 74 FINDFILE 54 \GETDEF/GETDEFERR 49 \APPEND2 22 WHEREIS) (426 FILELST 417 FILE 384 SI::RESETUNWIND 366 PROGN 353 NOT-FOUND 320 QUOTE 315 FIRST 310 MEMB 305 AND 295 LAMBDA 290 GETDEF 279 DEFINERS 253 LISPXMACROS 231 ALISTS 208 RECORDS 186 PROPS 163 MACROS 141 FILEVARS 132 VARS 110 FNS 83 FILEGETDEF 11 FILE) ( 434 "(from ~A)~%%" 333 ((OR (EQ SECOND NAME) (AND (MEMB SECOND (QUOTE (%( %[))) (PROGN (RATOM) (RATOM) (RATOM) (EQ NAME (RATOM)))))) 300 (FIRST SECOND) 36 (no definition on) 4 "not found") \GETDEF/GETDEFSAVED :D8 (L (2 OPTIONS 1 TYPE 0 NAME)) yAdg@g a@ABo g.@HY@ABo gII@A` @ABo (118 \GETDEF/GETDEFERR 102 SASSOC 71 \GETDEF/GETDEFERR 36 \GETDEF/GETDEFERR 21 GETPROP) (96 SAVEDDEFS 78 VALUE 42 VARS 16 EXPR 6 FNS) ( 113 "no saved definition for " 66 "no saved value for " 31 "no saved definition for") FILECHANGESA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 FC P 3 ENV P 2 A2872 P 1 STREAM P 0 OLDPTR I 0 SI::*CLEANUP-FORMS* F 5 FILE F 6 SI::*RESETFORMS*) c Ug YDgUg YhhdVc Ig !JJHIH L Ij (95 SETFILEPTR 87 GETFILEPTR 80 SETFILEPTR 61 \MVLIST 56 \PARSE-FILE-HEADER 32 OPENSTREAM 13 OPENP) (51 RETURN 27 INPUT 21 CLOSEF 8 INPUT) () FILECHANGES :D8 (P 5 CHANGES P 4 FNS P 3 FCEXPR P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 TYPE I 0 FILE F 12 LISPXHIST) @d" W!g $!gK ]gM ]A0M*gAMdd3@dONh_N&_O\AdgM L3gL0 Mdd_O Oh_O&_OM(141 \NCONC2 68 LDIFF 63 MEMB 50 MEMB 31 SI::RESETUNWIND 26 \MVLIST 21 FILECHANGESA0001) (150 FNS 133 FNS 83 FNS 57 previous 44 to%: 16 SI::RESETUNWIND) () FILEPKG.MERGECHANGES :D8 (P 13 X P 8 TEMP P 7 E2 P 6 VAL P 4 E1 I 1 C2 I 0 C1) A@AH I"M$N\dh J KhZYHXK&Z_N_NOh h ^M]OA O O _O O_OOh__O_O&_(116 MEMBER 103 \NCONC2 77 \NCONC2 70 \APPEND2 31 \APPEND2) NIL () FILEPKG.CHANGEDFNS :D8 (I 0 CHANGES) g@NIL (4 FNS) () COMPILE-FILE? :D8 (P 3 X P 1 UNKNOWN P 0 TYPE I 0 ROOTNAME F 4 *DEFAULT-CLEANUP-COMPILER*) @g'1HJIioH TdhJKgKdgggKdgggKgKdgggKdgggyit(32 CL:FORMAT) (148 CLISP 142 CL:COMPILE-FILE 135 :XCL-COMPILE-FILE 126 :COMPILE-FILE 120 FAKE-COMPILE-FILE 113 COMPILE-FILE 104 CL:COMPILE-FILE 95 :FAKE-COMPILE-FILE 89 BCOMPL 82 :BCOMPL 73 BCOMPL 67 TCOMPL 60 :TCOMPL 51 TCOMPL 9 FILETYPE) ( 26 "~2%%**Warning: unknown FILETYPE value ~S~2%%") LISTFILES :D8 (P 6 OPTIONS P 5 FULLNAME P 4 FILE I 0 FILES) @`aH I b\dN ^$ ]!Li oi i i0hMN Mi ` MJ KhZHXK&(108 REMOVE 98 NAMEFIELD 89 LISTFILES1 73 TERPRI 66 PRIN1 54 PRIN1 44 FINDFILE 36 \APPEND2 21 NLAMBDA.ARGS) (113 NOTLISTEDFILES 103 NOTLISTEDFILES 7 NOTLISTEDFILES) ( 60 " not found.") WHEREIS :D8 (P 10 T8 P 9 T7 P 8 FILE-NAME P 7 IN-FILES P 6 TY P 4 FILES P 3 FILE I 3 FN I 2 FILES I 1 TYPE I 0 NAME) @i0B,`%d@AK dIHhZH&JBi g AML  C_OVMhMM@A )dO L OOOOO\ذd@KlChO(153 MKATOM 148 U-CASE 134 XCL::HASH-FILE-WHERE-IS 129 GETFILEPKGTYPE 100 UNION 94 REVERSE 75 CL:FBOUNDP 38 INFILECOMS? 33 FILECOMS) (70 XCL::HASH-FILE-WHERE-IS 18 FILELST) () FILES?PRINTLSTA0001 :D8 (I 0 STR) 9i @id lhi i oi @id (54 LISPXPRIN2 45 LISPXPRIN1 33 LISPXTERPRI 24 LINELENGTH 13 NCHARS 5 POSITION) NIL ( 39 " ") FILES?PRINTLST :D8 (I 1 STR I 0 LST) @iAohogi (27 MAPRINT) (20 FILES?PRINTLSTA0001) ( 15 ", " 9 ": ") MERGEINSERT :D8 (P 6 LST P 5 X P 3 TEM P 2 PLACE P 1 LST1 P 0 N I 2 ONEFLG I 1 LST I 0 NEW) B@A A@A@ jAAY JJWATI@khid [IZI@ [HKIZId\L@M JKM @N MhhA@ bA(133 /NCONC1 114 /ATTACH 106 ALPHORDER 96 ALPHORDER 69 MERGEINSERT1 55 STRPOS 21 /NCONC1 8 MEMBER) NIL () MERGEINSERT1 :D8 (P 2 C2 P 1 C1 P 0 N I 1 Y I 0 X) %k!@H YAH ZIJHkHkظ(19 NTHCHARCODE 10 NTHCHARCODE) NIL () POSTEDITALISTS :D8 (P 5 NEWENTRY P 4 X P 2 FOUNDCHANGE P 1 OV P 0 NEWENTRIES I 1 OLDTOKENS I 0 EDITCHANGES F 6 FILEPKGFLG) @ !Vh@AKHp\H@Lhgh iK[dMF`M` YMdI I$Mh` @Mhgh iJy@hp(135 MARKASCHANGED 116 PUTHASH 88 GETHASH 53 MARKASCHANGED 6 GETTOPVAL) (129 ALISTS 111 CLISPARRAY 83 CLISPARRAY 75 CLISPARRAY 47 ALISTS) () ALISTS.GETDEF :D8 (I 2 OPTIONS I 1 TYPE I 0 NAME) +@'@d3@@@ Hg@Hh(21 GETTOPVAL) (33 ADDTOVAR) () FILEGETDEF.LISPXMACROS :D8 (P 4 X I 3 OPTIONS I 2 SOURCE I 1 TYPE I 0 NAME) hBgo AH I \dg@L\eggLh\hFg=@dL gg@h\hL\ggLh\hiLJ KhZHXyK&(91 MEMB 30 MKPROGN 16 LOADFNS) (131 LISPXCOMS 126 ADDTOVAR 104 LISPXCOMS 99 ADDTOVAR 78 LISPXCOMS 63 LISPXMACROS 58 ADDTOVAR 41 LISPXMACROS 6 GETDEF) ( 11 (LAMBDA (FIRST SECOND) (AND (EQ FIRST (QUOTE ADDTOVAR)) (MEMB SECOND (QUOTE (LISPXMACROS LISPXCOMS))) T))) FILEGETDEF.ALISTS :D8 (P 4 X I 3 OPTIONS I 2 SOURCE I 1 TYPE I 0 NAME) GhBgo AHI g@I@L\J KhZHXK&(16 LOADFNS) (31 ADDTOVAR 6 GETDEF) ( 11 (LAMBDA (FIRST SECOND) (AND (EQ FIRST (QUOTE ADDTOVAR)) (EQ SECOND (CAR NAME))))) FILEGETDEF.RECORDS :D8 (I 4 NOTFOUND I 3 OPTIONS I 2 SOURCE I 1 TYPE I 0 NAME) 0hBgo HdgDdgH(16 LOADFNS) (41 PROGN 28 NOT-FOUND%: 6 GETDEF) ( 11 (LAMBDA (FIRST SECOND) (AND (MEMB FIRST CLISPRECORDTYPES) (OR (EQ SECOND NAME) (AND (MEMB SECOND (QUOTE (%( %[))) (PROGN (RATOM) (RATOM) (RATOM) (EQ NAME (RATOM)))))))) FILEGETDEF.PROPS :D8 (P 5 TAIL P 2 X I 3 OPTIONS I 2 SOURCE I 1 TYPE I 0 NAME) \hBgo !HI g@IIJ!K]L HX@LMMh M(84 \NCONC2 58 \NCONC2 16 LOADFNS) (31 PUTPROPS 6 GETDEF) ( 11 (LAMBDA (FIRST SECOND) (AND (EQ FIRST (QUOTE PUTPROPS)) (EQ SECOND (CAR NAME))))) FILEGETDEF.MACROS :D8 (I 3 OPTIONS I 2 SOURCE I 1 TYPE I 0 NAME) @hBgo )d[dghAL_$MXIHZYJ  YH`"gKOOh_NOh^OO&(76 LAST 70 MKPROGN 19 LOADFNS) (95 PUTPROPS 87 MACROPROPS 31 DEFMACRO 9 GETDEF) ( 14 (LAMBDA (FIRST SECOND) (AND (FMEMB FIRST (QUOTE (PUTPROPS DEFMACRO))) (EQ SECOND NAME)))) FILEGETDEF.VARS :D8 (P 1 X I 3 OPTIONS I 2 SOURCE I 1 TYPE I 0 NAME) ]hBg@ HgYdgdgIdgdgdgI HX(84 EVAL 12 LOADFNS) (72 RPAQ? 64 SETQ 56 RPAQ 42 SETQQ 34 RPAQQ 24 NOBIND 6 GETDEF) () FILEGETDEF.FNS :D8 (P 10 *PRINT-BASE* P 9 *READ-BASE* P 8 *READTABLE* P 7 *PACKAGE* P 6 MAPLOC P 5 PAIR P 1 ENV P 0 MAP I 3 OPTIONS I 2 SOURCE I 1 TYPE I 0 NAME F 11 SI::*RESETFORMS*) @CgCgCB ZJX@dB !Lh@M^B &gBgg bhhdWcBN I[KKK CgC-gC$B B B B B hB L\a(213 READ 203 READ 197 READ 191 RATOM 185 READ 179 RATOM 130 SETFILEPTR 108 OPENSTREAM 85 OPENP 51 LOADEFS 34 \MVLIST 29 GET-ENVIRONMENT-AND-FILEMAP) (169 ARGLIST 158 ARGLIST 137 READER-ENVIRONMENT 103 OLD 98 INPUT 92 CLOSEF? 19 FAST 8 FAST) () FILEPKGCOMS.PUTDEF :D8 (P 3 PROP P 2 I P 1 TYP P 0 COM I 3 REASON I 2 DEFINITION I 1 TYPE I 0 NAME)  BdgBXigBgBgBHKdJg:Jg1Jg(JgJgJdgo @gHg' Hg' od@KHK' I0dJ`JgJdgo o` d@KIK' h(263 FILEPKGTYPE 246 UNION 224 ERROR 174 FILEPKGCOM 152 FILEPKGCOM 118 ERROR) (241 FILEPKGTYPEPROPS 212 TYPE 202 DESCRIPTION 193 FILEPKGTYPEPROPS 146 CONTAIN 137 CONTENTS 131 CONTENTS 106 COM 96 CONTAIN 87 CONTENTS 78 MACRO 69 DELETE 60 ADD 42 TYPE 33 COM 24 TYPE 11 COM) ( 236 (DESCRIPTION TYPE) 219 "not file package type/command property" 157 (ADD DELETE MACRO COM) 113 "not file package command property") FILES.PUTDEF :D8 (I 3 REASON I 2 DEFINITION I 1 TYPE I 0 NAME) [@ gBC @ @g B@g  @g @gB (88 /PUTPROP 71 GETPROP 60 /RPLACD 55 FILEPKG.MERGECHANGES 49 GETPROP 35 GETPROP 24 ADDFILE 18 PUTDEF 5 FILECOMS) (79 FILEDATES 66 FILEDATES 44 FILE 30 FILE 10 VARS) () VARS.PUTDEF :D8 (I 3 REASON I 2 DEFINITION I 1 TYPE I 0 NAME) @Bi (7 /SETTOPVAL) NIL () FILES.WHENCHANGED :D8 (I 2 REASON I 1 TYPE I 0 NAME) @ gB (16 MARKASCHANGED 5 FILECOMS) (10 VARS) () DEFAULT.EDITDEFA0001 :D8 (I 3 EXITFLG I 2 TYPE I 1 DEF I 0 NAME) !A @BA @Bg g(25 MARKASCHANGED 13 PUTDEF 5 FIXEDITDATE) (30 ;; 20 CHANGED) () DEFAULT.EDITDEF :D8 (P 2 DEF P 1 FILE P 0 FILES I 4 OPTIONS I 3 EDITCOMS I 2 SOURCE I 1 TYPE I 0 NAME F 3 RETRY) B@ABo @Ago @Ago }@Ai Hio@A `io@H H o HdoH i Idg @Ago hcJdC@AgD h(206 EDITE 180 GETDEF 162 LOAD 145 ASKUSER 138 MAKEKEYLST 120 CL:Y-OR-N-P 108 CL:ENDP 100 CL:FORMAT 85 CL:FORMAT 67 WHEREIS 57 GETDEF 34 GETDEF 14 GETDEF) (199 DEFAULT.EDITDEFA0001 170 ? 157 PROP 47 SAVED 24 CURRENT) ( 175 (EDIT NOCOPY) 132 "indicate which file to load PROP: " 115 "Shall I load this file PROP? " 93 "~S is contained on~{ ~S~}.~%%" 78 "~S has no ~A definition.~%%" 52 (EDIT NOCOPY NOERROR) 29 (EDIT NOCOPY NOERROR) 9 (EDIT NOCOPY)) EDITDEF.FILES :D8 (I 4 OPTIONS I 3 EDITCOMS I 2 SOURCE I 1 TYPE I 0 NAME) @ gBCD (19 EDITDEF 5 FILECOMS) (10 VARS) () GETFILEDEF :D8 (P 1 FILE I 0 FILENAME) <@`@`Hh@Ikhi Ig @IHX(48 FILENAMEFIELD 36 STRPOS) (43 NAME 14 FILELST 5 FILELST) () FIXEDITDATE :D8 (P 3 TAIL P 0 E I 0 EXPR F 4 INITIALS F 5 COMMENTFLG F 6 LAMBDASPLST) T@@ @dV9g `@XYIHH@g ` @XhdPdgdgHdgHdg"gHdUdgJ[K KdUh'1K KdT iKT H @(253 /ATTACH 247 EDITDATE 233 /RPLACA 228 EDITDATE 217 EDITDATE? 79 GETPROP 44 GETPROP) (176 DECLARATIONS%: 157 ADV-PROG 144 PROGN 129 BREAK1 117 DECLARE 109 CLISP%: 84 EDITDATE-NAME-DEFINERS 74 :DEFINER-FOR 49 EDITDATE-ARGLIST-DEFINERS 39 :DEFINER-FOR) () EDITDATE? :D8 (L (0 COMMENT) F 0 INITIALS F 1 COMMENTFLG) A@d7Q1@ @dhgP@jP @P (62 STRINGP 50 STRPOS 44 NCHARS) (29 ;) () FINDCALLERS :D8 (P 0 X I 1 FILES I 0 ATOMS) 0@Ai H HHogHh (45 \NCONC2 17 DREVERSE 7 EDITCALLERS) (35 on) ( 29 "plus other places on") EDITCALLERSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 23 Z P 21 X P 19 PATTERN P 18 *PACKAGE* P 17 ATOM P 11 I P 10 TOP P 9 DUMMY P 8 ENV P 7 PRINTFLG P 6 FILESTREAM P 5 FULL P 4 NOMAPFLG P 3 MAP P 2 RDTBL P 1 CA P 0 PATTERNS I 0 SI::*CLEANUP-FORMS* F 24 OTHERSFILES F 25 FNS F 26 FILE F 27 FFILEPOSPATTERNS F 28 SI::*RESETFORMS* F 29 COMS F 30 DWIMIFYCOMPFLG F 31 ATOMS F 32 EDITPATTERN)   W4 ]W4oid gMg ^hhdW8c8ioN ] M N __O_O_OdZWd_" lO"lm _"oogO" _O"kOk O" O"iJ Ooo _O Oh_ O&_|O XW6c6HdNOj_ O&NOhdiI _Oi_Midd oihi Ki;K+Nj N N [i\oi hO((hOid W4W0W4W0c0ki m_*OaO*OXO*O, hHO*i_.O/O.O&O.dW2id W2c2O._O.iO,_,O(_(iOi i W:i(W2W0"L W2 MW@W:W0h hc0c2h(650 EDITFROMFILE 635 DREVERSE 611 TERPRI 604 LISPXTERPRI 551 LISPXPRIN2 470 LISPXSPACES 448 LISPXPRIN2 424 LISPXPRIN1 407 LOADFILEMAP 399 GETFILEMAP 392 SETFILEPTR 376 LISPXPRIN1 362 LISPXPRIN2 339 FFILEPOS 323 SETFILEPTR 262 CONCAT 242 MKSTRING 230 CL:SYMBOL-PACKAGE 221 SUBSTRING 206 STRPOS 180 SUBSTRING 164 CHCON1 133 SEPRCASE 93 \MVLIST 88 \PARSE-FILE-HEADER 80 GET-ENVIRONMENT-AND-FILEMAP 74 CL:FORMAT 68 FULLNAME 43 OPENSTREAM 26 LISPXPRINT 9 FINDFILE) (199  122 READER-ENVIRONMENT 38 INPUT 32 CLOSEF) ( 418 " no filemap!" 368 ": " 257 " " 251 "" 194 " " 188 "" 62 "~A: " 18 (not found)) EDITCALLERS :D8 (P 7 RESETSTATE P 6 SI::*RESETFORMS* P 5 LISPXHIST P 4 FILE P 3 EDITPATTERN P 2 OTHERSFILES P 1 FNS P 0 FFILEPOSPATTERNS I 2 COMS I 1 FILES I 0 ATOMS F 8 LISPXHIST) t@g@ddhb [A `Fi`` 1Ad*'dW!g $BiJI(95 SI::RESETUNWIND 90 \MVLIST 85 EDITCALLERSA0001 53 UNION 23 EDITFPAT) (80 SI::RESETUNWIND 48 FILELST 43 SYSFILES 32 FILELST 7 *ANY*) () FINDATS :D8 (I 1 L I 0 X) @@AA @b(14 FINDATS) NIL () SEPRCASE :D8 (P 7 X P 6 Y P 2 I P 0 CA I 1 RDTBL I 0 CLFLG F 8 *PACKAGE*) A `b@``Ag !lZlAJIHJdl JkZ@&@`d^ LKh]K&MA A dHOj WHAg j AHX@d`H`H(187 SETCASEARRAY 181 READTABLEPROP 160 SETCASEARRAY 145 \NCONC2 140 \NCONC2 135 GETBRK 129 GETSEPR 105 CHCON1 76 SETCASEARRAY 51 READTABLEPROP 37 CASEARRAY) (220 SEPRCASEARRAYS 214 SEPRCASEARRAYS 206 CLISPCASEARRAYS 200 CLISPCASEARRAYS 176 PACKAGECHAR 95 CLISPCHARS 46 CASEINSENSITIVE 22 SEPRCASEARRAYS 16 CLISPCASEARRAYS 7 FILERDTBL) () IMPORTFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 DFNFLG P 0 FILEPKGFLG I 0 SI::*CLEANUP-FORMS* F 3 FILE F 4 SI::*RESETFORMS* F 5 RETURNFLG) gSg chhdTcgS hhTcUiSU  SU gS Jddi3 gJhogSg hhU (147 \NCONC2 142 IMPORTEVAL 128 GETFILEINFO 82 ROOTFILENAME 70 IMPORTFILESCAN 59 IMPORTFILESCAN 39 INPUT 15 OPENSTREAM) (123 CREATIONDATE 117 IDATE 102 QUOTE 76 PUTPROP 33 INPUT 10 INPUT 4 CLOSEF) ( 112 (QUOTE IMPORTDATE)) IMPORTFILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 RETURNFLG I 0 FILE F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 IMPORTFILEA0001) (8 SI::RESETUNWIND) () IMPORTEVAL :D8 (P 3 Z I 1 RETURNFLG I 0 FORM) @@dg00@dKA XI HZYJ YHdg10@dKA XI HZYJ YHghAdi@ A@h(141 EVAL 115 LAST 93 IMPORTEVAL 59 LAST 37 IMPORTEVAL) (125 /DECLAREDATATYPE 70 CL:EVAL-WHEN 15 DECLARE%:) () IMPORTFILESCAN :D8 (P 7 *PRINT-BASE* P 6 *READ-BASE* P 5 *READTABLE* P 4 *PACKAGE* I 1 RETURNFLG I 0 FILE) Z@ 1HHHH`@hddi IIh@ Z`KJA K (85 \NCONC2 77 \NCONC2 72 IMPORTEVAL 56 READ 44 FFILEPOS 5 GET-ENVIRONMENT-AND-FILEMAP) (62 ENDEXPORTDEFFORM 33 BEGINEXPORTDEFSTRING 10 READER-ENVIRONMENT) () CHECKIMPORTS :D8 (P 6 DATE P 5 FULLFILENAME P 4 FILE I 1 NOASKFLG I 0 FILES) @aH#IbAlgo0@`dhHLi ]L g ^NMg jLMhJ KhZK&dIHhZH&Jhoi ghi@dL h(180 IMPORTFILE 153 ASKUSER 91 GETFILEINFO 76 GETPROP 66 ROOTFILENAME 57 FINDFILE) (158 N 86 ICREATIONDATE 71 IMPORTDATE 28 Y) ( 146 ((Y "es ") (N "o ")) 33 "load new exports from ") GATHEREXPORTSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 7 *PRINT-BASE* P 6 *READ-BASE* P 5 *READTABLE* P 4 *PACKAGE* P 0 ENV I 0 SI::*CLEANUP-FORMS* F 8 TOFILE F 9 SI::*RESETFORMS* F 10 *DEFAULT-MAKEFILE-ENVIRONMENT* F 11 FLG F 12 *OLD-INTERLISP-READ-ENVIRONMENT* F 13 FROMFILES) gWg chhdWcgW hhWcW1HhH WXdYIIIH oh i h oh h oh h oh h WZJg W JhJJKWi d (254 TERPRI 244 PRINT 236 IMPORTFILE 212 FULLNAME 205 TERPRI 200 PRINT 183 TERPRI 176 PRIN1 164 TERPRI 157 PRIN1 145 PRIN1 139 DATE 133 PRIN1 121 PRIN1 115 DIRECTORYNAME 108 PRIN1 97 PRINT-READER-ENVIRONMENT 66 \DO-DEFINE-FILE-INFO 42 OUTPUT 16 OPENSTREAM) (195 STOP 76 READER-ENVIRONMENT 35 OUTPUT 11 OUTPUT 4 CLOSE-AND-MAYBE-DELETE) ( 170 "(LISPXTERPRI T)" 151 "%" T)" 127 " ON " 102 "(LISPXPRIN1 %"EXPORTS GATHERED FROM ") GATHEREXPORTS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FLG I 1 TOFILE I 0 FROMFILES F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 GATHEREXPORTSA0001) (8 SI::RESETUNWIND) () \DUMPEXPORTS :D8 (P 0 TAIL I 0 COMS) Mo g `l @dH ` (74 TERPRI 69 PRINT 59 TERPRI 49 PRETTYCOM 36 PRIN1 31 SUBSTRING 19 PRIN2 9 PRIN1) (64 ENDEXPORTDEFFORM 24 BEGINEXPORTDEFSTRING 14 *) ( 4 "(") CLEARFILEPKG :D8 (P 3 FILE I 0 FLG F 4 *FILEMAP-HASH*) @g@dii7gi oi hdoo i @`qd[g !Kid oi i i2Kgh Kgh K `Kh hdIHhZH&Jh@diT h(230 CLRHASH 182 \NCONC2 168 SMASHFILECOMS 161 PUTPROP 148 PUTPROP 132 TERPRI 125 PRIN1 113 PRINT 102 GETPROP 78 UPDATEFILES 68 TERPRI 62 ASKUSER 44 PRIN1 32 TERPRI) (217 LOADEDFILELST 210 FILELST 174 SYSFILES 155 FILECHANGES 142 FILE 97 FILE 87 FILELST 21 Y 5 E) ( 119 " has changes, not wiped." 57 ((Y "es - everything" RETURN T) (N "o - just the filemaps" RETURN NIL) (E "verything" RETURN T) (F "ilemaps only" RETURN NIL)) 52 "are you sure you want to delete EVERYTHING ? " 38 "you can delete just the filemaps - ") (PRETTYCOMPRINT FILEPKGCOMS) (RPAQQ FILEPKGCOMS ((COMS (* ; "standard records for accessing file package type/command parts. Exported for PRETTY") (VARS FILEPKGTYPEPROPS) (EXPORT (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS * FILEPKGRECORDS))) (FNS SEARCHPRETTYTYPELST PRETTYDEFMACROS FILEPKGCOMPROPS) (INITRECORDS * FILEPKGRECORDS)) (DECLARE%: EVAL@COMPILE DOCOPY (* ;; "Proclaim SPECIAL those variables that are used freely in a lot of code.") ( P (CL:PROCLAIM (QUOTE (CL:SPECIAL PRETTYDEFMACROS PRETTYTYPELST FILEPKGTYPES PRETTYPRINTMACROS *DEFAULT-CLEANUP-COMPILER* MARKASCHANGEDFNS PRETTYFLG))) (CL:PROCLAIM (QUOTE (GLOBAL FILELST SYSFILES LOADEDFILELST NOTLISTEDFILES NOTCOMPILEDFILES MAKEFILEFORMS CLEANUPOPTIONS))))) (INITVARS ( MSDATABASELST)) (COMS (* ;; "making, adding, listing, compiling files") (FNS CLEANUP COMPILEFILES COMPILEFILES0 CONTINUEDIT MAKEFILE FILECHANGES FILEPKG.MERGECHANGES FILEPKG.CHANGEDFNS MAKEFILE1 COMPILE-FILE? MAKEFILES ADDFILE ADDFILE0 LISTFILES) (INITVARS (*DEFAULT-CLEANUP-COMPILER* (QUOTE CL:COMPILE-FILE)) (FILELST) (LOADEDFILELST) (NOTLISTEDFILES) (NOTCOMPILEDFILES) (MAKEFILEFORMS) ( NILCOMS)) (ADDVARS (MAKEFILEOPTIONS RC C LIST FAST CLISP CLISPIFY NIL REMAKE NEW NOCLISP CLISP% F ST STF (REC . RC) (BREC . RC) (TC . C) (BC . C) (TCOMPL . C) (BCOMPL . C))) (INITVARS (MAKEFILEREMAKEFLG T) (CLEANUPOPTIONS (QUOTE (RC))))) (COMS (* ;; "scanning file coms") (FNS FILEPKGCHANGES GETFILEPKGTYPE MARKASCHANGED FILECOMS WHEREIS SMASHFILECOMS FILEFNSLST FILECOMSLST UPDATEFILES INFILECOMS? INFILECOMTAIL INFILECOMS INFILECOM INFILECOMSVALS INFILECOMSVAL INFILECOMSPROP IFCPROPS IFCEXPRTYPE IFCPROPSCAN IFCDECLARE INFILEPAIRS INFILECOMSMACRO)) (COMS (* ;; "adding to a file") (FNS FILES? FILES?1 FILES?PRINTLST ADDTOFILES? ADDTOFILE WHATIS ADDTOCOMS ADDTOCOM ADDTOCOM1 ADDNEWCOM MAKENEWCOM DEFAULTMAKENEWCOM) (INITVARS (DEFAULTCOMHASFILEFLG)) (ADDVARS (MARKASCHANGEDFNS)) (FNS MERGEINSERT MERGEINSERT1) (INITVARS (ADDTOFILEKEYLST (BQUOTE ((%[ "" EXPLAINSTRING "[ -- prettyprint the item to terminal and then ask again" NOECHOFLG T) ((MKSTRING (CHARACTER ( CHARCODE "^J"))) "" EXPLAINSTRING "{line-feed} - same as previous response" NOECHOFLG T) (% " " EXPLAINSTRING "{space} - no action" NOECHOFLG T) (%] "Nowhere " EXPLAINSTRING "] - nowhere, item is marked as a dummy " NOECHOFLG T) (%( "List: (" EXPLAINSTRING "(list name)" NOECHOFLG T KEYLST (( "" CONFIRMFLG (%) %] % % ) RETURN (CDR ANSWER)))) (@ "Near: " EXPLAINSTRING "@ other-item -- put the item near the other item" NOECHOFLG T KEYLST (( "" CONFIRMFLG (% ) RETURN ANSWER))) (% "" RETURN (QUOTE % )) ("" "File name: " EXPLAINSTRING "a file name" KEYLST ())))) (LASTFILE))) (COMS (* ;; "deleting an item from a file") (FNS DELFROMFILES DELFROMCOMS DELFROMCOM DELFROMCOM1 REMOVEITEM MOVETOFILE) (P (MOVD? (QUOTE DELFROMFILES) (QUOTE DELFROMFILE) NIL T) (MOVD? (QUOTE MOVETOFILE) ( QUOTE MOVEITEM) NIL T)) (ADDVARS (SYSPROPS PROPTYPE VARTYPE))) (COMS (* ; "functions for doing things and marking them changed and auxiliary functions") (FNS SAVEPUT) ( DECLARE%: DONTEVAL@LOAD DOCOPY (P (OR (CHANGENAME (QUOTE PUTPROPS) (QUOTE PUTPROP) (QUOTE SAVEPUT)) ( CHANGENAME (QUOTE PUTPROPS) (QUOTE /PUT) (QUOTE SAVEPUT))))) (FNS UNMARKASCHANGED PREEDITFN POSTEDITPROPS POSTEDITALISTS) (ADDVARS (LISPXFNS (PUT . SAVEPUT) (PUTPROP . SAVEPUT)))) (COMS (* ; "sub-functions for file package commands & types") (FNS ALISTS.GETDEF ALISTS.WHENCHANGED CLEARCLISPARRAY EXPRESSIONS.WHENCHANGED MAKEALISTCOMS MAKEFILESCOMS MAKELISPXMACROSCOMS MAKEPROPSCOMS MAKEUSERMACROSCOMS PROPS.WHENCHANGED FILEGETDEF.LISPXMACROS FILEGETDEF.ALISTS FILEGETDEF.RECORDS FILEGETDEF.PROPS FILEGETDEF.MACROS FILEGETDEF.VARS FILEGETDEF.FNS FILEPKGCOMS.PUTDEF FILES.PUTDEF VARS.PUTDEF FILES.WHENCHANGED) (ADDVARS (MACROPROPS MACRO BYTEMACRO DMACRO) (SYSPROPS PROPTYPE)) (PROP PROPTYPE I.S.OPR SUBR LIST CODE FILEDATES FILE FILEMAP EXPR VALUE COPYRIGHT FILETYPE) (PROP VARTYPE BAKTRACELST BREAKMACROS COMPILETYPELST EDITMACROS ERRORTYPELST FONTDEFS LISPXHISTORYMACROS LISPXMACROS PRETTYDEFMACROS PRETTYEQUIVLST PRETTYPRINTMACROS PRETTYPRINTYPEMACROS USERMACROS)) (COMS (* ; "Define the commands below AFTER the various properties have been established.") (USERMACROS M)) (COMS (* ; "GETDEF methods") (FNS RENAME CHANGECALLERS) (FNS SHOWDEF COPYDEF GETDEF GETDEFCOM GETDEFCOM0 GETDEFCURRENT GETDEFERR GETDEFFROMFILE GETDEFSAVED PUTDEF EDITDEF DEFAULT.EDITDEF EDITDEF.FILES LOADDEF DWIMDEF DELDEF DELFROMLIST HASDEF GETFILEDEF SAVEDEF UNSAVEDEF COMPAREDEFS COMPARE TYPESOF) ( INITVARS (WHEREIS.HASH))) (* ; "Must come after PUTDEF") (COMS (FNS FIXEDITDATE EDITDATE?) (* ; "Edit date support for all kinds of definers (from PARC 6/10/92)") (VARS (EDITDATE-ARGLIST-DEFINERS ( QUOTE (FUNCTIONS TYPES))) (EDITDATE-NAME-DEFINERS (QUOTE (STRUCTURES VARIABLES)))) (GLOBALVARS EDITDATE-ARGLIST-DEFINERS EDITDATE-NAME-DEFINERS)) (COMS (* ;; "how to dump FILEPKGCOMS. The SPLST must be initialized to contain FILEPKGCOMS in order to get started." ) (FNS FILEPKGCOM FILEPKGTYPE) (PROP ARGNAMES FILEPKGCOM) (ADDVARS (FILEPKGCOMSPLST FILEPKGCOMS) ( FILEPKGTYPES FILEPKGCOMS)) (FILEPKGCOMS FILEPKGCOMS) (FILEPKGCOMS ALISTS DEFS EDITMACROS EXPRESSIONS FIELDS FILEPKGTYPES FILES FILEVARS FNS INITRECORDS INITVARS LISPXCOMS LISPXMACROS MACROS PRETTYDEFMACROS PROPS RECORDS OLDRECORDS SYSRECORDS USERMACROS VARS * CONSTANTS)) (ADDVARS ( SHADOW-TYPES (FUNCTIONS FNS) (VARIABLES VARS CONSTANTS))) (INITVARS (SAVEDDEFS)) (COMS (* ; "EDITCALLERS") (FNS FINDCALLERS EDITCALLERS EDITFROMFILE FINDATS LOOKIN) (FNS SEPRCASE) (INITVARS ( DEFAULTRENAMEMETHOD (QUOTE (EDITCALLERS CAREFUL)))) (INITVARS (SEPRCASEARRAYS) (CLISPCASEARRAYS)) (P ( MOVD? (QUOTE INFILEP) (QUOTE FINDFILE)) (* ; "or else from SPELLFILE")) (BLOCKS (EDITFROMFILE EDITFROMFILE LOOKIN (GLOBALVARS EDITLOADFNSFLG) (NOLINKFNS LOADFROM))) (GLOBALVARS SYSFILES CLISPCASEARRAYS SEPRCASEARRAYS CLISPCHARS)) (COMS (* ; "EXPORT") (FNS IMPORTFILE IMPORTEVAL IMPORTFILESCAN CHECKIMPORTS GATHEREXPORTS \DUMPEXPORTS) (FILEPKGCOMS EXPORT) (INITVARS ( BEGINEXPORTDEFSTRING "* %"FOLLOWING DEFINITIONS EXPORTED%")") (ENDEXPORTDEFFORM (QUOTE (* "END EXPORTED DEFINITIONS")))) (GLOBALVARS BEGINEXPORTDEFSTRING ENDEXPORTDEFFORM)) (COMS (* ; "for GAINSPACE") (FNS CLEARFILEPKG) (ADDVARS (GAINSPACEFORMS (FILELST "erase filepkg information" ( CLEARFILEPKG RESPONSE) ((Y "es") (N "o") (E . "verything") (F "ilemaps only "))))) (GLOBALVARS SMASHPROPSLST1)) (GLOBALVARS %#UNDOSAVES ADDTOFILEKEYLST CLEANUPOPTIONS CLISPIFYPRETTYFLG COMPILE.EXT DECLARETAGSLST DEFAULTRENAMEMETHOD FILEPKGCOMSPLST FILERDTBL HISTORYCOMS HISTSTR0 I.S.OPRLST LISPXCOMS LISPXHISTORY LISPXHISTORYMACROS LISPXMACROS MACROPROPS MAKEFILEOPTIONS MAKEFILEREMAKEFLG MSDATABASELST PRETTYHEADER PRETTYTRANFLG SAVEDDEFS SYSPROPS USERMACROS USERRECLST USERWORDS FILEPKGTYPEPROPS) (BLOCKS (DELFROMCOMS DELFROMCOMS DELFROMCOM DELFROMCOM1 REMOVEITEM ( NOLINKFNS . T) (SPECVARS COMSNAME)) (ADDTOFILEBLOCK ADDTOFILES? ADDTOFILE WHATIS ADDTOCOMS ADDTOCOM ADDTOCOM1 ADDNEWCOM (NOLINKFNS . T) (SPECVARS COMSNAME) (ENTRIES ADDTOFILE ADDTOCOMS ADDTOFILES? ADDTOCOM1)) (INFILECOMS? INFILECOMS? INFILECOMTAIL INFILECOMS INFILECOM INFILECOMSVAL INFILECOMSVALS INFILEPAIRS INFILECOMSMACRO IFCPROPS IFCEXPRTYPE IFCPROPSCAN IFCDECLARE (LOCALFREEVARS NAME LITERALS VAL TYPE ONFILETYPE ORIGFLG) INFILECOMSPROP) (NIL MAKEFILE (LOCALVARS . T) (SPECVARS FILE OPTIONS REPRINTFNS SOURCEFILE FILETYPE FILEDATES CHANGES)) (ADDFILE ADDFILE ADDFILE0) (FILEPKGCHANGES FILEPKGCHANGES (NOLINKFNS . T)) (NIL ALISTS.WHENCHANGED CHANGECALLERS CLEANUP CLEARCLISPARRAY COMPARE COMPAREDEFS COMPILEFILES COMPILEFILES0 CONTINUEDIT COPYDEF DEFAULTMAKENEWCOM DELFROMFILES EDITDEF EXPRESSIONS.WHENCHANGED FILECOMS FILECOMSLST FILEFNSLST FILEPKGCOM FILEPKGCOMPROPS FILEPKGTYPE FILES? FILES?1 GETFILEPKGTYPE HASDEF INFILECOMTAIL LOADDEF MAKEALISTCOMS MAKEFILE1 MAKEFILES MAKEFILESCOMS MAKELISPXMACROSCOMS MAKENEWCOM MAKEPROPSCOMS MAKEUSERMACROSCOMS MARKASCHANGED MOVETOFILE POSTEDITPROPS PREEDITFN PRETTYDEFMACROS PROPS.WHENCHANGED PUTDEF RENAME SAVEDEF SAVEPUT SEARCHPRETTYTYPELST SHOWDEF SMASHFILECOMS TYPESOF UNMARKASCHANGED UNSAVEDEF UPDATEFILES (GLOBALVARS %#UNDOSAVES SYSFILES MARKASCHANGEDSTATS COMPILE.EXT EDITMACROS EDITLOADFNSFLG LOADOPTIONS) (LOCALVARS . T)) (DELDEF DELDEF DELFROMLIST (NOLINKFNS . T)) (GETDEF GETDEF DWIMDEF GETDEFCOM GETDEFCOM0 GETDEFERR GETDEFCURRENT GETDEFFROMFILE GETDEFSAVED (RETFNS GETDEFCOM) (NOLINKFNS . T) (GLOBALVARS NOT-FOUNDTAG))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA \DUMPEXPORTS MAKEUSERMACROSCOMS MAKEPROPSCOMS MAKELISPXMACROSCOMS MAKEFILESCOMS MAKEALISTCOMS LISTFILES COMPILEFILES CLEANUP FILEPKGCOMPROPS PRETTYDEFMACROS) (NLAML) (LAMA FILEPKGTYPE FILEPKGCOM FILEPKGCHANGES))))) (RPAQQ FILEPKGTYPEPROPS (NEWCOM WHENFILED WHENUNFILED GETDEF NULLDEF DELDEF PUTDEF WHENCHANGED HASDEF EDITDEF CANFILEDEF FILEGETDEF)) (RPAQQ FILEPKGRECORDS (FILEPKGCOM FILEPKGTYPE FILE FILEDATEPAIR FILEPROP)) (FILEPKGCOMPROPS ADDTOPRETTYCOM DELFROMPRETTYCOM PRETTYTYPE FILEPKGCONTENTS) (PROGN (SETQ SYSPROPS (UNION FILEPKGTYPEPROPS SYSPROPS)) (MAPC FILEPKGTYPEPROPS (FUNCTION (LAMBDA (X) (PUT X (QUOTE PROPTYPE) (QUOTE FILEPKGCOMS)))))) (ADDTOVAR PRETTYTYPELST) (CL:PROCLAIM (QUOTE (CL:SPECIAL PRETTYDEFMACROS PRETTYTYPELST FILEPKGTYPES PRETTYPRINTMACROS *DEFAULT-CLEANUP-COMPILER* MARKASCHANGEDFNS PRETTYFLG))) (CL:PROCLAIM (QUOTE (GLOBAL FILELST SYSFILES LOADEDFILELST NOTLISTEDFILES NOTCOMPILEDFILES MAKEFILEFORMS CLEANUPOPTIONS))) (RPAQ? MSDATABASELST) (RPAQ? *DEFAULT-CLEANUP-COMPILER* (QUOTE CL:COMPILE-FILE)) (RPAQ? FILELST) (RPAQ? LOADEDFILELST) (RPAQ? NOTLISTEDFILES) (RPAQ? NOTCOMPILEDFILES) (RPAQ? MAKEFILEFORMS) (RPAQ? NILCOMS) (ADDTOVAR MAKEFILEOPTIONS RC C LIST FAST CLISP CLISPIFY NIL REMAKE NEW NOCLISP CLISP% F ST STF (REC . RC) (BREC . RC) (TC . C) (BC . C) (TCOMPL . C) (BCOMPL . C)) (RPAQ? MAKEFILEREMAKEFLG T) (RPAQ? CLEANUPOPTIONS (QUOTE (RC))) (RPAQ? DEFAULTCOMHASFILEFLG) (ADDTOVAR MARKASCHANGEDFNS) (RPAQ? ADDTOFILEKEYLST (BQUOTE ((%[ "" EXPLAINSTRING "[ -- prettyprint the item to terminal and then ask again" NOECHOFLG T) ((MKSTRING (CHARACTER ( CHARCODE "^J"))) "" EXPLAINSTRING "{line-feed} - same as previous response" NOECHOFLG T) (% " " EXPLAINSTRING "{space} - no action" NOECHOFLG T) (%] "Nowhere " EXPLAINSTRING "] - nowhere, item is marked as a dummy " NOECHOFLG T) (%( "List: (" EXPLAINSTRING "(list name)" NOECHOFLG T KEYLST (( "" CONFIRMFLG (%) %] % % ) RETURN (CDR ANSWER)))) (@ "Near: " EXPLAINSTRING "@ other-item -- put the item near the other item" NOECHOFLG T KEYLST (( "" CONFIRMFLG (% ) RETURN ANSWER))) (% "" RETURN (QUOTE % )) ("" "File name: " EXPLAINSTRING "a file name" KEYLST ())))) (RPAQ? LASTFILE) (MOVD? (QUOTE DELFROMFILES) (QUOTE DELFROMFILE) NIL T) (MOVD? (QUOTE MOVETOFILE) (QUOTE MOVEITEM) NIL T) (ADDTOVAR SYSPROPS PROPTYPE VARTYPE) (OR (CHANGENAME (QUOTE PUTPROPS) (QUOTE PUTPROP) (QUOTE SAVEPUT)) (CHANGENAME (QUOTE PUTPROPS) (QUOTE /PUT) (QUOTE SAVEPUT))) (ADDTOVAR LISPXFNS (PUT . SAVEPUT) (PUTPROP . SAVEPUT)) (ADDTOVAR MACROPROPS MACRO BYTEMACRO DMACRO) (ADDTOVAR SYSPROPS PROPTYPE) (PUTPROPS I.S.OPR PROPTYPE I.S.OPRS) (PUTPROPS SUBR PROPTYPE IGNORE) (PUTPROPS LIST PROPTYPE IGNORE) (PUTPROPS CODE PROPTYPE IGNORE) (PUTPROPS FILEDATES PROPTYPE IGNORE) (PUTPROPS FILE PROPTYPE IGNORE) (PUTPROPS FILEMAP PROPTYPE IGNORE) (PUTPROPS EXPR PROPTYPE FNS) (PUTPROPS VALUE PROPTYPE VARS) (PUTPROPS COPYRIGHT PROPTYPE FILES) (PUTPROPS FILETYPE PROPTYPE FILES) (PUTPROPS BAKTRACELST VARTYPE ALIST) (PUTPROPS BREAKMACROS VARTYPE ALIST) (PUTPROPS COMPILETYPELST VARTYPE ALIST) (PUTPROPS EDITMACROS VARTYPE (ALIST USERMACROS)) (PUTPROPS ERRORTYPELST VARTYPE ALIST) (PUTPROPS FONTDEFS VARTYPE ALIST) (PUTPROPS LISPXHISTORYMACROS VARTYPE (ALIST LISPXMACROS)) (PUTPROPS LISPXMACROS VARTYPE (ALIST LISPXMACROS)) (PUTPROPS PRETTYDEFMACROS VARTYPE (ALIST FILEPKGCOMS)) (PUTPROPS PRETTYEQUIVLST VARTYPE ALIST) (PUTPROPS PRETTYPRINTMACROS VARTYPE ALIST) (PUTPROPS PRETTYPRINTYPEMACROS VARTYPE ALIST) (PUTPROPS USERMACROS VARTYPE (ALIST USERMACROS)) (ADDTOVAR USERMACROS (M (X . Y) (E (MARKASCHANGED (COND ((LISTP (QUOTE X)) (CAR (QUOTE X))) (T (QUOTE X))) (QUOTE USERMACROS)) T) (ORIGINAL (M X . Y))) (M NIL (MAKE FILE FILE))) (ADDTOVAR EDITMACROS (M (X . Y) (E (MARKASCHANGED (COND ((LISTP (QUOTE X)) (CAR (QUOTE X))) (T (QUOTE X))) (QUOTE USERMACROS)) T) (ORIGINAL (M X . Y)))) (ADDTOVAR EDITCOMSA M) (ADDTOVAR EDITCOMSL M) (RPAQ? WHEREIS.HASH) (RPAQQ EDITDATE-ARGLIST-DEFINERS (FUNCTIONS TYPES)) (RPAQQ EDITDATE-NAME-DEFINERS (STRUCTURES VARIABLES)) (PUTPROPS FILEPKGCOM ARGNAMES (COMMANDNAME (KEYWORDS%: MACRO ADD DELETE CONTENTS))) (ADDTOVAR FILEPKGCOMSPLST FILEPKGCOMS) (ADDTOVAR FILEPKGTYPES FILEPKGCOMS) (PUTDEF (QUOTE FILEPKGCOMS) (QUOTE FILEPKGCOMS) (QUOTE ((COM CONTENTS (LAMBDA (COM NAME TYPE) (* Revert to NILL when no longer coercing PRETTYDEFMACROS to FILEPKGCOMS) (AND (EQ TYPE (QUOTE FILEPKGCOMS)) (INFILECOMTAIL COM)))) (TYPE DESCRIPTION "file package commands/types" GETDEF T PUTDEF FILEPKGCOMS.PUTDEF)))) (PUTDEF (QUOTE ALISTS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (COMS * (MAKEALISTCOMS . X)))) (TYPE DESCRIPTION "alist entries" GETDEF ALISTS.GETDEF WHENCHANGED (ALISTS.WHENCHANGED))))) (PUTDEF (QUOTE DEFS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (COMS . X)))))) (PUTDEF (QUOTE EDITMACROS) (QUOTE FILEPKGCOMS) (QUOTE ((TYPE TYPE USERMACROS)))) (PUTDEF (QUOTE EXPRESSIONS) (QUOTE FILEPKGCOMS) (QUOTE ((TYPE DESCRIPTION "expressions" WHENCHANGED ( EXPRESSIONS.WHENCHANGED) EDITDEF NILL)))) (PUTDEF (QUOTE FIELDS) (QUOTE FILEPKGCOMS) (QUOTE ((TYPE EDITDEF NILL)))) (PUTDEF (QUOTE FILEPKGTYPES) (QUOTE FILEPKGCOMS) (QUOTE ((COM COM FILEPKGCOMS) (TYPE TYPE FILEPKGCOMS) ))) (PUTDEF (QUOTE FILES) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (P * (CONS (MAKEFILESCOMS . X)))) CONTENTS (LAMBDA (COM NAME TYPE) (AND (EQ TYPE (QUOTE FILES)) (SUBSET (INFILECOMTAIL COM) (FUNCTION LITATOM))))) (TYPE PUTDEF FILES.PUTDEF WHENCHANGED (FILES.WHENCHANGED) EDITDEF EDITDEF.FILES)))) (PUTDEF (QUOTE FILEVARS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (VARS . X))) (TYPE NULLDEF NOBIND EDITDEF NILL)))) (PUTDEF (QUOTE FNS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (MAPC (QUOTE X) (FUNCTION (LAMBDA (FN ) (AND (GETPROP FN (QUOTE FUNCTIONS)) (CL:WARN "~A has a FUNCTIONS definition" FN)))))) (ORIGINAL (FNS . X))) CONTENTS NILL) (TYPE DESCRIPTION "functions" PUTDEF FNS.PUTDEF CANFILEDEF T)))) (PUTDEF (QUOTE INITRECORDS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (P * (RECORDALLOCATIONS . X))) CONTENTS (LAMBDA (COM NAME TYPE ONFILETYPE) (AND (NULL ONFILETYPE) (EQ TYPE (QUOTE RECORDS)) ( INFILECOMTAIL COM))))))) (PUTDEF (QUOTE INITVARS) (QUOTE FILEPKGCOMS) (QUOTE ((COM COM T)))) (PUTDEF (QUOTE LISPXCOMS) (QUOTE FILEPKGCOMS) (QUOTE ((TYPE TYPE LISPXMACROS)))) (PUTDEF (QUOTE LISPXMACROS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (COMS * (MAKELISPXMACROSCOMS . X ))) CONTENTS NILL) (TYPE DESCRIPTION "LISPX commands")))) (PUTDEF (QUOTE MACROS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (DECLARE%: EVAL@COMPILE (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (Y) (LET ((FNDEF (GETDEF Y (QUOTE FUNCTIONS) (QUOTE CURRENT) (QUOTE ( NOCOPY NOERROR)))) (MACDEF (GETDEF Y (QUOTE MACROS) (QUOTE CURRENT) (QUOTE (NOCOPY NOERROR))))) (COND ((AND FNDEF (EQ (CAR FNDEF) (QUOTE DEFMACRO))) (CL:WARN "Need to change MACROS to FUNCTIONS for writing out Common Lisp macro ~S." FNDEF) (LIST (QUOTE PROGN) FNDEF MACDEF)) (T (OR MACDEF (CL:CERROR "Go ahead and finish writing out the file." "No MACROS definition for ~A." Y) (GETDEF Y (QUOTE MACROS) (QUOTE CURRENT)))))))))))) CONTENTS NILL) ( TYPE DESCRIPTION "Interlisp macros" GETDEF MACROS.GETDEF WHENCHANGED (CLEARCLISPARRAY))))) (PUTDEF (QUOTE PRETTYDEFMACROS) (QUOTE FILEPKGCOMS) (QUOTE ((COM COM FILEPKGCOMS)))) (PUTDEF (QUOTE PROPS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (COMS * (MAKEPROPSCOMS . X)))) (TYPE DESCRIPTION "property lists" WHENCHANGED (PROPS.WHENCHANGED))))) (PUTDEF (QUOTE RECORDS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (MAPC (QUOTE X) (FUNCTION (LAMBDA (RECORD) (AND (GETPROP RECORD (QUOTE STRUCTURES)) (CL:WARN "~A has a STRUCTURES definition" RECORD))) ))) (E (RECORDECLARATIONS . X)) (INITRECORDS . X)) CONTENTS (LAMBDA (COM NAME TYPE ONFILETYPE) (AND ( EQ TYPE (QUOTE FIELDS)) (NULL ONFILETYPE) (MAPCONC (INFILECOMTAIL COM) (FUNCTION (LAMBDA (X) (APPEND ( RECORDFIELDNAMES X)))))))) (TYPE DESCRIPTION "records" DELDEF (LAMBDA (X) (/SETTOPVAL (QUOTE USERRECLST) (REMOVE (RECLOOK X) USERRECLST))))))) (PUTDEF (QUOTE OLDRECORDS) (QUOTE FILEPKGCOMS) (QUOTE ((COM COM T)))) (PUTDEF (QUOTE SYSRECORDS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (SAVEONSYSRECLST . X))) CONTENTS (LAMBDA (COM NAME TYPE ONFILETYPE) (AND (NULL ONFILETYPE) (EQ TYPE (QUOTE RECORDS)) ( INFILECOMTAIL COM))))))) (PUTDEF (QUOTE USERMACROS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (COMS * (MAKEUSERMACROSCOMS . X)) ) CONTENTS NILL) (TYPE DESCRIPTION "edit macros")))) (PUTDEF (QUOTE VARS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (MAPC (QUOTE X) (FUNCTION (LAMBDA ( VAR) (AND (GETPROP VAR (QUOTE VARIABLES)) (CL:WARN "~A also has a VARIABLES definition" VAR)))))) ( ORIGINAL (VARS . X))) CONTENTS NILL) (TYPE DESCRIPTION "variables" NULLDEF NOBIND PUTDEF VARS.PUTDEF)) )) (PUTDEF (QUOTE *) (QUOTE FILEPKGCOMS) (QUOTE ((COM CONTENTS NILL)))) (PUTDEF (QUOTE CONSTANTS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (DECLARE%: EVAL@COMPILE (VARS . X) (P (CONSTANTS . X)))))))) (ADDTOVAR SHADOW-TYPES (FUNCTIONS FNS) (VARIABLES VARS CONSTANTS)) (RPAQ? SAVEDDEFS) (RPAQ? DEFAULTRENAMEMETHOD (QUOTE (EDITCALLERS CAREFUL))) (RPAQ? SEPRCASEARRAYS) (RPAQ? CLISPCASEARRAYS) (MOVD? (QUOTE INFILEP) (QUOTE FINDFILE)) (PUTDEF (QUOTE EXPORT) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (\DUMPEXPORTS . X))))))) (RPAQ? BEGINEXPORTDEFSTRING "* %"FOLLOWING DEFINITIONS EXPORTED%")") (RPAQ? ENDEXPORTDEFFORM (QUOTE (* "END EXPORTED DEFINITIONS"))) (ADDTOVAR GAINSPACEFORMS (FILELST "erase filepkg information" (CLEARFILEPKG RESPONSE) ((Y "es") (N "o" ) (E . "verything") (F "ilemaps only ")))) (PUTPROPS FILEPKG COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993)) NIL