(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("26-Feb-85 10:23:12" . {ERIS}<SPEECH>MAILREADER>PROSE-CONTROLLER.;26)
FNS (P.CONTROLLER P.SET.USERNAME P.SET.PASSWORD P.USER.INIT P.DECIPHER.TOUCHTONES P.INVALID.TOUCHTONES
 P.CONTROLLER.RESET)
(READATABASE)
(
CALL P.CONTROLLER (GETSTREAM P.MAILFILE IGNORETIMER) P.SET.USERNAME (MKSTRING PACK GETHASHFILE FLENGTH
 CONCAT L-CASE) P.SET.PASSWORD (PACK P.DECIPHER.TOUCHTONES MKSTRING SELECTQ) P.USER.INIT NIL 
P.DECIPHER.TOUCHTONES (CONS NTH ASSOC PACK REVERSE) P.INVALID.TOUCHTONES (P.CHUNK) P.CONTROLLER.RESET 
(RECORDFIELDNAMES LIST* CONS LIST LAFITE) NIL
BIND P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL 
P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL
NLAMBDA P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD (USEDFREE) P.USER.INIT NIL 
P.DECIPHER.TOUCHTONES NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (BQUOTE) NIL
NOBIND P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES 
NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL
RECORD P.CONTROLLER (STATE LAFITEINFO USERINFO STATEINFO PROSEINPUT INPUTINFO) P.SET.USERNAME (STATE 
INPUTINFO LOGININFO USERINFO) P.SET.PASSWORD (STATE INPUTINFO USERINFO) P.USER.INIT NIL 
P.DECIPHER.TOUCHTONES NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (STATE) NIL
CREATE P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES 
NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (STATE) NIL
FETCH P.CONTROLLER (PHONEINPUT QUIT COMMAND LAFITEINFO NONEWMAIL MESSAGEQUERY? TALKING USERINFO USER 
PASSWORD STATEINFO PROSEINPUT TEMPFILE FOLDEROPEN NEWMAIL MAILFOLDER MSGDESCRIPTOR INPUTINFO) 
P.SET.USERNAME (INPUTINFO COMMAND NAME USERINFO PRONUNCIATION) P.SET.PASSWORD (INPUTINFO COMMAND USER 
USERINFO) P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (USER)
 NIL
REPLACE P.CONTROLLER (QUIT MESSAGEQUERY? TALKING HALTSPEECH) P.SET.USERNAME (USER TOUCHTONES) 
P.SET.PASSWORD (PASSWORD) P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL P.INVALID.TOUCHTONES NIL 
P.CONTROLLER.RESET (PROSESETTINGS PROCESS TONEPROCESS OPERATORPROCESS) NIL
REFFREE P.CONTROLLER NIL P.SET.USERNAME (MAILREADERUSERSFILE) P.SET.PASSWORD (MAILREADERLOGFILE) 
P.USER.INIT NIL P.DECIPHER.TOUCHTONES (P.TOUCHTONE.LIST) P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (
PROSE.DEFAULT.SETTINGS \PROSE.PROCESS \TONE.MONITOR.PROCESS \PROSE.OPERATOR.PROCESS) NIL
REF P.CONTROLLER NIL P.SET.USERNAME (TOUCHTONES) P.SET.PASSWORD NIL P.USER.INIT (USER) 
P.DECIPHER.TOUCHTONES (TOUCHTONES) P.INVALID.TOUCHTONES (TOUCHTONE.STATE) P.CONTROLLER.RESET NIL NIL
SETFREE P.CONTROLLER (TRIGGERBUTTON ALL.NUMERIC.PASSWORD) P.SET.USERNAME NIL P.SET.PASSWORD (PASSWORD 
ALL.NUMERIC.PASSWORD \LAFITE.AUTHENTICATION.FAILURE) P.USER.INIT (P.HELP.FLG) P.DECIPHER.TOUCHTONES 
NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (STATE PROSESETTINGS \LAFITE.LAST.STATUS 
LAFITEDEFAULTHOST&DIR ALL.NUMERIC.PASSWORD) NIL
SET P.CONTROLLER NIL P.SET.USERNAME (PEOPLE.WITH.SAME.TOUCHTONES ACTUAL.PERSON PERSON) P.SET.PASSWORD 
NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES (TOUCHTONE.STATE TONE LETTER.LIST) P.INVALID.TOUCHTONES NIL 
P.CONTROLLER.RESET (X) NIL
SMASHFREE P.CONTROLLER (STATE) P.SET.USERNAME (STATE) P.SET.PASSWORD (STATE) P.USER.INIT NIL 
P.DECIPHER.TOUCHTONES NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (STATE) NIL
SMASH P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL
 P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL
PROP P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL 
P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL
TEST P.CONTROLLER (MAILFILE) P.SET.USERNAME (PEOPLE.WITH.SAME.TOUCHTONES) P.SET.PASSWORD NIL 
P.USER.INIT NIL P.DECIPHER.TOUCHTONES (LETTER.LIST) P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (
DONTTOUCH) NIL
TESTFREE P.CONTROLLER (ALL.NUMERIC.PASSWORD) P.SET.USERNAME NIL P.SET.PASSWORD (ALL.NUMERIC.PASSWORD 
PASSWORD) P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL 
NIL
PREDICATE P.CONTROLLER (EQUAL P.SET.PASSWORD) P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL 
P.DECIPHER.TOUCHTONES NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (MEMBER) NIL
EFFECT P.CONTROLLER (DEBUGOUTPUT? VERIFYINPUT MAKECOMMAND P.HELP P.CHUNK P.BYE PROSE.STOP 
P.SET.USERNAME P.USER.INIT P.LAFITE.START.NEW.USER P.QUIT.OR.READ.OLD.MAIL BACK.SENTENCE COPYMSGBYTES 
P.FINISHED.ACTIONS P.OPEN.FOLDER.AND.GET.NEW.MAIL P.READ.OLD.MAIL SHOULDNT P.SAY.BODY P.SELECT.MSG 
P.SELECT.AND.SAY.MSG P.RESET.TIMER) P.SET.USERNAME (P.CHUNK SAY.PHONEMES) P.SET.PASSWORD (USEDFREE 
SETUSERNAME SETPASSWORD LAFITECLEARCACHE P.CHUNK P.AUTHENTICATE P.CONTROLLER.RESET PRIN1 TERPRI) 
P.USER.INIT NIL P.DECIPHER.TOUCHTONES (SELECTQ SHOULDNT P.INVALID.TOUCHTONES) P.INVALID.TOUCHTONES (
SELECTQ SHOULDNT) P.CONTROLLER.RESET (EVAL SETUSERNAME SETPASSWORD LAFITECLEARCACHE) NIL
CLISP P.CONTROLLER NIL P.SET.USERNAME (for in do finally) P.SET.PASSWORD (printout) P.USER.INIT NIL 
P.DECIPHER.TOUCHTONES (for in do finally) P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (for in unless 
do) NIL
SPECVARS P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES 
NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL
LOCALVARS P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES
 NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL
APPLY P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL
 P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL
ERROR P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL
 P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET (ppe) NIL
LOCALFREEVARS P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL 
P.DECIPHER.TOUCHTONES NIL P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL
ARGS P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL 
P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL
USERTEMPLATES SHAZAM (CALL .. NIL) OP# (CALL) WINDOWPROP (CALL EVAL PROP EVAL . PPE) perform (MACRO 
ARGS (PERFORMTRAN ARGS T)) UNINTERRUPTABLY (CALL .. EVAL) WINDOWDELPROP (CALL EVAL PROP EVAL . PPE) 
PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) WINDOWADDPROP (CALL EVAL PROP EVAL EVAL . PPE) NIL
0 P.CONTROLLER NIL P.SET.USERNAME NIL P.SET.PASSWORD NIL P.USER.INIT NIL P.DECIPHER.TOUCHTONES NIL 
P.INVALID.TOUCHTONES NIL P.CONTROLLER.RESET NIL NIL

)