(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("10-Aug-84 19:53:03" . {ERIS}<SPEECH>LEXICON>DFOOT.;27)
FNS (FOOT-PARSER CONSONANT? COUNTTHEM VVAS.RULE FALLING-FOOT FIND-BOUNDARY FIND-STRESS FOOT? 
DEFAULT.FOOT ANAPEST-FOOT HEAVY-SYLLABLE-FOOT LAST.BUT.NOT.SEPR HEAVY-SYLLABLE? LONG-VOWEL? MAKE-FOOT 
PACKWORD PACKFOOT PARSE-1-WORD LEFT.SYLLABLE.INCORPORATION SECONDARY-FOOT STRESS? VOWEL?)
(READATABASE)
(
CALL FOOT-PARSER (FALLING-FOOT SECONDARY-FOOT HEAVY-SYLLABLE-FOOT ANAPEST-FOOT DEFAULT.FOOT 
LEFT.SYLLABLE.INCORPORATION) CONSONANT? NIL COUNTTHEM (ARRAYSIZE ELT IPLUS) VVAS.RULE (HEAVY-SYLLABLE?
 STRESS-SYLLABLE SOME) FALLING-FOOT (FIND-STRESS CONS REVERSE NTH LENGTH MAKE-FOOT FIND-BOUNDARY LIST)
 FIND-BOUNDARY (LIST) FIND-STRESS (LIST APPEND) FOOT? NIL DEFAULT.FOOT (NCONC LENGTH LAST LIST 
MAKE-FOOT REVERSE) ANAPEST-FOOT (MAKE-FOOT LIST) HEAVY-SYLLABLE-FOOT (LENGTH HEAVY-SYLLABLE? ADD1 
LAST.BUT.NOT.SEPR APPEND LIST MAKE-FOOT) LAST.BUT.NOT.SEPR (LAST NTH SUB1 LENGTH) HEAVY-SYLLABLE? (
SOME) LONG-VOWEL? NIL MAKE-FOOT (LIST) PACKWORD (NCONC CONS PACKFOOT PACK) PACKFOOT (MAPCONC) 
PARSE-1-WORD (MAKEBITTABLE LISTIFY.SYLLABIFICATION PACKWORD OUTPUT PRIN1 TAB TERPRI) 
LEFT.SYLLABLE.INCORPORATION (MAKE-FOOT APPEND LIST) SECONDARY-FOOT (FIND-STRESS CONS REVERSE NTH MAX 
SUB1 LENGTH MAKE-FOOT FIND-BOUNDARY LIST) STRESS? (LAST.BUT.NOT.SEPR) VOWEL? NIL NIL
BIND FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL 
FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT (HEAVYSYLLABLERESULT) 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL 
PARSE-1-WORD NIL LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
NLAMBDA FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL 
FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR 
NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD NIL 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
NOBIND FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL 
FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR 
NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD NIL 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
RECORD FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE (WORD) FALLING-FOOT NIL FIND-BOUNDARY (
FOOT) FIND-STRESS (FOOT) FOOT? NIL DEFAULT.FOOT (FOOT) ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT (FOOT) 
PARSE-1-WORD (LEXENTRY WORD) LEFT.SYLLABLE.INCORPORATION (FOOT) SECONDARY-FOOT (FOOT) STRESS? NIL 
VOWEL? NIL NIL
CREATE FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL 
FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR 
NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD (WORD) 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
FETCH FOOT-PARSER (STRUCTURE) CONSONANT? NIL COUNTTHEM NIL VVAS.RULE (CATEGORY) FALLING-FOOT NIL 
FIND-BOUNDARY NIL FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT (SYLLABLES) ANAPEST-FOOT NIL 
HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL 
PACKWORD NIL PACKFOOT (SYLLABLES) PARSE-1-WORD (ORTH PRON STRUCTURE INPUT) LEFT.SYLLABLE.INCORPORATION
 (SYLLABLES) SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
REPLACE FOOT-PARSER (STRUCTURE) CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL 
FIND-BOUNDARY NIL FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL 
PARSE-1-WORD (INPUT STRUCTURE) LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? 
NIL NIL
REFFREE FOOT-PARSER NIL CONSONANT? (CONSONANTS) COUNTTHEM NIL VVAS.RULE (WREC) FALLING-FOOT NIL 
FIND-BOUNDARY NIL FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? (LONG-VOWELS) MAKE-FOOT NIL PACKWORD (
FOOTOUTPUTFILE) PACKFOOT NIL PARSE-1-WORD (FOOTOUTPUTFILE) LEFT.SYLLABLE.INCORPORATION NIL 
SECONDARY-FOOT NIL STRESS? NIL VOWEL? (VOWELS) NIL
REF FOOT-PARSER (SYLLABLES) CONSONANT? (SEGMENT) COUNTTHEM (ARRAY) VVAS.RULE (SYLLABLE) FALLING-FOOT 
NIL FIND-BOUNDARY NIL FIND-STRESS NIL FOOT? (FOOTCANDIDATE) DEFAULT.FOOT NIL ANAPEST-FOOT NIL 
HEAVY-SYLLABLE-FOOT (SYLLABLES SYLL#) LAST.BUT.NOT.SEPR (SYLLABLE) HEAVY-SYLLABLE? (SYLLABLE) 
LONG-VOWEL? (SEGMENT) MAKE-FOOT (DOMAIN) PACKWORD NIL PACKFOOT (FOOT SEGMENTS X) PARSE-1-WORD (
ARRAYENTRY BITTBL) LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? (SYLLABLE STRESS#) 
VOWEL? (SEGMENT) NIL
SETFREE FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT (
AFTER-STRESS-TO-BOUNDARY) FIND-BOUNDARY (FOOTFLG) FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL 
ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT (HEAVYSYLLABLEHOLDER) LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL 
LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD (WREC) 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
SET FOOT-PARSER (FEET) CONSONANT? NIL COUNTTHEM (X) VVAS.RULE (TEMP) FALLING-FOOT (SYLLABLE-TAIL 
AFTER-STRESS-STRETCH MAIN-UPTO-SECONDARY SYLLABLES MAIN-UPTO-BOUNDARY) FIND-BOUNDARY (SYLLABLE 
SYLLABLES) FIND-STRESS (SYLLABLE FOOTFLG SYLLABLES) FOOT? NIL DEFAULT.FOOT (SYLL TEMP LASTINFOOT 
SYLLABLES) ANAPEST-FOOT (SYLLABLE-TAIL SYLLABLES) HEAVY-SYLLABLE-FOOT (SYLLABLE FOOTHOLDER) 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD (FOOT FLG STRUC 
RESULT) PACKFOOT NIL PARSE-1-WORD (RESULT) LEFT.SYLLABLE.INCORPORATION (SYLL KEEPER SYLLABLES) 
SECONDARY-FOOT (SYLLABLE-TAIL AFTER-STRESS-STRETCH FOOT-SECONDARY-UPTO-STRESS SYLLABLES) STRESS? NIL 
VOWEL? NIL NIL
SMASHFREE FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY 
NIL FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL 
PARSE-1-WORD (WREC) LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
SMASH FOOT-PARSER (WREC) CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL
 FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR
 NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD NIL 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
PROP FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL 
FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR 
NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD NIL 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
TEST FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL 
FIND-STRESS (FOOTFLG SYLLABLES STRESS) FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT
 NIL LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD (FLG) PACKFOOT 
NIL PARSE-1-WORD (PRINTTOTERMINAL) LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL 
VOWEL? NIL NIL
TESTFREE FOOT-PARSER (DEBUG) CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY
 (FOOTFLG) FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL 
PARSE-1-WORD NIL LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
PREDICATE FOOT-PARSER (BOUNDP) CONSONANT? (MEMBER) COUNTTHEM (IGREATERP) VVAS.RULE (MEMBER LONG-VOWEL?
 NUMBERP) FALLING-FOOT (STRESS?) FIND-BOUNDARY NIL FIND-STRESS (STRESS?) FOOT? (EQUAL) DEFAULT.FOOT (
MEMBER) ANAPEST-FOOT (FOOT? STRESS?) HEAVY-SYLLABLE-FOOT (FOOT? EQUAL LONG-VOWEL?) LAST.BUT.NOT.SEPR (
MEMBER) HEAVY-SYLLABLE? NIL LONG-VOWEL? (MEMBER) MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD 
NIL LEFT.SYLLABLE.INCORPORATION (STRESS?) SECONDARY-FOOT (STRESS?) STRESS? (ZEROP NUMBERP EQUAL) 
VOWEL? (MEMBER) NIL
EFFECT FOOT-PARSER (PRIN1 TERPRI) CONSONANT? NIL COUNTTHEM (PRIN1 TERPRI) VVAS.RULE NIL FALLING-FOOT (
FRPLACD) FIND-BOUNDARY (FRPLACD) FIND-STRESS (FRPLACD) FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT (
FRPLACD) HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT 
NIL PACKWORD (PRIN1 TERPRI) PACKFOOT NIL PARSE-1-WORD (PARSE-WORD-RECORD RESETFORM) 
LEFT.SYLLABLE.INCORPORATION (FRPLACD) SECONDARY-FOOT (FRPLACD) STRESS? NIL VOWEL? NIL NIL
CLISP FOOT-PARSER (printout) CONSONANT? NIL COUNTTHEM (for from to do printout) VVAS.RULE NIL 
FALLING-FOOT (for on old bind collect finally) FIND-BOUNDARY (for in old while collect finally type?) 
FIND-STRESS (for in old while collect finally type?) FOOT? NIL DEFAULT.FOOT (for in old join finally 
type?) ANAPEST-FOOT (for on old collect finally) HEAVY-SYLLABLE-FOOT (for in bind do finally) 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD (for in old join 
finally printout) PACKFOOT (type? for in join) PARSE-1-WORD (printout) LEFT.SYLLABLE.INCORPORATION (
for in old collect finally type?) SECONDARY-FOOT (for on old bind collect finally type?) STRESS? NIL 
VOWEL? NIL NIL
SPECVARS FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL
 FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR
 NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD NIL 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
LOCALVARS FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY 
NIL FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL 
PARSE-1-WORD NIL LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
APPLY FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE (LONG-VOWEL?) FALLING-FOOT NIL 
FIND-BOUNDARY NIL FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? (LONG-VOWEL? VOWEL? CONSONANT?) LONG-VOWEL? NIL MAKE-FOOT NIL 
PACKWORD NIL PACKFOOT NIL PARSE-1-WORD NIL LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? 
NIL VOWEL? NIL NIL
ERROR FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL 
FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR 
NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD NIL 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
LOCALFREEVARS FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL 
FIND-BOUNDARY NIL FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL 
LAST.BUT.NOT.SEPR NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL 
PARSE-1-WORD NIL LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
ARGS FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL 
FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR 
NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD NIL 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL
USERTEMPLATES SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) 
UNINTERRUPTABLY (CALL .. EVAL) OP# (CALL) SETQ.NOREF (CALL SET EVAL . PPE) SHAZAM (CALL .. NIL) 
perform (MACRO ARGS (PERFORMTRAN ARGS T)) PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) NIL
0 FOOT-PARSER NIL CONSONANT? NIL COUNTTHEM NIL VVAS.RULE NIL FALLING-FOOT NIL FIND-BOUNDARY NIL 
FIND-STRESS NIL FOOT? NIL DEFAULT.FOOT NIL ANAPEST-FOOT NIL HEAVY-SYLLABLE-FOOT NIL LAST.BUT.NOT.SEPR 
NIL HEAVY-SYLLABLE? NIL LONG-VOWEL? NIL MAKE-FOOT NIL PACKWORD NIL PACKFOOT NIL PARSE-1-WORD NIL 
LEFT.SYLLABLE.INCORPORATION NIL SECONDARY-FOOT NIL STRESS? NIL VOWEL? NIL NIL

)