(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
)