(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 6-Oct-86 12:58:15" . {ERIS}<TEDIT>TEDITCOMMAND.;19)
FNS (\TEDIT.INSERT.TTY.BUFFER \TEDIT.INTERRUPT.SETUP \TEDIT.MARKACTIVE \TEDIT.MARKINACTIVE \PNC 
\TEDIT.COMMAND.LOOP \TEDIT.COMMAND.RESET.SETUP \TEDIT.READTABLE \TEDIT.WORDBOUND.READTABLE 
TEDIT.GETSYNTAX TEDIT.SETSYNTAX TEDIT.GETFUNCTION TEDIT.SETFUNCTION TEDIT.WORDGET TEDIT.WORDSET)
(READATABASE)
(
CALL \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP (PROCESSPROP TEXTOBJ RESET.INTERRUPTS 
TEXTPROP) \TEDIT.MARKACTIVE NIL \TEDIT.MARKINACTIVE NIL \PNC (FETCHFIELD ADD1 SUB1 REPLACEFIELD) 
\TEDIT.COMMAND.LOOP (TYPENAMEP fetch FETCHFIELD ALLOCSTRING SUBSTRING THIS.PROCESS RESETSAVE 
\TEDIT.COMMAND.RESET.SETUP LIST TEXTPROP REPLACEFIELD APPLY* \COPYSEL replace while \GETKEY \SYNCODE 
type? RAID GETHASH \GETBASEBYTE LOGAND) \TEDIT.COMMAND.RESET.SETUP (PROCESSPROP THIS.PROCESS TEXTPROP 
CREATEW TTYDISPLAYSTREAM FUNCTION TXTFILE REPLACEFIELD LIST) \TEDIT.READTABLE (create FREPLACEFIELDVAL
 NCREATE HASHARRAY LIST type? TYPENAMEP RAID \PUTBASEBYTE \SETFATSYNCODE fetch FETCHFIELD FUNCTION) 
\TEDIT.WORDBOUND.READTABLE (HARRAY FREPLACEFIELDVAL NCREATE TYPENAMEP RAID \PUTBASEBYTE PUTHASH 
FETCHFIELD \CREATENSCHARHASH HASHARRAY REPLACEFIELD PLUS \SETSYNCODE LIST) TEDIT.GETSYNTAX (SELECTC 
\SYNCODE TYPENAMEP RAID GETHASH FETCHFIELD \GETBASEBYTE APPLY*) TEDIT.SETSYNTAX (TEDIT.GETSYNTAX 
APPLY* TYPENAMEP RAID \PUTBASEBYTE PUTHASH FETCHFIELD \CREATENSCHARHASH HASHARRAY REPLACEFIELD SELECTQ
) TEDIT.GETFUNCTION (FETCHFIELD APPLY* \SYNCODE TYPENAMEP RAID GETHASH \GETBASEBYTE) TEDIT.SETFUNCTION
 (FETCHFIELD TYPENAMEP RAID \PUTBASEBYTE PUTHASH \CREATENSCHARHASH HASHARRAY REPLACEFIELD APPLY* 
HARRAY) TEDIT.WORDGET (\SYNCODE TYPENAMEP RAID GETHASH FETCHFIELD \GETBASEBYTE SMALLP CHCON1) 
TEDIT.WORDSET (\SETSYNCODE TYPENAMEP RAID \PUTBASEBYTE PUTHASH FETCHFIELD \CREATENSCHARHASH HASHARRAY 
REPLACEFIELD SMALLP CHCON1 FIXP SELECTQ) NIL
BIND \TEDIT.INSERT.TTY.BUFFER (SCRATCH PASS TEXTOBJ SEL) \TEDIT.INTERRUPT.SETUP (\INTERRUPTABLE) 
\TEDIT.MARKACTIVE NIL \TEDIT.MARKINACTIVE NIL \PNC (\INTERRUPTABLE) \TEDIT.COMMAND.LOOP (TTYWINDOW 
DIRTY INSCH# TLEN CHNO READSA COMMANDFN) \TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE NIL 
\TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL 
TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
NLAMBDA \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE (CHARCODE) \TEDIT.WORDBOUND.READTABLE (CHARCODE) TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX 
NIL TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
NOBIND \TEDIT.INSERT.TTY.BUFFER (T) \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE (T) 
\TEDIT.MARKINACTIVE (T) \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
RECORD \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC (STRINGP) \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE (CHARTABLE) TEDIT.GETSYNTAX (CHARTABLE TEXTOBJ STREAM 
TEXTSTREAM) TEDIT.SETSYNTAX (CHARTABLE TEXTOBJ STREAM TEXTSTREAM) TEDIT.GETFUNCTION (TEXTOBJ STREAM 
TEXTSTREAM READTABLEP CHARTABLE) TEDIT.SETFUNCTION (TEXTOBJ STREAM TEXTSTREAM CHARTABLE) TEDIT.WORDGET
 (CHARTABLE) TEDIT.WORDSET (CHARTABLE) NIL
CREATE \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE (READTABLEP CHARTABLE) TEDIT.GETSYNTAX NIL 
TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL 
NIL
FETCH \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC (LENGTH OFFST BASE) \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP 
NIL \TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE (NSCHARHASH READSA) TEDIT.GETSYNTAX (NSCHARHASH 
READSA TXTRTBL TEXTOBJ F3) TEDIT.SETSYNTAX (NSCHARHASH READSA TXTRTBL TEXTOBJ F3) TEDIT.GETFUNCTION (
TXTRTBL TEXTOBJ F3 NSCHARHASH READSA READMACRODEFS) TEDIT.SETFUNCTION (TXTRTBL TEXTOBJ F3 NSCHARHASH 
READSA READMACRODEFS) TEDIT.WORDGET (NSCHARHASH READSA) TEDIT.WORDSET (NSCHARHASH READSA) NIL
REPLACE \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE (EDITOPACTIVE) 
\TEDIT.MARKINACTIVE (EDITOPACTIVE) \PNC (OFFST LENGTH) \TEDIT.COMMAND.LOOP NIL 
\TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE (READMACRODEFS 
NSCHARHASH) TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX (NSCHARHASH) TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION (
NSCHARHASH READMACRODEFS) TEDIT.WORDGET NIL TEDIT.WORDSET (NSCHARHASH) NIL
REFFREE \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP (TEDIT.INTERRUPTS) \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP (\SCRATCHLEN TEDIT.READTABLE %#CURRENTRDTBL# 
\PRIMTERMSA TEDIT.SHIFTEDSELECTION TEDIT.COPYLOOKSSELECTION TEDIT.MOVESELECTION TEDIT.DELETESELECTION 
\MAXTHINCHAR CHARDELETE.TTC WORDDELETE.TTC DELETE.TTC UNDO.TTC REDO.TTC FUNCTIONCALL.TTC NEXT.TTC 
EXPAND.TTC CHARDELETE.TC WORDDELETE.TC LINEDELETE.TC) \TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE 
(CHARDELETE.TTC WORDDELETE.TTC DELETE.TTC UNDO.TTC NEXT.TTC CMD.TTC REDO.TTC \MAXTHINCHAR 
FUNCTIONCALL.TTC) \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
REF \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL \TEDIT.MARKINACTIVE 
NIL \PNC NIL \TEDIT.COMMAND.LOOP (STREAM TEXTOBJ ISCRSTRING TEDITSA TEDITFNHASH BLANKSEEN CRSEEN) 
\TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE (TABLE CHAR CODE RTBL) \TEDIT.WORDBOUND.READTABLE NIL 
TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL 
TEDIT.WORDSET NIL NIL
SETFREE \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP (TEDIT.COPY.PENDING TEDIT.COPYLOOKS.PENDING 
TEDIT.MOVE.PENDING TEDIT.DEL.PENDING) \TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE NIL 
\TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL 
TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
SET \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL \TEDIT.MARKINACTIVE 
NIL \PNC NIL \TEDIT.COMMAND.LOOP (SEL WINDOW LINES IPASSSTRING RTBL WW CH TCH FN) 
\TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE (CH CL FN) \TEDIT.WORDBOUND.READTABLE NIL 
TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL 
TEDIT.WORDSET NIL NIL
SMASHFREE \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
SMASH \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
PROP \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL \TEDIT.MARKINACTIVE
 NIL \PNC NIL \TEDIT.COMMAND.LOOP (PROCESS) \TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE NIL 
\TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL 
TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
TEST \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL \TEDIT.MARKINACTIVE
 NIL \PNC NIL \TEDIT.COMMAND.LOOP (LOOPFN CHARFN CH TERMSA) \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
TESTFREE \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP (TEDIT.SELPENDING TEDIT.COPY.PENDING 
TEDIT.COPYLOOKS.PENDING TEDIT.MOVE.PENDING TEDIT.DEL.PENDING) \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
PREDICATE \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP (TTY.PROCESSP \SYSBUFP IGREATERP) 
\TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE (ILEQ) \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX 
NIL TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET 
NIL NIL
EFFECT \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP (for WINDOWPROP DISMISS RESETLST ERSETQ 
\WAITFORSYSBUFP TEDIT.FLASHCARET BLOCK \SHOWSEL TEDIT.UPDATE.SCREEN \FIXSEL TEDIT.COPY 
TEDIT.COPY.PARALOOKS TEDIT.COPY.LOOKS TEDIT.DO.BLUEPENDINGDELETE TEDIT.MOVE \TEDIT.SET.SEL.LOOKS 
\TEDIT.DELETE UNINTERRUPTABLY SELECTC CHECK \TEDIT.CHARDELETE TEDIT.RESET.EXTEND.PENDING.DELETE 
\TEDIT.WORDDELETE TEDIT.UNDO TEDIT.REDO TEDIT.NEXT \TEDIT.ABBREV.EXPAND TEDIT.\INSERT) 
\TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE (for \SETSYNCODE CHECK PUTHASH TEDIT.SETFUNCTION) 
\TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL 
TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
CLISP \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
SPECVARS \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
LOCALVARS \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
APPLY \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE (GET.OBJ.FROM.USER) \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL 
TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL 
NIL
ERROR \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP (apply) \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
LOCALFREEVARS \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL 
\TEDIT.MARKINACTIVE NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL 
\TEDIT.READTABLE NIL \TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL 
TEDIT.GETFUNCTION NIL TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL
ARGS \TEDIT.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL \TEDIT.MARKINACTIVE
 NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE NIL 
\TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL 
TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET 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.INSERT.TTY.BUFFER NIL \TEDIT.INTERRUPT.SETUP NIL \TEDIT.MARKACTIVE NIL \TEDIT.MARKINACTIVE 
NIL \PNC NIL \TEDIT.COMMAND.LOOP NIL \TEDIT.COMMAND.RESET.SETUP NIL \TEDIT.READTABLE NIL 
\TEDIT.WORDBOUND.READTABLE NIL TEDIT.GETSYNTAX NIL TEDIT.SETSYNTAX NIL TEDIT.GETFUNCTION NIL 
TEDIT.SETFUNCTION NIL TEDIT.WORDGET NIL TEDIT.WORDSET NIL NIL

)