(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 8-Oct-86 11:36:13" . {ERIS}<TEDIT>TEDITFIND.;7)
FNS (\TEDIT.SEARCH.CODETABLE \TEDIT.BASICFIND TEDIT.FIND TEDIT.NEW.FIND TEDIT.NEXT \TEDIT.FIND.WC 
\TEDIT.FIND.WC1 \TEDIT.PACK.TARGETLIST \TEDIT.PARSE.SEARCHSTRING \TEDIT.SUBST.FN1 \TEDIT.SUBST.FN2 
TEDIT.SUBSTITUTE)
(READATABASE)
(
CALL \TEDIT.SEARCH.CODETABLE (ARRAY PLUS SETA IPLUS LIST) \TEDIT.BASICFIND (FETCHFIELD ADD1 
IDIFFERENCE NCHARS NTHCHARCODE SELECTQ \BIN PLUS) TEDIT.FIND (MKSTRING TEXTOBJ CONS FETCHFIELD SELECTQ
 \TEDIT.PARSE.SEARCHSTRING MAPCAR UNPACK MKATOM LIST \TEDIT.SUBST.FN1 \TEDIT.FIND.WC TEDIT.FIND SUB1 
IPLUS NCHARS \TEDIT.BASICFIND) TEDIT.NEW.FIND NIL TEDIT.NEXT (TEXTOBJ FETCHFIELD TEDIT.FIND 
MBUTTON.FIND.NEXT.FIELD ADD1 IDIFFERENCE \TEDIT.GET.INSERT.CHARLOOKS) \TEDIT.FIND.WC (\TEDIT.FIND.WC1 
LIST IMAX \TEDIT.SUBST.FN1 ADD1 \TEDIT.FIND.WC) \TEDIT.FIND.WC1 (SUB1 TEDIT.FIND \TEDIT.FIND.WC1 IPLUS
 NCHARS CONCATLIST \TEDIT.PACK.TARGETLIST ADD1) \TEDIT.PACK.TARGETLIST (CONS CONCAT 
\TEDIT.PACK.TARGETLIST MKSTRING) \TEDIT.PARSE.SEARCHSTRING (LIST CONS MKATOM \TEDIT.PARSE.SEARCHSTRING
 APPEND MKSTRING CONCAT) \TEDIT.SUBST.FN1 (\TEDIT.SUBST.FN2) \TEDIT.SUBST.FN2 (SUB1 \TEDIT.SUBST.FN1 
ADD1 \TEDIT.SUBST.FN2 TEDIT.FIND) TEDIT.SUBSTITUTE (TEXTOBJ TEDIT.GETINPUT STRPOS CHARACTER MEMBER 
FETCHFIELD IPLUS SUB1 TEDIT.FIND TEDIT.SETSEL IDIFFERENCE NCHARS PLUS \CHTOPC \DELETECH ADD1 
FFETCHFIELD SELECTC \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE CONCAT MKSTRING) NIL
BIND \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND (TEDIT.WILDCARD.CHARACTERS) 
TEDIT.NEW.FIND (TEXTOBJ TARGETSTRING START# END# WILDCARDS?) TEDIT.NEXT NIL \TEDIT.FIND.WC NIL 
\TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL 
\TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE (OUTOFRANGEFLG SELCH# SELCHLIM SELPOINT) NIL
NLAMBDA \TEDIT.SEARCH.CODETABLE (CHARCODE) \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL 
TEDIT.NEXT NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL 
\TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE (CHARCODE) 
NIL
NOBIND \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND T TEDIT.NEXT NIL
 \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
RECORD \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT 
NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE (STRINGP) NIL
CREATE \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND (TEDITHISTORYEVENT) TEDIT.NEW.FIND 
NIL TEDIT.NEXT NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL 
\TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
FETCH \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND (SEL TEXTLEN STREAMHINT SET POINT CH# CHLIM) 
TEDIT.FIND (SET SEL POINT CH# CHLIM TEXTLEN) TEDIT.NEW.FIND NIL TEDIT.NEXT (SEL CH# CHLIM DCH) 
\TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE (SEL CH# DCH PLOOKS PCTB LINES TEXTLEN 
OFFST BASE XBASE LENGTH FATSTRINGP TYP CHLIM) NIL
REPLACE \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND (\INSERTPCVALID) TEDIT.FIND (THACTION THAUXINFO 
\INSERTPCVALID) TEDIT.NEW.FIND NIL TEDIT.NEXT (CH# CHLIM DCH POINT BLUEPENDINGDELETE CARETLOOKS) 
\TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE (CARETLOOKS CHLIM CH# DCH) NIL
REFFREE \TEDIT.SEARCH.CODETABLE (\AlphaNumericFlag \AlphaFlag \OneCharPattern \AnyStringPattern 
\OneAlphaPattern \OneNonAlphaPattern \AnyAlphaPattern \AnyNonAlphaPattern \LeftBracketPattern 
\RightBracketPattern) \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT NIL 
\TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST (TEDIT.WILDCARD.CHARACTERS) 
\TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE (\ST.BYTE) 
NIL
REF \TEDIT.SEARCH.CODETABLE (CODETBL) \TEDIT.BASICFIND (CHLIM STRING SEL TEXTLIM TEXTLEN TEXTSTREAM 
CH#1) TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT (STREAM) \TEDIT.FIND.WC (TEXTOBJ TARGETLIST START# 
END#) \TEDIT.FIND.WC1 (TRIALEND# TEXTOBJ END#) \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING (
TEDIT.WILDCARD.CHARACTERS) \TEDIT.SUBST.FN1 (TEXTOBJ TARGETLIST START# END#) \TEDIT.SUBST.FN2 (
TRIALSTART# TEXTOBJ END#) TEDIT.SUBSTITUTE (TEXTSTREAM REPLACEMENT CONFIRM? YESLIST) NIL
SETFREE \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT 
NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
SET \TEDIT.SEARCH.CODETABLE (I CH CODE) \TEDIT.BASICFIND (CH1 ANCHOR CH OANCHOR FOUND PCH#) TEDIT.FIND
 (TARGETSTRING TEXTOBJ SEL START# END# TARGETLIST X RESULT1 RESULT) TEDIT.NEW.FIND NIL TEDIT.NEXT (SEL
 TARGET FIELDSEL OPTION) \TEDIT.FIND.WC (RESULT RESULT1) \TEDIT.FIND.WC1 (RESULT RESULT1) 
\TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 (RESULT) \TEDIT.SUBST.FN2 
NIL TEDIT.SUBSTITUTE (SEARCHSTRING REPLACESTRING CRSEEN CONFIRMFLG SEL BEGINCHAR# STARTCHAR# ENDCHAR# 
RANGE PENDING.SEL CHOICE ABORTFLG REPLACEDFLG PC# ACHAR NCH#) NIL
SMASHFREE \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL 
TEDIT.NEXT NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL 
\TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
SMASH \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND (TEXTOBJ) TEDIT.FIND (TEXTOBJ) TEDIT.NEW.FIND NIL 
TEDIT.NEXT (SEL TEXTOBJ) \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL 
\TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE (TEXTOBJ SEL)
 NIL
PROP \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT NIL
 \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
TEST \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND (CH# FOUND) TEDIT.FIND (TARGETSTRING WILDCARDS? 
START# END# RESULT) TEDIT.NEW.FIND NIL TEDIT.NEXT (TARGET FIELDSEL SEL) \TEDIT.FIND.WC NIL 
\TEDIT.FIND.WC1 (TARGETLIST RESULT1) \TEDIT.PACK.TARGETLIST (TARGETLIST) \TEDIT.PARSE.SEARCHSTRING (
LST RESULT) \TEDIT.SUBST.FN1 (RESULT) \TEDIT.SUBST.FN2 (TARGETLIST) TEDIT.SUBSTITUTE (PATTERN ABORTFLG
 CONFIRMFLG CRSEEN) NIL
TESTFREE \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT
 NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
PREDICATE \TEDIT.SEARCH.CODETABLE (GREATERP) \TEDIT.BASICFIND (IGREATERP GREATERP) TEDIT.FIND (STRINGP
 LEQ LITATOM GREATERP) TEDIT.NEW.FIND NIL TEDIT.NEXT (IGREATERP) \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 (
STRINGP LITATOM MEMBER EQUAL) \TEDIT.PACK.TARGETLIST (MEMBER STRINGP) \TEDIT.PARSE.SEARCHSTRING (
MEMBER EQUAL) \TEDIT.SUBST.FN1 (GEQ) \TEDIT.SUBST.FN2 (LITATOM MEMBER) TEDIT.SUBSTITUTE (EQUAL 
IGREATERP ZEROP) NIL
EFFECT \TEDIT.SEARCH.CODETABLE (MAPC) \TEDIT.BASICFIND (REPLACEFIELD \SETUPGETCH) TEDIT.FIND (
\TEDIT.HISTORYADD REPLACEFIELD FRPLACD) TEDIT.NEW.FIND NIL TEDIT.NEXT (SELECTQ \SHOWSEL REPLACEFIELD 
\TEDIT.SET.SEL.LOOKS \FIXSEL TEDIT.NORMALIZECARET TEDIT.PROMPTPRINT SHOULDNT) \TEDIT.FIND.WC NIL 
\TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL 
\TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE (TEDIT.PROMPTPRINT \SHOWSEL TEDIT.RESET.EXTEND.PENDING.DELETE 
TEDIT.NORMALIZECARET TEDIT.SHOWSEL TEDIT.DELETE TEDIT.INSERT REPLACEFIELD \FIXDLINES \FIXILINES 
DECLARE SELCHARQ \INSERTCR \INSERTCH \TEDIT.MARK.LINES.DIRTY TEDIT.UPDATE.SCREEN \FIXSEL) NIL
CLISP \TEDIT.SEARCH.CODETABLE (for from to do in as) \TEDIT.BASICFIND (for old from to do as) 
TEDIT.FIND (for in collect when) TEDIT.NEW.FIND NIL TEDIT.NEXT NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 
NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL
 TEDIT.SUBSTITUTE (while do for instring as from by) NIL
SPECVARS \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT
 NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
LOCALVARS \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL 
TEDIT.NEXT NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL 
\TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE ($$TEM1 
$$TEM2 $$TEM3 $$TEM4 $$TEM5) NIL
APPLY \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT 
NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
ERROR \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT 
NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
LOCALFREEVARS \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL 
TEDIT.NEXT NIL \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL 
\TEDIT.PARSE.SEARCHSTRING NIL \TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
ARGS \TEDIT.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT NIL
 \TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL
USERTEMPLATES REF (CALL EVAL (IF (AND (CONSP EXPR) (EQ (CAR EXPR) (QUOTE QUOTE))) (NIL FETCH) EVAL)) 
SHAZAM (CALL .. NIL) UNINTERRUPTABLY (CALL .. EVAL) WINDOWPROP (CALL EVAL PROP EVAL . PPE) PERFORM (
MACRO ARGS (PERFORMTRAN ARGS T)) \DoveIO.LockMem (CALL .. EVAL) RUN-SUPER (CALL .. EVAL) SPREADAPPLY (
CALL FUNCTIONAL EVAL . PPE) perform (MACRO ARGS (PERFORMTRAN ARGS T)) 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.SEARCH.CODETABLE NIL \TEDIT.BASICFIND NIL TEDIT.FIND NIL TEDIT.NEW.FIND NIL TEDIT.NEXT NIL 
\TEDIT.FIND.WC NIL \TEDIT.FIND.WC1 NIL \TEDIT.PACK.TARGETLIST NIL \TEDIT.PARSE.SEARCHSTRING NIL 
\TEDIT.SUBST.FN1 NIL \TEDIT.SUBST.FN2 NIL TEDIT.SUBSTITUTE NIL NIL

)