(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 8-Jul-84 12:29:11" . {ERIS}<LISPUSERS>SETF.;5)
FNS (SETF.DECLARERECORD SETF.DECLARERECORD1 SETF.FIXDATUM SETF.ELT SETF.CLISP SETF.CLISP1 SETF.TRAN 
SETF.HELPER)
(READATABASE)
(
CALL SETF.DECLARERECORD (SETF.OLD.DECLARERECORD MAPCAR RECORDFIELDNAMES SETF.DECLARERECORD1) 
SETF.DECLARERECORD1 (PACK* LIST CONS) SETF.FIXDATUM (GETPROP SETF.OLD.FIXDATUM LIST) SETF.ELT (LIST) 
SETF.CLISP (RESETVARS CONS XNLSETQ SETF.CLISP1 NLEFT ERROR!) SETF.CLISP1 (LIST GETPROP APPLY* DSUBST 
SUBST \RECORDBLOCK/ACCESSDEF \RECORDBLOCK/MAKEACCESS \RECORDBLOCK/EMBEDPROG RESETVARS CONS XNLSETQ 
NLEFT ERROR!) SETF.TRAN (LIST GETPROP APPLY* DSUBST SUBST) SETF.HELPER (STRPOS NCHARS SUBATOM SUB1 
ADD1 RECLOOK RECORDFIELDNAMES) NIL
BIND SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 (LISPXHIST) SETF.TRAN (TYPE FIELD ACCESS) SETF.HELPER NIL NIL
NLAMBDA SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 (BREAK1) SETF.TRAN (BREAK1) SETF.HELPER NIL NIL
NOBIND SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
RECORD SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
CREATE SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
FETCH SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
REPLACE SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
REFFREE SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP (
RECORDSTATS) SETF.CLISP1 (FAULTFN) SETF.TRAN NIL SETF.HELPER (FAULTX) NIL
REF SETF.DECLARERECORD (DEC FIELD) SETF.DECLARERECORD1 (TYPE FIELD) SETF.FIXDATUM (FORM DECLST) 
SETF.ELT (SEX) SETF.CLISP (SEX MACROX) SETF.CLISP1 (SEX) SETF.TRAN NIL SETF.HELPER NIL NIL
SETFREE SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP (
RESETVARSLST PATGENSYMVARS CLISPCHANGE) SETF.CLISP1 (FAULTX RESETVARSLST DWIMESSGAG NOSPELLFLG) 
SETF.TRAN (FAULTX) SETF.HELPER NIL NIL
SET SETF.DECLARERECORD (ANSWER TYPE) SETF.DECLARERECORD1 (TYPE.FIELD TYPE&FIELD) SETF.FIXDATUM (
TYPE&FIELD ANSWER) SETF.ELT NIL SETF.CLISP (MACROY $FEXPR$) SETF.CLISP1 (REF TYPE.FIELD DEF DATUM 
NEWVALUE TYPE&FIELD TYPE FIELD ACCESS MACROY MACROX) SETF.TRAN (REF TYPE.FIELD DEF DATUM NEWVALUE 
TYPE&FIELD ANSWER $FEXPR$) SETF.HELPER (TYPE.FIELD P TYPE FIELD DEC) NIL
SMASHFREE SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL
 SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
SMASH SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN (SEX) SETF.HELPER NIL NIL
PROP SETF.DECLARERECORD (SETF) SETF.DECLARERECORD1 (TYPE&FIELD CLISPWORD TRAN) SETF.FIXDATUM (
TYPE&FIELD) SETF.ELT NIL SETF.CLISP NIL SETF.CLISP1 (SETFDEF TYPE&FIELD) SETF.TRAN (SETFDEF TYPE&FIELD
) SETF.HELPER (TYPE&FIELD) NIL
TEST SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 (TYPE&FIELD BINDINGS) SETF.TRAN (TYPE&FIELD) SETF.HELPER (P) NIL
TESTFREE SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
PREDICATE SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP (
TAILP) SETF.CLISP1 (MEMB LITATOM TAILP) SETF.TRAN (MEMB LITATOM) SETF.HELPER (LITATOM GETPROP IEQP 
MEMB) NIL
EFFECT SETF.DECLARERECORD (PUTPROP) SETF.DECLARERECORD1 (PUTPROP) SETF.FIXDATUM NIL SETF.ELT NIL 
SETF.CLISP (DECLARE LISPXWATCH RPLACD) SETF.CLISP1 (DECLARE CLISPTRAN SETF.HELPER PRINT BREAK1 
\RECORDBLOCK/DWIMIFYREC DWIMIFY0? RPLACD) SETF.TRAN (RPLACA RPLACD SETF.HELPER PRINT BREAK1) 
SETF.HELPER (DECLARE EVAL) NIL
CLISP SETF.DECLARERECORD (for in collect) SETF.DECLARERECORD1 (\BQUOTE) SETF.FIXDATUM (\BQUOTE) 
SETF.ELT (\BQUOTE) SETF.CLISP NIL SETF.CLISP1 (\BQUOTE) SETF.TRAN (\BQUOTE) SETF.HELPER NIL NIL
SPECVARS SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 (LISPXHIST DWIMESSGAG NOSPELLFLG) SETF.TRAN NIL SETF.HELPER NIL NIL
LOCALVARS SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL
 SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
APPLY SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
ERROR SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 (apply) SETF.TRAN (apply) SETF.HELPER NIL NIL
LOCALFREEVARS SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP
 NIL SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
ARGS SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL
USERTEMPLATES SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) OP# (
CALL) SETQ.NOREF (CALL SET EVAL . PPE) NIL
0 SETF.DECLARERECORD NIL SETF.DECLARERECORD1 NIL SETF.FIXDATUM NIL SETF.ELT NIL SETF.CLISP NIL 
SETF.CLISP1 NIL SETF.TRAN NIL SETF.HELPER NIL NIL

)