(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "26-Jan-98 13:53:32" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>sources>UNDO.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "17-May-90 16:09:40" {DSK}local>lde>lispcore>sources>UNDO.;2 40846 changes to%: ( VARS UNDOCOMS) previous date%: " 8-Jan-88 13:04:47" {DSK}local>lde>lispcore>sources>UNDO.;1) UNSET :D8 (P 1 TEM P 0 X I 0 NAME) V g@X)`3@lF` Y#gIbX@Hig @o@ (83 ERROR 70 SAVESET 36 MISSPELLED?) (65 NOPRINT 44 VALUE 31 SPELLINGS3 21 DWIMFLG 7 VALUE) ( 77 "no value saved:") RPLNODE :D8 (I 2 D I 1 A I 0 X) @l@h @A@dB(14 ERRORX) NIL () RPLNODE2 :D8 (I 1 Y I 0 X) #A@AAHIdJlAh (32 ERRORX) NIL () /LISPXPUT :D8 (P 0 Y I 3 LST I 2 ADDFLG I 1 L I 0 PROP) 7C`b@CXC@Ah ABdA A (51 /RPLACA 44 /NCONC 32 /NCONC) (9 LISPXHISTORY) () /PUT-1 :D8 (P 1 X0 P 0 X I 1 PROP I 0 ATM) >@HdA)g@IAh I @AhAYX(32 UNDOSAVE) (19 /PUT+1) () /PUT+1 :D8 (P 0 X I 2 PROP I 1 TAIL I 0 ATM F 1 LISPXHIST) I@Qg@BhQ AHdABHHBhXB@@Bh(27 UNDOSAVE) (15 /PUT-1) () UNDONLSETQA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 UNDOFORM F 1 UNDOFN F 2 UNDOTEM) hPhQ ch(13 ERRORSET) (5 %#UNDOSAVES) () UNDONLSETQ :D8 (P 4 SI::*RESETFORMS* P 3 UNDOTEM P 2 UNDOSIDE P 1 UNDOSIDE0 P 0 LISPXHIST I 1 UNDOFN I 0 UNDOFORM F 5 LISPXHIST) U1gH ZdYjhHQgJhXg`hg $Ig!Hgg gJ K JI h(142 UNDONLSETQ1 129 UNDOSAVE 122 LISTPUT1 109 LISTPUT1 79 SI::RESETUNWIND 74 \MVLIST 69 UNDONLSETQA0001 14 MEMB) (116 SIDE 104 NOSAVE 99 SIDE 90 NOSAVE 64 SI::RESETUNWIND 53 %#UNDOSAVES 48 %#UNDOSAVES 37 SIDE 8 SIDE) () UNDONLSETQ1 :D8 (P 2 TEM P 1 LISPXHIST P 0 LST1 I 1 TAIL I 0 LST) N@Ah@!HA@A@ohHZJdJJJJ ` HX(70 LISPXWATCH 59 APPLY) (65 UNDOSTATS) ( 24 (QUOTE undonlsetq)) RESETUNDO :D8 (P 1 UNDOSIDE0 P 0 UNDOSIDE I 1 STOPFLG I 0 X F 2 LISPXHIST) @@@CgR XmhRgHhcHIHHmgH AHd @d@d@Hdmd HI I (130 UNDONLSETQ1 123 UNDONLSETQ1 113 FLENGTH 85 FLENGTH 72 LISTPUT1 20 MEMB) (66 SIDE 39 SIDE 14 SIDE) () UNDOPRINT :D8 (I 1 EVENT I 0 X) @ddid (16 PRIN2) NIL () RPAQ :D8 (L (1 RPAQY 0 RPAQX)) @Ag i (17 SAVESET 11 EVAL) (6 INTERNAL) () RPAQQ :D8 (L (1 Y 0 X)) @Ai (7 SAVESET) NIL () SAVESET :D8 (L (3 FLG 2 TOPFLG 1 VALUE 0 NAME) F 4 LISPXHIST F 5 DFNFLG F 6 ADDSPELLFLG F 7 UNDOSIDE0) @dd3@@l Adl iAdiwl k@B@ X@ @ H3Ug'Ig@gA V)@i HTCgCggbgT d[KgK@KHhHCguCgjW gbVIAn i?Ui-IgZ#Cgo@ @gI @gJ V@i H"@A CgH 1gH@A TCggh@IhT A(421 UNDOSAVE 389 SETTOPVAL 372 RELSTK 357 SET 346 ADDSPELL 336 MARKASCHANGED 323 /PUT 310 EXEC-FORMAT 272 EQUALN 251 TAILP 179 MEMB 134 ADDSPELL 121 /PUT 87 GETTOPVAL 80 \EVALV1 72 STKSCAN 57 \LISPERROR 34 \LISPERROR 15 \LISPERROR) (407 UNDOSET 399 NOUNDO 379 UNDOSET 364 NOUNDO 330 VARS 317 VALUE 297 NOPRINT 287 NOBIND 258 NOUNDO 238 NOSAVE 229 NOPROPSAVE 196 UNDOSET 173 SIDE 163 NOUNDO 156 NOUNDO 148 NOSTACKUNDO 115 VALUE 106 NOBIND 97 ALLPROP) ( 304 "(~S reset)~%%") UNDOSET :D8 (P 0 TEM I 2 VALUE I 1 NAME I 0 PTR F 1 LISPXHIST) ]@'QghAd hQ AB iA@ X(Qg@AH@ hQ A@B i(89 SETSTKARG 80 UNDOSAVE 69 STKARG 49 FRAMESCAN 40 SETTOPVAL 32 UNDOSAVE 21 GETTOPVAL) (60 UNDOSET 13 UNDOSET) () NEW/FN :D8 (P 0 FN1 I 0 FN) V@ l/@`  @g@ b`@ `H@ @(77 /NCONC1 59 /NCONC1 45 PACK* 30 PACK 24 DUNPACK 8 CHCON1) (82 LISPXFNS 69 LISPXFNS 64 /FNS 53 /FNS 39 / 19 CHCONLST) () UNDOSAVE :D8 (L (1 HISTENTRY 0 UNDOFORM) F 2 LISPXHIST) ARb ` gAXdAgk@hh hgHYmg@Ikع`ZIj`j`ل`Aj`,`.`g`oh gHghmHXI@ H@Hh(161 ASKUSER 57 \NCONC2 23 LISPXWATCH) (174 NOSAVE 166 Y 148 %#UNDOSAVES 143 N 138 DWIMWAIT 131 DWIMFLG 123 %#UNDOSAVES 114 %#UNDOSAVES 107 %#UNDOSAVES 99 %#UNDOSAVES 90 %#UNDOSAVES 65 NOSAVE 44 SIDE 29 SIDE 18 UNDOSAVES) ( 153 "undosaves, continue saving") UNDOLISPX :D8 (L (0 LINE) P 0 UNDONEFLG) s g@Y@I bIY@'`@gi dhI H`diI HXhHIooi h(111 PRIN1 78 UNDOLISPX1 52 UNDOLISPX1 42 LISPXFIND 17 LDIFF) (67 LISPXHISTORY 36 ENTRIES 30 LISPXHISTORY 7 %:) ( 105 "nothing saved. " 99 "not found. ") UNDOLISPX1 :D8 (L (2 DWIMCHANGES 1 FLG 0 EVENT)) r A@g@dgh@hB XdhgAHg@@YgIi BI@ Yhoi I(110 PRIN1 95 UNDOPRINT 81 PRIN1 37 UNDOLISPX2) (72 already 60 *HISTORY* 48 already 24 undo 13 UNDO) ( 104 " undone. ") UNDOLISPX2 :D8 (L (2 DWIMCHANGES 1 FORGETFLG 0 X)) PAod@YIhg@XqAHhjHXhagXBHEd@K JJ=d\LLL LL ` hH iZg@J dAB J(179 UNDOLISPX2 169 REVERSE 148 /ATTACH 136 LISPXWATCH 125 APPLY 115 /RPLNODE 80 \UNDOLISPXBLOCK/UNDOLISPX3) (156 *GROUP* 131 UNDOSTATS 62 already 31 SIDE) ( 10 (ENTERED EDITHIST EDIT)) \UNDOLISPXBLOCK/UNDOLISPX3A0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 L F 3 COMS F 4 SI::NLSETQ-VALUE) i@RS chcg(11 EDITL) (22 :NORMAL) () \UNDOLISPXBLOCK/UNDOLISPX3A0001 :D8 (NAME SI::*UNWIND-PROTECT* P 9 *CONDITION-HANDLER-BINDINGS* P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE P 1 L P 0 COMS I 0 SI::*CLEANUP-FORMS* F 10 DWIMCHANGE F 11 EVENT F 12 LISPXHIST F 13 *PROCEED-CASES* F 14 *CONDITION-HANDLER-BINDINGS*) / inggWihkoghQgW dhY`WioW O gN`IZIJ JIJ][MKdLIoL JN]MdMM M ` K[gKhiW K K[Joi i(299 LISPXPRIN1 278 LISPXREPRINT 270 LISPXPUT 247 LISPXWATCH 236 APPLY 227 /RPLNODE 197 /RPLNODE 156 TAILP 112 \UNDOLISPXBLOCK/UNDOLISPX3A0001A0002 66 MEMB) (258 *LISPXPRINT* 242 UNDOSTATS 134 CLISPTRANFLG 118 :NORMAL 90 SI::NLSETQ-PROCEED-CASE 59 *LISPXPRINT* 46 UP 28 F 23 CLISPTRANFLG 18 CLISP% 13 MAXLEVEL 5 EDITQUIETFLG) ( 293 " undone. " 191 (QUOTE PATCHED) 99 (CL:ERROR . SI::NLSETQHANDLER) 41 (BELOW ^)) \UNDOLISPXBLOCK/UNDOLISPX3 :D8 (P 0 SI::*RESETFORMS* I 1 DWIMCHANGE I 0 EVENT) Bg`g`g`hg $(59 SI::RESETUNWIND 54 \MVLIST 49 \UNDOLISPXBLOCK/UNDOLISPX3A0001) (44 SI::RESETUNWIND 31 CLISPTRANFLG 26 CLISPTRANFLG 20 MAXLEVEL 15 MAXLEVEL 9 EDITQUIETFLG 4 EDITQUIETFLG) () /ADDPROP :D8 (P 2 TEM P 1 X0 P 0 X I 3 FLG I 2 NEW I 1 PROP I 0 ATM F 3 LISPXHIST) @ lABhd3@l@h @!H-HVISABhbhSg@JhS IJB*HdACBHHB b BYXABhb@Sg@JhS @JB(160 UNDOSAVE 118 /RPLACA 111 /NCONC1 75 UNDOSAVE 26 ERRORX) (148 /PUT-1 63 /PUT-1) () /ATTACH :D8 (I 1 LST I 0 X) "Ad@AA @hlAh (31 ERRORX 14 /RPLNODE) NIL () /CONTROL :D8 (I 1 TTBL I 0 FLG F 0 LISPXHIST) @A bPg@AhP @(28 UNDOSAVE 6 CONTROL) (16 /CONTROL) () /DELETECONTROL :D8 (I 2 TTBL I 1 MESSAGE I 0 TYPE F 0 LISPXHIST) 3B bP Ag@dhB BhP @AB (48 DELETECONTROL 39 UNDOSAVE 27 DELETECONTROL 5 GETTERMTABLE) (18 /DELETECONTROL) () /DREMOVE :D8 (P 0 Z I 1 Y I 0 X) BAh@AAAdA AXAH@AAd Ab(56 /RPLACD 26 /RPLNODE) NIL () /DREVERSE :D8 (P 1 Z P 0 Y I 0 X)  @XIbHI (20 /RPLACD) NIL () /DSUBST :D8 (P 0 B I 2 EXPR I 1 OLD I 0 NEW) WABX@ BCAd3@ABABB@ @AB ABbBB@ H(83 /RPLACD 78 COPY 56 /DSUBST 46 /RPLACA 41 COPY 13 COPY) NIL () /ECHOCONTROL :D8 (I 2 TTBL I 1 MODE I 0 CHAR F 0 LISPXHIST) 3B bP Ag@dhB BhP @AB (48 ECHOCONTROL 39 UNDOSAVE 27 ECHOCONTROL 5 GETTERMTABLE) (18 /ECHOCONTROL) () /ECHOMODE :D8 (I 1 TTBL I 0 FLG F 0 LISPXHIST) @A bPg@AhP @(28 UNDOSAVE 6 ECHOMODE) (16 /ECHOMODE) () /LCONC :D8 (P 0 XX I 1 X I 0 PTR) JA@d XA@AH@oH h@dAH A @H (71 /RPLACD 64 /RPLACD 56 /RPLNODE 43 ERROR 16 LAST) NIL ( 37 "bad argument - LCONC") /LISTPUT :D8 (P 1 X0 P 0 X I 2 VAL I 1 PROP I 0 LST) Q@ l@h Hd@AB@@ BAHB BHYXdճIABh B(77 /RPLACD 52 /RPLACA 38 /RPLNODE 14 ERRORX) NIL () /LISTPUT1 :D8 (P 0 X I 2 VAL I 1 PROP I 0 LST) 4@H@ABh HdAdB Bh @X(44 /RPLACD 35 /RPLACA 17 /NCONC) NIL () /MAPCON :D8 (P 2 MAPY P 1 MAPE P 0 CL:MAPL I 2 MAPFN2 I 1 MAPFN1 I 0 MAPX) 60@H@kAZIJYXIZ B@kBYJ @b(44 /RPLACD) NIL () /MAPCONC :D8 (P 2 MAPY P 1 MAPE P 0 CL:MAPL I 2 MAPFN2 I 1 MAPFN1 I 0 MAPX) 70@H@kAZIJYXIZ B@kBYJ @b(45 /RPLACD) NIL () /MOVD :D8 (P 0 NEWFLG I 2 FLG I 1 TO I 0 FROM F 1 ADDSPELLFLG) oA h@ %oid @id oid AB@ @ A AgH QA A(107 ADDSPELL 98 MARKASCHANGED 85 EXPRP 79 /PUTD 74 GETD 67 COPY 62 VIRGINFN 52 LISPXPRIN1 39 LISPXPRIN2 30 LISPXPRIN1 16 \DEFINEDP 5 GETD) (92 FNS) ( 45 " has no definition " 23 "****note: ") /NCONC :D8 (P 4 TEM P 3 X P 2 VAL P 1 N P 0 L) -ej1IdHJkYaKL[ [L (40 /RPLACD 33 LAST) NIL () /NCONC1 :D8 (I 1 X I 0 LST) @Ah (8 /NCONC) NIL () /PRINTLEVEL :D8 (P 0 RESULT I 1 CDRVAL I 0 CARVAL) @A gHh H(23 UNDOSAVE 6 PRINTLEVEL) (14 /PRINTLEVEL) () /PUT :D8 (P 2 TEM P 1 X0 P 0 X I 2 VAL I 1 PROP I 0 ATM F 3 LISPXHIST) @ l@Ahd3@l@h @!H)H?IAg5Ag,Ag#AgAgAgAgB BB b@B Xg@HBhR @AB Yd3gI@B BhR I@AB (180 SETSYNTAX 170 UNDOSAVE 158 GETSYNTAX 138 SETSYNTAX 130 UNDOSAVE 110 GETSYNTAX 100 GETREADTABLE 91 GETTERMTABLE) (150 /SETSYNTAX 116 /SETSYNTAX 83 NONE 75 EOL 67 CNTRLV 58 CTRLV 49 RETYPE 40 DELETELINE 31 LINEDELETE 22 DELETECHAR 13 CHARDELETE) () /SETATOMVAL :D8 (I 1 VAL I 0 ATM F 0 LISPXHIST) \@AJlAh iAi5lAh @d3@#Pg@d h @A l@h (89 ERRORX 77 SETTOPVAL 69 UNDOSAVE 60 GETTOPVAL 37 ERRORX 16 ERRORX) (53 /SETATOMVAL) () /SETTOPVAL :D8 (I 1 VAL I 0 ATM F 0 LISPXHIST) \@AJlAh iAi5lAh @d3@#Pg@d h @A l@h (89 ERRORX 77 SETTOPVAL 69 UNDOSAVE 60 GETTOPVAL 37 ERRORX 16 ERRORX) (53 /SETTOPVAL) () /TCONC :D8 (P 0 XX I 1 X I 0 PTR) <@Ahdo@ @AhXd @dAh  (57 /RPLACD 51 /RPLACD 39 /RPLNODE 25 ERROR) NIL ( 19 "bad argument - TCONC") SAVESETQ :D8 (I 0 SETQX) @g@g (23 SAVESET 18 APPLY) (13 INTERNAL 6 PROG1) () SAVESETQQ :D8 (I 1 SETQY I 0 SETQX) @A (6 SAVESET) NIL () RPAQ? :D8 (I 1 RPAQY I 0 RPAQX) @ gh@A (27 SETTOPVAL 22 EVAL 5 GETTOPVAL) (10 NOBIND) () /DEFINEQ :D8 (I 0 X) @i (6 DEFINE) NIL () /DEFINE :D8 (I 0 X) @i (6 DEFINE) NIL () /RADIX :D8 (I 0 N F 0 LISPXHIST) $@ bPg@hP @(32 UNDOSAVE 13 RADIX 7 RADIX) (22 /RADIX) () /RAISE :D8 (I 1 TTBL I 0 FLG F 0 LISPXHIST) @A bPg@AhP @(28 UNDOSAVE 6 RAISE) (16 /RAISE) () /SETREADTABLE :D8 (I 0 RDTBL F 0 LISPXHIST) @ bPg@h @(23 UNDOSAVE 5 SETREADTABLE) (14 /SETREADTABLE) () /SETTERMTABLE :D8 (I 0 TTBL F 0 LISPXHIST) @ bPg@h @(23 UNDOSAVE 5 SETTERMTABLE) (14 /SETTERMTABLE) () (PRETTYCOMPRINT UNDOCOMS) (RPAQQ UNDOCOMS ((FNS SAVESET UNDOSET SAVESETQ SAVESETQQ RPAQQ RPAQ RPAQ? RPLNODE RPLNODE2 NEW/FN UNDOSAVE UNDOLISPX UNDOLISPX1 UNDOPRINT UNDOLISPX2 UNDOLISPX3 UNSET /LISPXPUT /PUT-1 /PUT+1 UNDONLSETQ UNDONLSETQ1 RESETUNDO /DEFINEQ /DEFINE /PRINTLEVEL) (INITVARS (%#UNDOSAVES) (UNDOSIDE0) (TESTMODEFLG) ) (ADDVARS (LISPXFNS (SETQ . SAVESETQ) (SET . SAVESET) (SETQQ . SAVESETQQ) (DEFINEQ . /DEFINEQ) ( DEFINE . /DEFINE) (PRINTLEVEL . /PRINTLEVEL)) (/FNS /ADDPROP /ATTACH /CONTROL /DELETECONTROL /DREMOVE /DREVERSE /DSUBST /ECHOCONTROL /ECHOMODE /LCONC /LISTPUT /LISTPUT1 /MAPCON /MAPCONC /MOVD /NCONC /NCONC1 /PUT /PUTASSOC /PUTD /PUTDQ /PUTHASH /PUTPROP /RADIX /RAISE /REMPROP /RPLACA /RPLACD /RPLNODE /RPLNODE2 /SET /SETA /SETATOMVAL /SETBRK /SETD /SETPROPLIST /SETREADTABLE /SETSEPR /SETSYNTAX /SETTERMTABLE /SETTOPVAL /TCONC)) (FNS /ADDPROP /ATTACH /CONTROL /DELETECONTROL /DREMOVE /DREVERSE /DSUBST /ECHOCONTROL /ECHOMODE /LCONC /LISTPUT /LISTPUT1 /MAPCON /MAPCONC /MOVD /NCONC /NCONC1 /PUT /PUTASSOC /PUTD /PUTDQ /PUTHASH /PUTPROP /RADIX /RAISE /REMPROP /RPLACA /RPLACD /RPLNODE /RPLNODE2 /SET /SETA /SETATOMVAL /SETBRK /SETD /SETPROPLIST /SETREADTABLE /SETSEPR /SETSYNTAX /SETTERMTABLE /SETTOPVAL /TCONC) (P (SETQ LISPXFNS (UNION LISPXFNS (MAPCAR /FNS (FUNCTION (LAMBDA (X Y) (CONS (PACK (CDR (DUNPACK X CHCONLST))) X))))))) (P (MOVD? (QUOTE RPLNODE) (QUOTE FRPLNODE)) (MOVD? (QUOTE RPLNODE2) (QUOTE FRPLNODE2))) (BLOCKS (NIL UNSET RPLNODE RPLNODE2 /LISPXPUT /PUT-1 /PUT+1 (LINKFNS . T ) UNDONLSETQ UNDONLSETQ1 (GLOBALVARS UNDOSTATS CLEARSTKLST DWIMFLG SPELLINGS3 LISPXHISTORY %#UNDOSAVES ) RESETUNDO UNDOPRINT) (NIL RPAQ RPAQQ (LOCALVARS . T)) (SAVESET SAVESET (LOCALVARS . T) (GLOBALVARS CLEARSTKLST)) (NIL UNDOSET (GLOBALVARS SPAGHETTIFLG)) (NIL NEW/FN (GLOBALVARS TESTMODEFLG LISPXFNS CHCONLST /FNS)) (UNDOLISPXBLOCK UNDOSAVE UNDOLISPX UNDOLISPX1 UNDOLISPX2 UNDOLISPX3 (ENTRIES UNDOSAVE UNDOLISPX UNDOLISPX1 UNDOLISPX2) (BLKLIBRARY LISPXWATCH) (GLOBALVARS UNDOSAVES UNDOSTATS %#UNDOSAVES DWIMFLG DWIMWAIT LISPXHISTORY CLISPTRANFLG EDITQUIETFLG MAXLEVEL) (LOCALFREEVARS UNDONEFLG)) (NIL /ADDPROP /ATTACH /CONTROL /DELETECONTROL /DREMOVE /DREVERSE /DSUBST /ECHOCONTROL /ECHOMODE /LCONC /LISTPUT /LISTPUT1 /MAPCON /MAPCONC /MOVD /NCONC /NCONC1 /PRINTLEVEL /PUT /PUTASSOC /PUTD /PUTDQ /PUTHASH /PUTPROP /REMPROP /RPLACA /RPLACD /RPLNODE /RPLNODE2 /SET /SETA /SETBRK /SETD /SETPROPLIST /SETSEPR /SETSYNTAX /SETATOMVAL /SETTOPVAL /TCONC (GLOBALVARS UNDOSTATS) (LINKFNS . T))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA /DEFINEQ SAVESETQ) (NLAML /PUTDQ UNDONLSETQ RPAQ? RPAQ RPAQQ SAVESETQQ) (LAMA /NCONC))))) (RPAQ? %#UNDOSAVES) (RPAQ? UNDOSIDE0) (RPAQ? TESTMODEFLG) (ADDTOVAR LISPXFNS (SETQ . SAVESETQ) (SET . SAVESET) (SETQQ . SAVESETQQ) (DEFINEQ . /DEFINEQ) (DEFINE . /DEFINE) (PRINTLEVEL . /PRINTLEVEL)) (ADDTOVAR /FNS /ADDPROP /ATTACH /CONTROL /DELETECONTROL /DREMOVE /DREVERSE /DSUBST /ECHOCONTROL /ECHOMODE /LCONC /LISTPUT /LISTPUT1 /MAPCON /MAPCONC /MOVD /NCONC /NCONC1 /PUT /PUTASSOC /PUTD /PUTDQ /PUTHASH /PUTPROP /RADIX /RAISE /REMPROP /RPLACA /RPLACD /RPLNODE /RPLNODE2 /SET /SETA /SETATOMVAL /SETBRK /SETD /SETPROPLIST /SETREADTABLE /SETSEPR /SETSYNTAX /SETTERMTABLE /SETTOPVAL /TCONC) (SETQ LISPXFNS (UNION LISPXFNS (MAPCAR /FNS (FUNCTION (LAMBDA (X Y) (CONS (PACK (CDR (DUNPACK X CHCONLST))) X)))))) (MOVD? (QUOTE RPLNODE) (QUOTE FRPLNODE)) (MOVD? (QUOTE RPLNODE2) (QUOTE FRPLNODE2)) (PUTPROPS UNDO COPYRIGHT ("Venue & Xerox Corporation" 1984 1986 1988 1990)) NIL