(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 6-Oct-86 13:05:59" . {ERIS}<TEDIT>TEDITHISTORY.;8)
FNS (\TEDIT.HISTORYADD TEDIT.UNDO TEDIT.UNDO.INSERTION TEDIT.UNDO.DELETION TEDIT.REDO 
TEDIT.REDO.INSERTION TEDIT.UNDO.MOVE TEDIT.UNDO.REPLACE TEDIT.REDO.REPLACE TEDIT.REDO.MOVE)
(READATABASE)
(
CALL \TEDIT.HISTORYADD (REPLACEFIELD) TEDIT.UNDO (FETCHFIELD RESETSAVE CURSOR \SHOWSEL SELECTQ 
TEDIT.UNDO.INSERTION TEDIT.UNDO.DELETION TEDIT.UNDO.LOOKS TEDIT.UNDO.PARALOOKS TEDIT.PROMPTPRINT ASSOC
 APPLY* CONCAT) TEDIT.UNDO.INSERTION (FETCHFIELD IMAGEOBJPROP WINDOWPROP IPLUS IDIFFERENCE RPLACA) 
TEDIT.UNDO.DELETION (\CHTOPCNO FETCHFIELD \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE 
\SPLITPIECE ADD1 PLUS NCREATE RPLACA IMAGEOBJPROP \TEDIT.PRIMARYW TEXTSTREAM IPLUS) TEDIT.REDO (
FETCHFIELD RESETSAVE CURSOR \SHOWSEL SELECTQ TEDIT.REDO.INSERTION IMAX \TEDIT.DELETE 
TEDIT.REDO.REPLACE TEDIT.REDO.LOOKS TEDIT.REDO.PARALOOKS TEDIT.PROMPTPRINT TEDIT.FIND IPLUS NCHARS 
TEDIT.REDO.MOVE CONCAT) TEDIT.REDO.INSERTION (FETCHFIELD FREPLACEFIELDVAL NCREATE RPLACA \CHTOPCNO 
\EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE ADD1 \SPLITPIECE PLUS IMAGEOBJPROP APPLY* COPY 
WINDOWPROP IPLUS) TEDIT.UNDO.MOVE (FETCHFIELD IPLUS REPLACEFIELD PLUS RPLACA) TEDIT.UNDO.REPLACE (
FETCHFIELD RPLACA IPLUS) TEDIT.REDO.REPLACE (FETCHFIELD IDIFFERENCE RPLACA) TEDIT.REDO.MOVE (
FETCHFIELD IPLUS) NIL
BIND \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL TEDIT.REDO 
NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE (TEXTOBJ FIRSTPIECE TOSEL) TEDIT.UNDO.REPLACE NIL 
TEDIT.REDO.REPLACE NIL TEDIT.REDO.MOVE (CH# FIRSTPIECE FROMOBJ SOURCECH# OLDCHLIM) NIL
NLAMBDA \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL 
TEDIT.REDO NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE 
NIL TEDIT.REDO.MOVE NIL NIL
NOBIND \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL 
TEDIT.REDO NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE 
NIL TEDIT.REDO.MOVE NIL NIL
RECORD \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION (ARRAYP) 
TEDIT.REDO NIL TEDIT.REDO.INSERTION (ARRAYP) TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL 
TEDIT.REDO.REPLACE NIL TEDIT.REDO.MOVE NIL NIL
CREATE \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION (PIECE) 
TEDIT.REDO NIL TEDIT.REDO.INSERTION (PIECE) TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL 
TEDIT.REDO.REPLACE NIL TEDIT.REDO.MOVE NIL NIL
FETCH \TEDIT.HISTORYADD NIL TEDIT.UNDO (SEL TXTHISTORY THLEN THCH# THFIRSTPIECE THACTION) 
TEDIT.UNDO.INSERTION (POBJ \WINDOW STREAMHINT PCTB PLEN NEXTPIECE TEXTLEN LINES SEL) 
TEDIT.UNDO.DELETION (PCTB NEXTPIECE SEL TEXTLEN BASE POBJ PLEN THPOINT) TEDIT.REDO (SEL TXTHISTORY DCH
 THACTION POINT CH# CHLIM THAUXINFO THLEN THFIRSTPIECE) TEDIT.REDO.INSERTION (SEL PCTB THLEN 
THFIRSTPIECE TEXTLEN NEXTPIECE BASE POBJ STREAMHINT \WINDOW PLEN) TEDIT.UNDO.MOVE (THAUXINFO THTEXTOBJ
 THOLDINFO THCH# SEL LINES TEXTLEN THFIRSTPIECE) TEDIT.UNDO.REPLACE (THOLDINFO THCH# SEL THLEN 
THFIRSTPIECE THPOINT) TEDIT.REDO.REPLACE (THOLDINFO CH# SEL CHLIM LINES TXTHISTORY) TEDIT.REDO.MOVE (
THOLDINFO THCH# SEL MOVESEL) NIL
REPLACE \TEDIT.HISTORYADD (TXTHISTORY) TEDIT.UNDO NIL TEDIT.UNDO.INSERTION (\INSERTFIRSTCH 
\INSERTPCVALID TEXTLEN POINT THACTION) TEDIT.UNDO.DELETION (\INSERTFIRSTCH \INSERTPCVALID THFIRSTPIECE
 TEXTLEN CH# CHLIM DCH POINT THACTION) TEDIT.REDO (CH# CHLIM DCH POINT \INSERTPCVALID) 
TEDIT.REDO.INSERTION (PNEW THFIRSTPIECE \INSERTPCVALID POBJ TEXTLEN CH# CHLIM DCH THACTION) 
TEDIT.UNDO.MOVE (CH# CHLIM DCH POINT TEXTLEN THACTION THTEXTOBJ THAUXINFO THOLDINFO THCH#) 
TEDIT.UNDO.REPLACE (THOLDINFO THACTION CH# CHLIM DCH POINT THPOINT) TEDIT.REDO.REPLACE (POINT 
THOLDINFO THACTION THCH#) TEDIT.REDO.MOVE (CH# CHLIM DCH SET) NIL
REFFREE \TEDIT.HISTORYADD NIL TEDIT.UNDO (WAITINGCURSOR TEDIT.HISTORY.TYPELST) TEDIT.UNDO.INSERTION 
NIL TEDIT.UNDO.DELETION NIL TEDIT.REDO (WAITINGCURSOR) TEDIT.REDO.INSERTION (\EltsPerPiece) 
TEDIT.UNDO.MOVE (TEDIT.SELECTION) TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE NIL TEDIT.REDO.MOVE NIL 
NIL
REF \TEDIT.HISTORYADD (EVENT) TEDIT.UNDO (TEXTOBJ SEL) TEDIT.UNDO.INSERTION (LEN CH#) 
TEDIT.UNDO.DELETION (CH# BASEA0265 PCTB BASEA0266 NO ARR BASEA0267 LEN OTEXTLEN) TEDIT.REDO NIL 
TEDIT.REDO.INSERTION (CH# PCTB BASEA0268 NO ARR BASEA0269 LEN OTEXTLEN) TEDIT.UNDO.MOVE (TOOBJ FROMOBJ
 CH# LEN SOURCECH#) TEDIT.UNDO.REPLACE (TEXTOBJ LEN CH# FIRSTPIECE) TEDIT.REDO.REPLACE (TEXTOBJ CH#) 
TEDIT.REDO.MOVE (TEXTOBJ EVENT OLDCH# LEN SEL) NIL
SETFREE \TEDIT.HISTORYADD NIL TEDIT.UNDO (UNDOFN) TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL 
TEDIT.REDO NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE 
NIL TEDIT.REDO.MOVE NIL NIL
SET \TEDIT.HISTORYADD NIL TEDIT.UNDO (EVENT LEN CH# FIRSTPIECE) TEDIT.UNDO.INSERTION (OBJ DELETEFN TL 
FIRSTPIECE) TEDIT.UNDO.DELETION (INSPC INSPC# NEWPIECE OBJECT INSERTFN TL FIRSTPIECE NPC) TEDIT.REDO (
EVENT SEL CH) TEDIT.REDO.INSERTION (NPC INSPC# INSPC OBJ COPYFN TL FIRSTPIECE) TEDIT.UNDO.MOVE (
TOTEXTLEN) TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE (OLDEVENT) TEDIT.REDO.MOVE NIL NIL
SMASHFREE \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL 
TEDIT.REDO NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE 
NIL TEDIT.REDO.MOVE NIL NIL
SMASH \TEDIT.HISTORYADD (TEXTOBJ) TEDIT.UNDO NIL TEDIT.UNDO.INSERTION (TEXTOBJ EVENT) 
TEDIT.UNDO.DELETION (TEXTOBJ EVENT SEL) TEDIT.REDO (SEL TEXTOBJ) TEDIT.REDO.INSERTION (EVENT TEXTOBJ 
FIRSTPIECE SEL) TEDIT.UNDO.MOVE (EVENT) TEDIT.UNDO.REPLACE (OLDEVENT EVENT SEL) TEDIT.REDO.REPLACE (
SEL EVENT OLDEVENT) TEDIT.REDO.MOVE (MOVESEL) NIL
PROP \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL TEDIT.REDO 
NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE NIL 
TEDIT.REDO.MOVE NIL NIL
TEST \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION (NPC) 
TEDIT.REDO (CH) TEDIT.REDO.INSERTION (OBJ NPC) TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL 
TEDIT.REDO.REPLACE NIL TEDIT.REDO.MOVE NIL NIL
TESTFREE \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL 
TEDIT.REDO NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE 
NIL TEDIT.REDO.MOVE NIL NIL
PREDICATE \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION (IGEQ) TEDIT.UNDO.DELETION (
IGREATERP IGEQ) TEDIT.REDO (ZEROP) TEDIT.REDO.INSERTION (IEQP IGEQ) TEDIT.UNDO.MOVE NIL 
TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE NIL TEDIT.REDO.MOVE NIL NIL
EFFECT \TEDIT.HISTORYADD NIL TEDIT.UNDO (RESETLST TEDIT.UNDO.MOVE TEDIT.UNDO.REPLACE) 
TEDIT.UNDO.INSERTION (REPLACEFIELD APPLY* \DELETEPIECE \FIXDLINES TEDIT.UPDATE.SCREEN \FIXSEL) 
TEDIT.UNDO.DELETION (REPLACEFIELD DECLARE \INSERTPIECE APPLY* \FIXILINES TEDIT.UPDATE.SCREEN 
\TEDIT.SET.SEL.LOOKS \FIXSEL) TEDIT.REDO (RESETLST REPLACEFIELD \FIXSEL TEDIT.NORMALIZECARET) 
TEDIT.REDO.INSERTION (REPLACEFIELD DECLARE TEDIT.PROMPTPRINT RETFROM \INSERTPIECE \FIXILINES 
TEDIT.UPDATE.SCREEN \TEDIT.SET.SEL.LOOKS \FIXSEL) TEDIT.UNDO.MOVE (\SHOWSEL \DELETECH \FIXDLINES 
\TEDIT.INSERT.PIECES \FIXILINES TEDIT.UPDATE.SCREEN \FIXSEL \COPYSEL) TEDIT.UNDO.REPLACE (\SHOWSEL 
TEDIT.UNDO.INSERTION TEDIT.UNDO.DELETION \TEDIT.HISTORYADD REPLACEFIELD \FIXSEL) TEDIT.REDO.REPLACE (
\SHOWSEL \DELETECH \FIXDLINES REPLACEFIELD TEDIT.REDO.INSERTION \TEDIT.HISTORYADD) TEDIT.REDO.MOVE (
REPLACEFIELD \FIXSEL \TEDIT.SET.SEL.LOOKS TEDIT.MOVE) NIL
CLISP \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION (bind while do) TEDIT.UNDO.DELETION (
bind while do) TEDIT.REDO NIL TEDIT.REDO.INSERTION (bind while do) TEDIT.UNDO.MOVE NIL 
TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE NIL TEDIT.REDO.MOVE NIL NIL
SPECVARS \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL 
TEDIT.REDO NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE 
NIL TEDIT.REDO.MOVE NIL NIL
LOCALVARS \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION (BASEA0265
 ARR NO BASEA0266 BASEA0267) TEDIT.REDO NIL TEDIT.REDO.INSERTION (ARR NO BASEA0268 BASEA0269) 
TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE NIL TEDIT.REDO.MOVE NIL NIL
APPLY \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL TEDIT.REDO
 NIL TEDIT.REDO.INSERTION (TEDIT.COPY) TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE 
NIL TEDIT.REDO.MOVE NIL NIL
ERROR \TEDIT.HISTORYADD NIL TEDIT.UNDO (apply) TEDIT.UNDO.INSERTION (apply) TEDIT.UNDO.DELETION (apply
) TEDIT.REDO NIL TEDIT.REDO.INSERTION (apply) TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL 
TEDIT.REDO.REPLACE NIL TEDIT.REDO.MOVE NIL NIL
LOCALFREEVARS \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL 
TEDIT.REDO NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE 
NIL TEDIT.REDO.MOVE NIL NIL
ARGS \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL TEDIT.REDO 
NIL TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE NIL 
TEDIT.REDO.MOVE NIL NIL
USERTEMPLATES PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) REF (CALL EVAL (IF (AND (CONSP EXPR) (EQ (CAR 
EXPR) (QUOTE QUOTE))) (NIL FETCH) EVAL)) UNINTERRUPTABLY (CALL .. EVAL) \DoveIO.LockMem (CALL .. EVAL)
 WINDOWPROP (CALL EVAL PROP EVAL . PPE) RUN-SUPER (CALL .. EVAL) SPREADAPPLY (CALL FUNCTIONAL EVAL . 
PPE) perform (MACRO ARGS (PERFORMTRAN ARGS T)) SHAZAM (CALL .. NIL) WINDOWDELPROP (CALL EVAL PROP EVAL
 . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) WINDOWADDPROP (CALL EVAL PROP EVAL EVAL . PPE) OP# (
CALL) SETQ.NOREF (CALL SET EVAL . PPE) CATCH (CALL CALL CALL .. EVAL) NIL
0 \TEDIT.HISTORYADD NIL TEDIT.UNDO NIL TEDIT.UNDO.INSERTION NIL TEDIT.UNDO.DELETION NIL TEDIT.REDO NIL
 TEDIT.REDO.INSERTION NIL TEDIT.UNDO.MOVE NIL TEDIT.UNDO.REPLACE NIL TEDIT.REDO.REPLACE NIL 
TEDIT.REDO.MOVE NIL NIL

)