(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 4-Sep-85 13:10:59" . {QV}<IDL>SOURCES>AT.;10)
FNS (AT AT.CODE AT.LABEL CODE INDEX INDEX1 LABEL MAKE1DIMSPEC MAKEDIMSPEC MAKE1SLTR MAKESLTR TITLE)
(READATABASE)
(
CALL AT (UENTRY CONV.ARRAY UERROR UERROR! LIST SELECTQ AT.LABEL AT.CODE MAKEUSERTITLE MAKE1DIMSPEC 
MAKESLTR FSELECT IDIFFERENCE LENGTH IPLUS) AT.CODE (GETVALDIM GETCODES MAKE1SLTR MAPCAR LIST perform 
GETCODENUM) AT.LABEL (LITATOM MAKE1DIMSPEC MAKESLTR SELTYPEQ GETLEVLAB GETRELT LIST IPLUS SETUP 
GETAELT NEXT UERROR UERROR! GETDIMLAB MAKEDIMSPEC) CODE (UENTRY LITATOM FIXP UERRORGUARD 
UERRORGUARDVAL UERRORSET NAMEDLET UERRORNAME CONV.SCALAR UERROR UERROR! FIXR CONV.ARITH NUMBERP) INDEX
 (UENTRY CONV.ARRAY UERROR UERROR! SELECTQ MAKE1DIMSPEC RESETVARS CONS XNLSETQ INDEX1 NLEFT ERROR!) 
INDEX1 (GETRELT UERRORGUARD UERRORSET NAMEDLET UERRORNAME VFROMR GENROW CONV.NARRAY ARRAYTYPEP 
COPYIDLARRAY ADD1 IPLUS PRESERVE MAKE1SLTR MAKE1DIMSPEC UERROR UERROR!) LABEL (UENTRY UERROR UERROR!) 
MAKE1DIMSPEC (NLSETQ MKATOM UERROR UERROR! GETDIMNUM UERRORGUARD UERRORSET NAMEDLET UERRORNAME 
CONV.SCALAR DIMENSIONP FIXR IPLUS) MAKEDIMSPEC (UERRORGUARD UERRORSET NAMEDLET UERRORNAME CONV.ROWINT 
GETRELT IPLUS COPYROW UERROR UERROR! GENROW LIST LENGTH MAKE1DIMSPEC) MAKE1SLTR (NLSETQ MKATOM UERROR 
UERROR! GETLEVNUM UERRORGUARD UERRORSET NAMEDLET UERRORNAME CONV.SCALAR LEVELP FIXR IPLUS GETRELT) 
MAKESLTR (UERRORGUARD UERRORSET NAMEDLET UERRORNAME CONV.NARRAY ARRAYTYPEP COPYIDLARRAY UERROR UERROR!
 ADD1 GETRELT IPLUS PRESERVE MAKE1SLTR) TITLE NIL NIL
BIND AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
NLAMBDA AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
NOBIND AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE (T) NIL
RECORD AT (ARRAYFRAME ROWPTR SELARRAY) AT.CODE (ARRAYFRAME CODESLTR CODEBOOK PERFORMOPS) AT.LABEL (
ARRAYFRAME LABSLTR ROWINT) CODE (CODESLTR) INDEX (ARRAYFRAME) INDEX1 (ARRAYFRAME SIMARRAY ROWSCALAR 
ROWINT) LABEL (LABSLTR) MAKE1DIMSPEC (ARRAYFRAME) MAKEDIMSPEC (ARRAYFRAME ROWINT) MAKE1SLTR (
ARRAYFRAME) MAKESLTR (ARRAYFRAME SIMARRAY ROWSCALAR ROWINT) TITLE NIL NIL
CREATE AT (ROWPTR) AT.CODE NIL AT.LABEL NIL CODE (CODESLTR) INDEX NIL INDEX1 NIL LABEL (LABSLTR) 
MAKE1DIMSPEC NIL MAKEDIMSPEC (ROWINT) MAKE1SLTR NIL MAKESLTR NIL TITLE (TITLESLTR) NIL
FETCH AT (KEY NDIMS) AT.CODE (CLEV VAL CODE CODELAB PERFORMOPS FINDLAB) AT.LABEL (LLEV DIM SHAPE DONE 
NDIMS NELTS) CODE NIL INDEX NIL INDEX1 (SHAPE NDIMS AELTTYPE ELEMENTBLOCK NELTS) LABEL NIL 
MAKE1DIMSPEC (NDIMS) MAKEDIMSPEC (NELTS NDIMS) MAKE1SLTR (SHAPE) MAKESLTR (AELTTYPE ELEMENTBLOCK NELTS
 SHAPE) TITLE NIL NIL
REPLACE AT (NELTS INIT) AT.CODE NIL AT.LABEL NIL CODE (CLEV VAL) INDEX NIL INDEX1 NIL LABEL (DIM LLEV)
 MAKE1DIMSPEC NIL MAKEDIMSPEC (NELTS) MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
REFFREE AT NIL AT.CODE NIL AT.LABEL NIL CODE (UERRORSET) INDEX NIL INDEX1 (UERRORSET) LABEL NIL 
MAKE1DIMSPEC (UERRORSET) MAKEDIMSPEC (UERRORSET) MAKE1SLTR (UERRORSET) MAKESLTR (UERRORSET) TITLE NIL 
NIL
REF AT (UARG TTAB VALUE NALLS) AT.CODE (A CODESPEC VALSPEC) AT.LABEL (A LABSPEC DIMNUM SLTR $$TMP) 
CODE (UARG VALUE) INDEX (UARG NOSPELL MACROX) INDEX1 (A LIM TOP) LABEL (VALUE) MAKE1DIMSPEC (A) 
MAKEDIMSPEC (ARY VALUE) MAKE1SLTR (A DIM) MAKESLTR (A DIM VALUE TOP) TITLE NIL NIL
SETFREE AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX (RESETVARSLST NOSPELLFLG) INDEX1 NIL LABEL NIL 
MAKE1DIMSPEC NIL MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
SET AT (A SLTR S DIM I) AT.CODE (CP) AT.LABEL (L D I) CODE (LEV VAL) INDEX (A DIM MACROY) INDEX1 (VAL 
EB COPIED J EBJ) LABEL NIL MAKE1DIMSPEC (DIMSPEC DIMNUM) MAKEDIMSPEC (DROW I DI COPIED DSPEC D) 
MAKE1SLTR (SEL LEVNUM) MAKESLTR (VAL EB COPIED J EBJ) TITLE NIL NIL
SMASHFREE AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
SMASH AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
PROP AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
TEST AT (SLTR S I) AT.CODE (VALUE VALDIM CB CP C) AT.LABEL (VALUE GSBS D I) CODE (LEV VAL) INDEX (DIM 
LEV VALUE) INDEX1 (SPEC DIM VAL EBJ COPIED) LABEL (DIM LEV) MAKE1DIMSPEC (DIMSPEC VALUE PREDFLAG 
DIMNUM) MAKEDIMSPEC (DSPEC I DI COPIED D) MAKE1SLTR (SEL VALUE PREDFLAG LEVNUM) MAKESLTR (SEL VAL 
COPIED) TITLE NIL NIL
TESTFREE AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
PREDICATE AT (UERRORPRINT? TYPENAMEP FIXP IGREATERP ROWTYPEP ARRAYTYPEP MINUSP) AT.CODE (TYPENAMEP 
LITATOM NUMBERP FIXP EQP) AT.LABEL (TYPENAMEP EVERY FIXP IGEQ IGREATERP ARRAYTYPEP UERRORPRINT? 
VSCALARP ROWTYPEP) CODE (UERRORPRINT?) INDEX (UERRORPRINT? TYPENAMEP FIXP TAILP) INDEX1 (TYPENAMEP 
FIXP IGEQ UERRORGUARDVAL VSCALARP ROWTYPEP SELECTQ IGREATERP LEVELP DIMENSIONP MINUSP UERRORPRINT?) 
LABEL (UERRORPRINT?) MAKE1DIMSPEC (TYPENAMEP SELECTQ FIXP STRINGP UERRORPRINT? LITATOM NUMBERP 
UERRORGUARDVAL MINUSP) MAKEDIMSPEC (TYPENAMEP ROWTYPEP UERRORGUARDVAL ARRAYTYPEP IGREATERP DIMENSIONP 
MINUSP UERRORPRINT?) MAKE1SLTR (TYPENAMEP FIXP SELECTQ STRINGP UERRORPRINT? LITATOM NUMBERP 
UERRORGUARDVAL MINUSP) MAKESLTR (TYPENAMEP FIXP DIMENSIONP UERRORGUARDVAL VSCALARP ROWTYPEP SELECTQ 
HASNILS IGEQ IGREATERP LEVELP MINUSP UERRORPRINT?) TITLE NIL NIL
EFFECT AT (DECLARE PRIN1 PRIN2 TERPRI SETRELT) AT.CODE NIL AT.LABEL (FRPLACD PRIN1 PRIN2 TERPRI) CODE 
(DECLARE PRIN1 PRIN2 TERPRI) INDEX (DECLARE PRIN1 PRIN2 TERPRI RPLACD) INDEX1 (ASSERT SETRELT PRIN1 
PRIN2 TERPRI) LABEL (DECLARE PRIN1 PRIN2 TERPRI) MAKE1DIMSPEC (PRIN1 PRIN2 TERPRI) MAKEDIMSPEC (
SETRELT PRIN1 PRIN2 TERPRI) MAKE1SLTR (PRIN1 PRIN2 TERPRI) MAKESLTR (ASSERT SETRELT PRIN1 PRIN2 TERPRI
) TITLE NIL NIL
CLISP AT (ULAMBDA DPROG type? printout bind declare for in do finally DPROGN the from to first) 
AT.CODE (DLAMBDA the DPROG for in collect type? first when do) AT.LABEL (DLAMBDA the DPROG type? for 
from to declare collect bind until printout) CODE (ULAMBDA DPROG type? printout the) INDEX (ULAMBDA 
DPROG type? printout the) INDEX1 (DLAMBDA DPROG type? for to declare when do printout) LABEL (ULAMBDA 
DPROG type? printout the) MAKE1DIMSPEC (DLAMBDA the printout type? DPROG) MAKEDIMSPEC (DLAMBDA the 
DPROG type? for to unless do in as from printout) MAKE1SLTR (DLAMBDA the printout type? DPROG) 
MAKESLTR (DLAMBDA the DPROG type? DPROGN for to declare unless do printout) TITLE NIL NIL
SPECVARS AT (A SLTR) AT.CODE NIL AT.LABEL NIL CODE (LEV VAL) INDEX (A DIM LEV NOSPELL) INDEX1 NIL 
LABEL (DIM LEV) MAKE1DIMSPEC NIL MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
LOCALVARS AT (T) AT.CODE NIL AT.LABEL NIL CODE (T) INDEX (T) INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
APPLY AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
ERROR AT NIL AT.CODE NIL AT.LABEL NIL CODE (ppe) INDEX NIL INDEX1 (ppe) LABEL NIL MAKE1DIMSPEC (ppe) 
MAKEDIMSPEC (ppe) MAKE1SLTR (ppe) MAKESLTR (ppe) TITLE NIL NIL
LOCALFREEVARS AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL
 MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
ARGS AT NIL AT.CODE NIL AT.LABEL NIL CODE NIL INDEX NIL INDEX1 NIL LABEL NIL MAKE1DIMSPEC NIL 
MAKEDIMSPEC NIL MAKE1SLTR NIL MAKESLTR NIL TITLE NIL NIL
USERTEMPLATES OP# (CALL) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SETQ.NOREF (CALL SET EVAL . PPE) 
SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) UENTRY (CALL NIL .. EVAL RETURN) perform (MACRO ARGS (
PERFORMTRAN ARGS T)) PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) SHAZAM (CALL .. NIL) UERRORGUARD MACRO 
UERROR MACRO UERRORSET MACRO NIL
0 AT (ANY ARRAY NIL POSINT ROWPTR SELARRAY INTEGER) AT.CODE (ARRAY CODESLTR LABEL INTEGER SCALAR 
CODEBOOK NIL ARITH) AT.LABEL (ARRAY LABSLTR LABEL NIL LISTP INTEGER IJK VECTOR ROWINT) CODE (NIL LABEL
 INTEGER ARITH CODESLTR) INDEX (ANY BOOL ARRAY NIL INTEGER) INDEX1 (ARRAY NIL INTEGER IJK SIMARRAY 
ROWSCALAR BOOL ROWINT) LABEL (ANY NIL LABSLTR) MAKE1DIMSPEC (ARRAY NIL BOOL INTEGER LABEL SCALAR) 
MAKEDIMSPEC (ARRAY NIL ROWINT VECTOR) MAKE1SLTR (ARRAY NIL INTEGER BOOL LABEL SCALAR) MAKESLTR (ARRAY 
NIL INTEGER SIMARRAY ROWSCALAR BOOL ROWINT IJK) TITLE NIL NIL

)