(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("22-Nov-85 15:52:24" . {QV}<IDL>SOURCES>EXTEND.;20)
FNS (EAPPLY EAPPLY* EAPPLY*MAC EAPPLY.CALLER EARGNAME EVALP EXPCHK EXPLIST EXPNUM EXTEND EXTENDER 
EXTND.FIXROW EXTND.FNNAME EXTND.KEEPTITLE EXTND.MAPTITLE EXTND.PACKRSLT KEEP KEEP.MERGE LEAVE)
(READATABASE)
(
CALL EAPPLY (UENTRY APPLY CONS EXPLIST) EAPPLY* (UENTRY SETARG ARG UERRORGUARD UERRORSET NAMEDLET 
UERRORNAME EVALP UERROR UERROR! PRIN1 EXPLIST NUMBERP TYPENAMEP UERRORGUARDVAL CONV.SCALAR CONV.ARRAY 
EARGNAME IDIFFERENCE PRIN2 FUNCTION LIST PLUS APPLY) EAPPLY*MAC (LIST KWOTE EXPLIST CONS) 
EAPPLY.CALLER (ARG UERRORGUARD UERRORSET NAMEDLET UERRORNAME NUMBERP TYPENAMEP UERRORGUARDVAL 
CONV.SCALAR CONV.ARRAY UERROR UERROR! EARGNAME IDIFFERENCE PRIN2 FUNCTION LIST PLUS APPLY) EARGNAME (
ARGLIST PACK* NTH) EVALP (FMEMB ARGTYPE) EXPCHK (FIXSPELL UERRORGUARD UERRORGUARDVAL UERRORSET 
NAMEDLET UERRORNAME CONV.SCALAR) EXPLIST (MAPLIST SELECTQ EXPNUM) EXPNUM (SELECTQ EXPNUM FIXSPELL 
UERROR UERROR! UERRORGUARD UERRORSET NAMEDLET UERRORNAME IGEQ UERRORGUARDVAL CONV.SCALAR FIXR 
CONV.ARITH) EXTEND (UENTRY FNTYP UERROR UERROR! GETD ARGLIST PACK* EVALP EXPCHK LIST NCONC CONS KWOTE 
SUBST) EXTENDER (ARG IMAX IDIFFERENCE PLUS FLENGTH GENROW SUB1 XDM GETRELT UERROR PRIN1 UERROR! IPLUS 
NLOGICALELTS FSELECT LIST APPLY UERRORGUARD UERRORSET NAMEDLET UERRORNAME NUMBERP TYPENAMEP 
UERRORGUARDVAL CONV.SCALAR CONV.ARRAY PRIN2 GETAELT VSCALARPTR EQUALROW EXTND.FIXROW IJKBOX FLOATROW 
IEQP ADD1 EXTND.PACKRSLT CONS GETTITLE EXTND.KEEPTITLE ROWINTOF EXTND.FNNAME) EXTND.FIXROW (
UERRORGUARD UERRORSET NAMEDLET UERRORNAME SETRELT CONV.SCALAR GETRELT UERROR UERROR! IPLUS) 
EXTND.FNNAME (SUBSTRING CONSTANT CONCAT SUBATOM NTHCHARCODE IPLUS) EXTND.KEEPTITLE (GETTITLE CONS 
MAPCAR GETDIMLAB) EXTND.MAPTITLE (LISTP FASSOC MAPCAR EXTND.MAPTITLE) EXTND.PACKRSLT (NLOGICALELTS 
LISTP GETRELT IPLUS ADD1 SETUP GETAELT NEXT NCONC LIST MAPCAR EXTND.MAPTITLE GETTITLE) KEEP (UENTRY 
ARG CONV.ARRAY VFROMR CONV.ROWINT ROWINTOF MAKETITLE PRESERVE LIST IPLUS KEEP.MERGE NCONC UERRORGUARD 
UERRORGUARDVAL UERRORSET NAMEDLET UERRORNAME MAKE1DIMSPEC MAKEDIMSPEC GETRELT) KEEP.MERGE (NCONC LIST 
COPY) LEAVE (UENTRY ARG CONV.ARRAY PRESERVE UERRORGUARD UERRORGUARDVAL UERRORSET NAMEDLET UERRORNAME 
MAKE1DIMSPEC MAKEDIMSPEC IPLUS GETRELT LIST) NIL
BIND EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL EXPLIST
 NIL EXPNUM NIL EXTEND NIL EXTENDER NIL EXTND.FIXROW NIL EXTND.FNNAME NIL EXTND.KEEPTITLE NIL 
EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE NIL LEAVE NIL NIL
NLAMBDA EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL 
EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER NIL EXTND.FIXROW NIL EXTND.FNNAME (CHARCODE) 
EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE NIL LEAVE NIL NIL
NOBIND EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL 
EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER NIL EXTND.FIXROW NIL EXTND.FNNAME NIL EXTND.KEEPTITLE NIL 
EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE NIL LEAVE NIL NIL
RECORD EAPPLY NIL EAPPLY* (ARRAYFRAME) EAPPLY*MAC NIL EAPPLY.CALLER (ARRAYFRAME) EARGNAME NIL EVALP 
NIL EXPCHK NIL EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER (ROWPTR ROWINT ARRAYFRAME ROWSCALAR) 
EXTND.FIXROW (ROWPTR ROWSCALAR) EXTND.FNNAME NIL EXTND.KEEPTITLE (ARRAYFRAME) EXTND.MAPTITLE NIL 
EXTND.PACKRSLT (ROWPTR ROWINT SIMARRAY ARRAYFRAME ROWSCALAR GENSTATEBLOCK) KEEP (ARRAYFRAME) 
KEEP.MERGE NIL LEAVE (ARRAYFRAME ROWINT) NIL
CREATE EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL 
EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER (ROWPTR ROWINT ROW SIMARRAY) EXTND.FIXROW (ROWSCALAR) 
EXTND.FNNAME NIL EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT (ROWINT ROWSCALAR SIMARRAY) 
KEEP NIL KEEP.MERGE NIL LEAVE NIL NIL
FETCH EAPPLY NIL EAPPLY* (KEEPS NDIMS) EAPPLY*MAC NIL EAPPLY.CALLER (KEEPS NDIMS) EARGNAME NIL EVALP 
NIL EXPCHK NIL EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER (ARG NDIMS KEEPS SHAPE TOOBIG DISC RELTTYPE)
 EXTND.FIXROW (NELTS) EXTND.FNNAME NIL EXTND.KEEPTITLE (KEEPS) EXTND.MAPTITLE NIL EXTND.PACKRSLT (
NELTS NDIMS SHAPE AELTTYPE DONE KEEPS) KEEP (KEEPS NDIMS NELTS) KEEP.MERGE NIL LEAVE (KEEPS NELTS) NIL
REPLACE EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL 
EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER (NELTS INIT DIMMAP DISC RELTTYPE SHAPE ELEMENTBLOCK FORMAT)
 EXTND.FIXROW (NELTS RELTTYPE) EXTND.FNNAME NIL EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT 
(NELTS RELTTYPE SHAPE ELEMENTBLOCK FORMAT KEEPS) KEEP (KEEPS) KEEP.MERGE NIL LEAVE (KEEPS) NIL
REFFREE EAPPLY NIL EAPPLY* (UERRORSET) EAPPLY*MAC NIL EAPPLY.CALLER (UERRORSET) EARGNAME NIL EVALP NIL
 EXPCHK (UERRORSET) EXPLIST NIL EXPNUM (UERRORSET) EXTEND NIL EXTENDER (EAPPLYARGS UERRORSET 
UERRORNAME) EXTND.FIXROW (UERRORSET) EXTND.FNNAME NIL EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL 
EXTND.PACKRSLT NIL KEEP (UERRORSET) KEEP.MERGE NIL LEAVE (UERRORSET) NIL
REF EAPPLY (FN ARGS) EAPPLY* (EAPPLYARGS UARG) EAPPLY*MAC (EARGS TEMP) EAPPLY.CALLER (EAPPLYARGS UARG)
 EARGNAME (N) EVALP (F) EXPCHK NIL EXPLIST NIL EXPNUM (UARG) EXTEND (FN) EXTENDER (NXARGS FN DV X DIM 
CSHP SR UARG) EXTND.FIXROW (R N VALUE NEW) EXTND.FNNAME (F VALUE) EXTND.KEEPTITLE (A VALUE ATIT) 
EXTND.MAPTITLE NIL EXTND.PACKRSLT (RPTR EXSHP VALUE N RN ED ID SHP ISHP) KEEP (NARGS UARG) KEEP.MERGE 
NIL LEAVE (NARGS UARG) NIL
SETFREE EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL 
EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER NIL EXTND.FIXROW NIL EXTND.FNNAME NIL EXTND.KEEPTITLE NIL 
EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE NIL LEAVE NIL NIL
SET EAPPLY NIL EAPPLY* (FN VALUE EL EI AI I) EAPPLY*MAC NIL EAPPLY.CALLER (EI EL AI VALUE FN I) 
EARGNAME (FN) EVALP NIL EXPCHK (I TMP) EXPLIST NIL EXPNUM (EI) EXTEND (I TMP DEF NEWNAME) EXTENDER (I 
NDE EXPECTS A NDA XD KEPT J K P L C M INVIDX ISHP EXTNDSHP SLCIDX APPLYLIST RSLT VALUE OUT V IDX IARG)
 EXTND.FIXROW (I) EXTND.FNNAME (I) EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT (I J OUT GSB 
RI) KEEP (VALUE A I ARG VAL J) KEEP.MERGE (J I) LEAVE (VALUE A VAL J I ARGJ M) NIL
SMASHFREE EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL 
EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER NIL EXTND.FIXROW NIL EXTND.FNNAME NIL EXTND.KEEPTITLE NIL 
EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE NIL LEAVE NIL NIL
SMASH EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK (I) 
EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER (I) EXTND.FIXROW NIL EXTND.FNNAME NIL EXTND.KEEPTITLE NIL 
EXTND.MAPTITLE NIL EXTND.PACKRSLT (OUT) KEEP (A) KEEP.MERGE (I) LEAVE (A) NIL
PROP EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL EXPLIST
 NIL EXPNUM NIL EXTEND NIL EXTENDER NIL EXTND.FIXROW NIL EXTND.FNNAME NIL EXTND.KEEPTITLE NIL 
EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE NIL LEAVE NIL NIL
TEST EAPPLY (EXPECTS) EAPPLY* (EI VALUE) EAPPLY*MAC (EAPPLYFLG) EAPPLY.CALLER (EI VALUE) EARGNAME NIL 
EVALP NIL EXPCHK (EX VALUE I TMP) EXPLIST (EL VALUE I) EXPNUM (EI VALUE) EXTEND (EXPECTS TMP DEF I) 
EXTENDER (OUT I A KEPT NDA NDE XD EXPECTS J L P K M DMAP IDX APPLYLIST RSLT END VALUE CA IARG) 
EXTND.FIXROW NIL EXTND.FNNAME (I) EXTND.KEEPTITLE (AK I) EXTND.MAPTITLE (A L I) EXTND.PACKRSLT (
TITLEMAP I J) KEEP (AK I VAL ARG J) KEEP.MERGE (NK OK VALUE I J) LEAVE (AK J VAL I ARGJ M) NIL
TESTFREE EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL 
EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER (LABPROPFLAG) EXTND.FIXROW NIL EXTND.FNNAME NIL 
EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT (LABPROPFLAG) KEEP NIL KEEP.MERGE NIL LEAVE NIL 
NIL
PREDICATE EAPPLY (FNTYP EVALP) EAPPLY* (FNTYP UERRORPRINT? GREATERP IGREATERP) EAPPLY*MAC (FMEMB FNTYP
 EVALP HELP) EAPPLY.CALLER (GREATERP UERRORPRINT? IGREATERP) EARGNAME (LITATOM) EVALP (FNTYP) EXPCHK (
LITATOM FMEMB FRPLACA MINUSP) EXPLIST NIL EXPNUM (FIXP LITATOM UERRORPRINT?) EXTEND (UERRORPRINT? 
LITATOM EXPRP SELECTQ FMEMB EQUAL) EXTENDER (FNTYP ROWTYPEP FIXP BETWEEN IGREATERP GREATERP ILESSP 
LABELP UERRORPRINT? VSCALARP FLOATP IGEQ LESSP FMEMB) EXTND.FIXROW (ROWTYPEP FIXP BETWEEN IGEQ 
IGREATERP UERRORGUARDVAL FLOATP UERRORPRINT?) EXTND.FNNAME (FNTYP LITATOM STREQUAL ILESSP BETWEEN) 
EXTND.KEEPTITLE (TYPENAMEP STRINGP) EXTND.MAPTITLE (EVERY) EXTND.PACKRSLT (ROWTYPEP IEQP EVERY 
ARRAYTYPEP FIXP IGEQ TYPENAMEP IGREATERP) KEEP (IGREATERP TYPENAMEP ILESSP) KEEP.MERGE (FMEMB) LEAVE (
IGREATERP TYPENAMEP ROWTYPEP IEQP) NIL
EFFECT EAPPLY (DECLARE) EAPPLY* (DECLARE PRINTOUT TERPRI FRPLACD) EAPPLY*MAC NIL EAPPLY.CALLER (
DECLARE PRINTOUT PRIN1 TERPRI FRPLACD) EARGNAME NIL EVALP NIL EXPCHK NIL EXPLIST (PRIN1 TERPRI) EXPNUM
 (PRIN1 TERPRI DECLARE PRIN2) EXTEND (DECLARE PRIN1 PRIN2 TERPRI /RPLACD /PUTD) EXTENDER (DECLARE 
SETRELT PRINTOUT TERPRI FRPLACD ADJUST.SELECTION LAB.COPYDIM SETTITLE) EXTND.FIXROW (PRIN1 TERPRI) 
EXTND.FNNAME NIL EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT (SETRELT FRPLACD LAB.COPYDIM 
SETTITLE) KEEP (DECLARE FRPLACD) KEEP.MERGE (FRPLACD) LEAVE (DECLARE SETARG FRPLACD) NIL
CLISP EAPPLY (ULAMBDA DLAMBDA) EAPPLY* (bind first for from to collect finally coerce type?) 
EAPPLY*MAC NIL EAPPLY.CALLER (bind for from to collect finally coerce type?) EARGNAME NIL EVALP (
DLAMBDA) EXPCHK (DLAMBDA the for on thereis) EXPLIST (DLAMBDA the for on collect printout) EXPNUM (
DLAMBDA the printout coerce type?) EXTEND (ULAMBDA DPROG type? printout for in always) EXTENDER (DPROG
 for to when do type? in as from always bind declare finally thereis unless the until first collect 
coerce by repeatwhile) EXTND.FIXROW (DLAMBDA the DPROG for to declare do type? printout) EXTND.FNNAME 
(DLAMBDA the for from by to always) EXTND.KEEPTITLE (DLAMBDA the DPROG for in collect) EXTND.MAPTITLE 
(DLAMBDA the for in collect) EXTND.PACKRSLT (DLAMBDA the DPROG for to do bind declare as from always 
until collect in) KEEP (DPROG coerce the for to collect from when join) KEEP.MERGE (DLAMBDA the bind 
do while for on until thereis in collect unless) LEAVE (DPROG coerce the for from to do in collect 
unless thereis type? DPROGN) NIL
SPECVARS EAPPLY (FN EXPECTS ARGS) EAPPLY* (EAPPLYARGS) EAPPLY*MAC NIL EAPPLY.CALLER (EAPPLYARGS) 
EARGNAME NIL EVALP NIL EXPCHK NIL EXPLIST NIL EXPNUM NIL EXTEND (FN EXPECTS) EXTENDER NIL EXTND.FIXROW
 NIL EXTND.FNNAME NIL EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE 
NIL LEAVE NIL NIL
LOCALVARS EAPPLY NIL EAPPLY* (T) EAPPLY*MAC NIL EAPPLY.CALLER (T) EARGNAME NIL EVALP NIL EXPCHK NIL 
EXPLIST NIL EXPNUM (T) EXTEND NIL EXTENDER (T) EXTND.FIXROW NIL EXTND.FNNAME NIL EXTND.KEEPTITLE NIL 
EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP (T) KEEP.MERGE NIL LEAVE (T) NIL
APPLY EAPPLY (EAPPLY.CALLER) EAPPLY* (EXTENDER) EAPPLY*MAC NIL EAPPLY.CALLER (EXTENDER) EARGNAME NIL 
EVALP NIL EXPCHK NIL EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER (MAKETITLE) EXTND.FIXROW NIL 
EXTND.FNNAME NIL EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE NIL 
LEAVE NIL NIL
ERROR EAPPLY NIL EAPPLY* (ppe apply) EAPPLY*MAC NIL EAPPLY.CALLER (ppe apply) EARGNAME NIL EVALP NIL 
EXPCHK (ppe) EXPLIST NIL EXPNUM (ppe) EXTEND NIL EXTENDER (apply ppe) EXTND.FIXROW (ppe) EXTND.FNNAME 
NIL EXTND.KEEPTITLE NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP (ppe) KEEP.MERGE NIL LEAVE (ppe) 
NIL
LOCALFREEVARS EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK 
NIL EXPLIST NIL EXPNUM NIL EXTEND NIL EXTENDER NIL EXTND.FIXROW NIL EXTND.FNNAME NIL EXTND.KEEPTITLE 
NIL EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE NIL LEAVE NIL NIL
ARGS EAPPLY NIL EAPPLY* NIL EAPPLY*MAC NIL EAPPLY.CALLER NIL EARGNAME NIL EVALP NIL EXPCHK NIL EXPLIST
 NIL EXPNUM NIL EXTEND NIL EXTENDER NIL EXTND.FIXROW NIL EXTND.FNNAME NIL EXTND.KEEPTITLE NIL 
EXTND.MAPTITLE NIL EXTND.PACKRSLT NIL KEEP NIL KEEP.MERGE NIL LEAVE NIL NIL
USERTEMPLATES SHAZAM (CALL .. NIL) FCACHE.GETPROP (CALL EVAL PROP . PPE) UERRORSET MACRO SETQ.NOREF (
CALL SET EVAL . PPE) UENTRY (CALL NIL .. EVAL RETURN) FCACHE.PUTPROP (CALL EVAL PROP EVAL . PPE) 
SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) perform (MACRO ARGS (PERFORMTRAN ARGS T)) SPREADAPPLY* (CALL 
FUNCTIONAL .. EVAL) OP# (CALL) PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) UERRORGUARD MACRO UERROR 
MACRO NIL
0 EAPPLY (FUNCTION LST LISTP) EAPPLY* (FUNCTION SCALAR ARRAY) EAPPLY*MAC NIL EAPPLY.CALLER (SCALAR 
ARRAY) EARGNAME NIL EVALP (FUNCTION) EXPCHK (LST NIL) EXPLIST (LST NIL) EXPNUM (NIL CARDINAL) EXTEND (
FUNCTION LST LITATOM NIL) EXTENDER (FUNCTION NIL ROWPTR INTEGER ROWINT ARRAY SCALAR ROWSCALAR FLOATING
 IJK) EXTND.FIXROW (ROWPTR INTEGER ROWSCALAR NIL IJK FLOATING) EXTND.FNNAME (FUNCTION LITATOM NIL) 
EXTND.KEEPTITLE (ARRAY TITLE LST NIL) EXTND.MAPTITLE (ALIST NIL ANY) EXTND.PACKRSLT (ROWPTR ROWINT 
ALIST SIMARRAY IJK ARRAY INTEGER ROWSCALAR NIL GENSTATEBLOCK) KEEP (ARRAY LST NIL) KEEP.MERGE (LST NIL
) LEAVE (ARRAY LST NIL ROWINT) NIL

)