(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 6-Oct-86 13:06:49" . {ERIS}<TEDIT>TEDITABBREV.;13)
FNS (\TEDIT.ABBREV.EXPAND \TEDIT.EXPAND.DATE \TEDIT.TRY.ABBREV)
(READATABASE)
(
CALL \TEDIT.ABBREV.EXPAND (FETCHFIELD SELECTQ SUB1 MKSTRING CHARACTER \BIN TEDIT.SEL.AS.STRING 
\TEDIT.TRY.ABBREV) \TEDIT.EXPAND.DATE (DATE SUBSTRING STRPOS) \TEDIT.TRY.ABBREV (SASSOC U-CASE APPLY* 
EVAL) NIL
BIND \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE (STREAM CH) \TEDIT.TRY.ABBREV (SEL CH#) NIL
NLAMBDA \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
NOBIND \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
RECORD \TEDIT.ABBREV.EXPAND (TEXTSTREAM) \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
CREATE \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
FETCH \TEDIT.ABBREV.EXPAND (TEXTOBJ F3 SEL POINT CH# CHLIM DCH) \TEDIT.EXPAND.DATE NIL 
\TEDIT.TRY.ABBREV NIL NIL
REPLACE \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
REFFREE \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV (TEDIT.ABBREVS) NIL
REF \TEDIT.ABBREV.EXPAND (STREAM TEXTOBJ) \TEDIT.EXPAND.DATE (DATE) \TEDIT.TRY.ABBREV (ABBREV STREAM 
CH) NIL
SETFREE \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
SET \TEDIT.ABBREV.EXPAND (SEL CH# CH EXPANSION) \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV (EXPANSION) 
NIL
SMASHFREE \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
SMASH \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
PROP \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
TEST \TEDIT.ABBREV.EXPAND (EXPANSION) \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV (EXPANSION) NIL
TESTFREE \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
PREDICATE \TEDIT.ABBREV.EXPAND (ZEROP) \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV (STRINGP NUMBERP 
LITATOM GETD) NIL
EFFECT \TEDIT.ABBREV.EXPAND (\SETUPGETCH TEDIT.SETSEL TEDIT.DELETE TEDIT.INSERT) \TEDIT.EXPAND.DATE 
NIL \TEDIT.TRY.ABBREV NIL NIL
CLISP \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
SPECVARS \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
LOCALVARS \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
APPLY \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
ERROR \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV (apply) NIL
LOCALFREEVARS \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL
ARGS \TEDIT.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV 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.ABBREV.EXPAND NIL \TEDIT.EXPAND.DATE NIL \TEDIT.TRY.ABBREV NIL NIL

)