(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("11-Feb-86 23:01:34" . {QV}<IDL>SOURCES>ASSIGN.;12)
FNS (ASSIGN ASSIGN! ASSIGN.CODE ASSIGN.LABEL ASSIGN.SELARRAY ASSIGNMAC COPYHACK AT.ASSIGNTRAN 
CLISPIFYUSERFN)
(READATABASE)
(
CALL ASSIGN (APPLY STKEVAL CONS) ASSIGN! (CONV.ARRAY STKEVAL MKSTRING APPLY CONS UERROR UERROR!) 
ASSIGN.CODE (SETVALDIM MAKE1DIMSPEC GETVALDIM UERROR UERROR! MAKE1SLTR UERRORGUARD UERRORSET NAMEDLET 
UERRORNAME CONV.ARITH LITATOM UERRORGUARDVAL CONV.SCALAR FIXR FLOAT LIST) ASSIGN.LABEL (LIST 
MAKE1DIMSPEC MAKESLTR SELTYPEQ SETLEVLAB UERRORGUARD UERRORSET NAMEDLET UERRORNAME LITATOM UERROR 
UERROR! PRIN2 GETRELT PLUS SETUP GETAELT NEXT MAKEDIMSPEC SETDIMLAB) ASSIGN.SELARRAY (IPLUS FETCHFIELD
 COPYROW SETAELT VSCALARPTR UERRORGUARD UERRORSET NAMEDLET UERRORNAME NUMBERP TYPENAMEP UERRORGUARDVAL
 CONV.SCALAR CONV.ARRAY UERROR UERROR! GETAELT NEXT SETUP FIXR) ASSIGNMAC (LIST) COPYHACK (LIST 
COPYHACK FRPLACD CONS PRESERVE MAKETITLE) AT.ASSIGNTRAN (CONS LIST RPLACA) CLISPIFYUSERFN (NCONC 
CLISPIFY LIST) NIL
BIND ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
NLAMBDA ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
NOBIND ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
RECORD ASSIGN NIL ASSIGN! (SELARRAY) ASSIGN.CODE (ARRAYFRAME CODESLTR CODEBOOK) ASSIGN.LABEL (
ARRAYFRAME LABSLTR ROWINT) ASSIGN.SELARRAY (SELARRAY SIMARRAY ROWSCALAR ARRAYFRAME GENSTATEBLOCK) 
ASSIGNMAC NIL COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
CREATE ASSIGN NIL ASSIGN! NIL ASSIGN.CODE (CODEPAIR) ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC 
NIL COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
FETCH ASSIGN NIL ASSIGN! (TARGET) ASSIGN.CODE (CLEV VAL AELTTYPE) ASSIGN.LABEL (LLEV DIM SHAPE DONE 
NDIMS NELTS) ASSIGN.SELARRAY (BASEARRAY ELEMENTBLOCK REFCOUNT AELTTYPE DONE) ASSIGNMAC NIL COPYHACK 
NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
REPLACE ASSIGN NIL ASSIGN! NIL ASSIGN.CODE (CODE CODELAB) ASSIGN.LABEL NIL ASSIGN.SELARRAY (REFCOUNT 
ELEMENTBLOCK) ASSIGNMAC NIL COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
REFFREE ASSIGN NIL ASSIGN! (ASSIGNARGS) ASSIGN.CODE (UERRORSET) ASSIGN.LABEL (UERRORSET) 
ASSIGN.SELARRAY (UERRORSET) ASSIGNMAC NIL COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
REF ASSIGN (ASSIGNARGS) ASSIGN! (UARG) ASSIGN.CODE (A CODESPEC UARG) ASSIGN.LABEL (A LABSPEC DIMNUM 
SLTR UARG $$TMP) ASSIGN.SELARRAY (TARG EB UARG GSBT GSBS) ASSIGNMAC (SRCE TARG) COPYHACK (C) 
AT.ASSIGNTRAN NIL CLISPIFYUSERFN (FORM) NIL
SETFREE ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN (CLISPCHANGE) CLISPIFYUSERFN NIL NIL
SET ASSIGN NIL ASSIGN! (VALUE) ASSIGN.CODE (VALUE SOURCE PAIR C) ASSIGN.LABEL (SOURCE VALUE S L D I) 
ASSIGN.SELARRAY (SOURCE VAL) ASSIGNMAC NIL COPYHACK (Y Z X) AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
SMASHFREE ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
SMASH ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY (BA) ASSIGNMAC NIL 
COPYHACK (Z) AT.ASSIGNTRAN (FORM) CLISPIFYUSERFN NIL NIL
PROP ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
TEST ASSIGN NIL ASSIGN! (TARGET SOURCE A SLTR) ASSIGN.CODE (SOURCE VALDIM PAIR C ATYPE) ASSIGN.LABEL (
SOURCE S GSBS D I) ASSIGN.SELARRAY (SOURCE VALUE VAL FIXFLG) ASSIGNMAC NIL COPYHACK NIL AT.ASSIGNTRAN 
NIL CLISPIFYUSERFN NIL NIL
TESTFREE ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
PREDICATE ASSIGN NIL ASSIGN! (ARRAYTYPEP STRINGP ATOM UERRORPRINT?) ASSIGN.CODE (TYPENAMEP FIXP 
UERRORPRINT? SASSOC) ASSIGN.LABEL (TYPENAMEP FIXP UERRORGUARDVAL UERRORPRINT? IGEQ GREATERP ARRAYTYPEP
 VSCALARP ROWTYPEP) ASSIGN.SELARRAY (ARRAYTYPEP ROWTYPEP IGREATERP VSCALARP UERRORPRINT? FLOATP 
SELECTQ) ASSIGNMAC NIL COPYHACK (TYPENAMEP) AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
EFFECT ASSIGN (DECLARE) ASSIGN! (DECLARE UENTRY ASSIGN.SELARRAY SELECTQ ASSIGN.LABEL ASSIGN.CODE 
SETTITLE PRIN1 PRIN2 TERPRI) ASSIGN.CODE (PRIN1 TERPRI SETCODELAB DECLARE PRIN2 SETCODES FRPLACD) 
ASSIGN.LABEL (DECLARE PRINTOUT PRIN1 TERPRI) ASSIGN.SELARRAY (REPLACEFIELD DECLARE PRIN1 TERPRI 
RESETUP) ASSIGNMAC NIL COPYHACK (SETTITLE) AT.ASSIGNTRAN (RPLACD) CLISPIFYUSERFN NIL NIL
CLISP ASSIGN NIL ASSIGN! (DLAMBDA type? DPROG coerce printout) ASSIGN.CODE (DLAMBDA DPROG printout 
coerce type? for in collect) ASSIGN.LABEL (DLAMBDA DPROG type? coerce for from to declare do bind 
until) ASSIGN.SELARRAY (DLAMBDA DPROG type? coerce printout until bind do) ASSIGNMAC NIL COPYHACK NIL 
AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
SPECVARS ASSIGN (ASSIGNARGS) ASSIGN! (SOURCE TARGET) ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY 
NIL ASSIGNMAC NIL COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
LOCALVARS ASSIGN NIL ASSIGN! (T) ASSIGN.CODE (T) ASSIGN.LABEL (T) ASSIGN.SELARRAY (T) ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
APPLY ASSIGN (ASSIGN! ASSIGN) ASSIGN! (MAKETITLE ASSIGN) ASSIGN.CODE NIL ASSIGN.LABEL NIL 
ASSIGN.SELARRAY NIL ASSIGNMAC NIL COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
ERROR ASSIGN NIL ASSIGN! NIL ASSIGN.CODE (ppe) ASSIGN.LABEL (ppe) ASSIGN.SELARRAY (ppe) ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
LOCALFREEVARS ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC 
NIL COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
ARGS ASSIGN NIL ASSIGN! NIL ASSIGN.CODE NIL ASSIGN.LABEL NIL ASSIGN.SELARRAY NIL ASSIGNMAC NIL 
COPYHACK NIL AT.ASSIGNTRAN NIL CLISPIFYUSERFN NIL NIL
USERTEMPLATES FCACHE.GETPROP (CALL EVAL PROP . PPE) FCACHE.PUTPROP (CALL EVAL PROP EVAL . PPE) UENTRY 
(CALL NIL .. EVAL RETURN) perform (MACRO ARGS (PERFORMTRAN ARGS T)) PERFORM (MACRO ARGS (PERFORMTRAN 
ARGS T)) UERRORGUARD MACRO SHAZAM (CALL .. NIL) UERROR MACRO UERRORSET MACRO SETQ.NOREF (CALL SET EVAL
 . PPE) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) OP# (CALL) NIL
0 ASSIGN NIL ASSIGN! (NIL SELARRAY) ASSIGN.CODE (ARRAY CODESLTR NIL INTEGER LABEL CODEBOOK) 
ASSIGN.LABEL (ARRAY LABSLTR NIL INTEGER LABEL IJK VECTOR LISTP ROWINT) ASSIGN.SELARRAY (SELARRAY NIL 
SIMARRAY ROWSCALAR SCALAR ARRAY FLOATING GENSTATEBLOCK BOOL) ASSIGNMAC NIL COPYHACK NIL AT.ASSIGNTRAN 
NIL CLISPIFYUSERFN NIL NIL

)