(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("13-Aug-84 16:51:11" . {ERIS}<SPEECH>LEXICON>LOADFOOTPARSER.;4)
FNS (LOADFOOTPARSER UPDATELFG CHANGEDFILES COMPLFG CURRENTLFG GETLFGFILES LISTLFG)
(READATABASE)
(
CALL LOADFOOTPARSER (CONS SELECTQ SYSTEMTYPE INFILEP PACKFILENAME TTYDISPLAYSTREAM WINDOWPROP 
RESETVARS XNLSETQ PACK* NLEFT ERROR!) UPDATELFG (GETLFGFILES CURRENTLFG PACKFILENAME INFILEP ASKUSER 
LIST LOAD) CHANGEDFILES (FMEMB INFILEP PACKFILENAME NAMEFIELD GETFILEINFO LIST) COMPLFG (GETLFGFILES 
LOADCOMP? LFGNEEDCOMP BCOMPL PRINT FASTCOMPILE) CURRENTLFG (GETLFGFILES CONS GETP PACKFILENAME PACK* 
LIST) GETLFGFILES (SORT APPEND GETDEF SYSTEMTYPE) LISTLFG (APPLY CONS GETLFGFILES INFILEP ASKUSER LIST
) NIL
BIND LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
NLAMBDA LOADFOOTPARSER (FILESLOAD) UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL 
GETLFGFILES NIL LISTLFG NIL NIL
NOBIND LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
RECORD LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
CREATE LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
FETCH LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
REPLACE LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
REFFREE LOADFOOTPARSER (LFG.LISPUSERSFILES ENV.LISPUSERSFILES DLFG.LISPUSERSFILES 10LFG.LISPUSERSFILES
 COMPILE.EXT FOOTPARSERFILES DLFGFILES 10LFGFILES) UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL 
CURRENTLFG (COMPILE.EXT) GETLFGFILES NIL LISTLFG NIL NIL
REF LOADFOOTPARSER (DIRS LDFLG) UPDATELFG (FILES) CHANGEDFILES (FILES SOURCEDIRECTORY COMPDIRECTORY 
EXTENSION) COMPLFG (FILES F) CURRENTLFG (FILES) GETLFGFILES NIL LISTLFG NIL NIL
SETFREE LOADFOOTPARSER (RESETVARSLST NOSPELLFLG LOADDBFLG LOADFILESCOMPILE.EXTENSIONS) UPDATELFG NIL 
CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL LISTLFG NIL NIL
SET LOADFOOTPARSER (MACROY SYMFLAG MACROX) UPDATELFG (LOADFILES X SYSOUTFILE FILE.COM DIRFILE) 
CHANGEDFILES (F FS FC) COMPLFG NIL CURRENTLFG (X) GETLFGFILES NIL LISTLFG (X F) NIL
SMASHFREE LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL
 LISTLFG NIL NIL
SMASH LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
PROP LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG (FILEDATES FILEMAP) 
GETLFGFILES NIL LISTLFG NIL NIL
TEST LOADFOOTPARSER (NODBFLG SYMFLAG SLOWFLAG) UPDATELFG (ASKFLAG) CHANGEDFILES (FS FARG) COMPLFG NIL 
CURRENTLFG NIL GETLFGFILES NIL LISTLFG (DONTASKFLAG) NIL
TESTFREE LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
PREDICATE LOADFOOTPARSER (TAILP DEFINEDP) UPDATELFG NIL CHANGEDFILES (IGREATERP) COMPLFG NIL 
CURRENTLFG NIL GETLFGFILES NIL LISTLFG NIL NIL
EFFECT LOADFOOTPARSER (DECLARE MOVD? MOVD DOFILESLOAD LOAD? FILESLOAD SETUPTTYIN LOADFILES RPLACD 
SETUPLFGWINDOWS FONTCREATE CHANGELFGFONTS RECLAIM) UPDATELFG (PRIN1 TAB SPACES TERPRI FRPLACD MAPC) 
CHANGEDFILES (TERPRI PRIN1 FRPLACD) COMPLFG (MAPC TERPRI) CURRENTLFG (FRPLACD) GETLFGFILES NIL LISTLFG
 (PRIN2 SPACES FRPLACD) NIL
CLISP LOADFOOTPARSER NIL UPDATELFG (for in when collect printout do) CHANGEDFILES (for in when collect
 printout) COMPLFG (for in do) CURRENTLFG (for inside collect) GETLFGFILES NIL LISTLFG (for in when 
collect) NIL
SPECVARS LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
LOCALVARS LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL
 LISTLFG NIL NIL
APPLY LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG (LISTFILES) NIL
ERROR LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
LOCALFREEVARS LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES
 NIL LISTLFG NIL NIL
ARGS LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL 
LISTLFG NIL NIL
USERTEMPLATES SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) 
UNINTERRUPTABLY (CALL .. EVAL) SHAZAM (CALL .. NIL) OP# (CALL) perform (MACRO ARGS (PERFORMTRAN ARGS T
)) PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) SETQ.NOREF (CALL SET EVAL . PPE) NIL
0 LOADFOOTPARSER NIL UPDATELFG NIL CHANGEDFILES NIL COMPLFG NIL CURRENTLFG NIL GETLFGFILES NIL LISTLFG
 NIL NIL

)