(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("16-Feb-86 13:13:49" . {QV}<IDL>SOURCES>LABELS.;14)
FNS (COPYCODEBOOKS COPYDIMBLOCK COPYLEVBLOCK GETCODELAB GETCODENUM GETCODES GETDIMLAB GETDIMNUM 
GETELTCODELAB GETLEVLAB GETLEVNUM GETTITLE GETTITLE.HACK GETTITLE.SELECTION GETVALDIM IGNOR.SCF 
LAB.COPYALL LAB.COPYDIM LAB.COPYDIMS LABELLEVEL LABELP MAKETITLE MAKETITLE.SUBSTARRAY MAKEUSERTITLE 
PLURAL SETCODELAB SETCODES SETDIMLAB SETLEVLAB SETTITLE SETVALDIM SHOWSBASELABELS TRAVERSE.TITLE)
(READATABASE)
(
CALL COPYCODEBOOKS (GETRELT GETVALDIM GETCODES PLUS) COPYDIMBLOCK (PLUS FETCHFIELD COPYROW GETRELTD) 
COPYLEVBLOCK (COPYDIMBLOCK GETRELTD SETRELTD GETRELT PLUS FETCHFIELD COPYROW) GETCODELAB (GETVALDIM 
perform GETCODES) GETCODENUM (perform CONSTANT FUNCTION FIXSPELL) GETCODES (GETVALDIM TTGETELT GETRELT
 GETRELTD) GETDIMLAB (BASEDIM GETRELT TTABDIM GETRELTD) GETDIMNUM (CONSTANT SELECTQ GETDIMLAB PLUS 
FUNCTION FIXSPELL GETDIMNUM GETRELT SHOULDNT) GETELTCODELAB (perform GETAELT) GETLEVLAB (BASEDIM 
GETRELT TTGETELT TTABDIM GETRELTD) GETLEVNUM (GETRELT CONSTANT SELECTQ GETLEVLAB PLUS FUNCTION 
FIXSPELL GETLEVNUM GETRELTD SHOULDNT) GETTITLE (SETTITLE SELECTQ CONCAT SERIALNUMBER GETAELT 
VSCALARPTR GETTITLE.HACK GETTITLE.SELECTION GETTITLE SHOULDNT) GETTITLE.HACK (LIST FASSOC) 
GETTITLE.SELECTION (GETRELT SELECTQ TTELTTYPE CONS GETDIMLAB GETLEVLAB LIST PLUS LENGTH) GETVALDIM (
GETRELT PLUS TTELTDIMS) IGNOR.SCF NIL LAB.COPYALL (ADD1 GETDIMLAB GETRELT GETLEVLAB PLUS GETVALDIM 
GETCODES SETTITLE GETTITLE) LAB.COPYDIM (GETRELT GETRELTD COPYDIMBLOCK PLUS FETCHFIELD ADD1 
COPYCODEBOOKS GETDIMLAB GETLEVLAB) LAB.COPYDIMS (ADD1 GETVALDIM GETDIMLAB GETRELT GETLEVLAB PLUS) 
LABELLEVEL (GETRELT PLUS) LABELP (LABELLEVEL PLUS GETRELT) MAKETITLE (CONS ARG MAKETITLE.SUBSTARRAY 
LIST PLUS) MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE (FUNCTION GETTITLE APPLY DREVERSE) PLURAL (
NTHCHARCODE) SETCODELAB (GETVALDIM TTGETELT GETRELT COPYLEVBLOCK FLOAT FIXR GETRELTD SASSOC LIST NCONC
 CONS) SETCODES (GETVALDIM TTGETELT GETRELT COPYLEVBLOCK) SETDIMLAB (BASEDIM GETRELT TTABDIM GETRELTD 
COPYDIMBLOCK) SETLEVLAB (BASEDIM GETRELT TTGETELT TTABDIM GETRELTD COPYLEVBLOCK) SETTITLE NIL 
SETVALDIM (SHOWSBASELABELS GETRELT BASEDIM PLUS) SHOWSBASELABELS NIL TRAVERSE.TITLE (APPLY* MAP L-CASE
 PLURAL EQUAL SUBSTRING STRINGP CONSTANT CONCAT TRAVERSE.TITLE IGNOR.SCF) NIL
BIND COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM (ARRAY) GETCODES 
NIL GETDIMLAB NIL GETDIMNUM (ARRAY) GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM (ARRAY) GETTITLE NIL 
GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL NIL LAB.COPYDIM NIL 
LAB.COPYDIMS NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL 
PLURAL NIL SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL 
SHOWSBASELABELS NIL TRAVERSE.TITLE NIL NIL
NLAMBDA COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES NIL
 GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL GETTITLE.HACK 
NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL NIL LAB.COPYDIM NIL LAB.COPYDIMS 
NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL PLURAL (
CHARCODE) SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL 
SHOWSBASELABELS NIL TRAVERSE.TITLE NIL NIL
NOBIND COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES NIL 
GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL GETTITLE.HACK 
NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF T LAB.COPYALL NIL LAB.COPYDIM NIL LAB.COPYDIMS NIL 
LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY T MAKEUSERTITLE NIL PLURAL NIL SETCODELAB
 NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL SHOWSBASELABELS NIL 
TRAVERSE.TITLE NIL NIL
RECORD COPYCODEBOOKS (ARRAYFRAME) COPYDIMBLOCK (SIMARRAY ROWPTR LABELBLOCK) COPYLEVBLOCK (SIMARRAY 
ROWPTR) GETCODELAB (ARRAYFRAME CODEBOOK PERFORMOPS) GETCODENUM (CODEBOOK PERFORMOPS) GETCODES (
ARRAYFRAME CODEBOOK SELARRAY SIMARRAY) GETDIMLAB (ARRAYFRAME SELARRAY SIMARRAY ROWPTR) GETDIMNUM (
ARRAYFRAME ROWPTR SIMARRAY) GETELTCODELAB (ARRAYFRAME AELTPTR CODEBOOK PERFORMOPS) GETLEVLAB (
ARRAYFRAME SELARRAY SIMARRAY) GETLEVNUM (ARRAYFRAME ROWPTR SIMARRAY) GETTITLE (ARRAYFRAME SELARRAY) 
GETTITLE.HACK NIL GETTITLE.SELECTION (SELARRAY SIMARRAY ROWPTR) GETVALDIM (ARRAYFRAME SIMARRAY ROWPTR)
 IGNOR.SCF NIL LAB.COPYALL (ARRAYFRAME SIMARRAY ROWPTR ROW ROWHEADER) LAB.COPYDIM (ARRAYFRAME SIMARRAY
 ROWPTR ROW ROWHEADER) LAB.COPYDIMS (ARRAYFRAME SIMARRAY ROWPTR ROW ROWHEADER) LABELLEVEL (ARRAYFRAME 
ROWINT) LABELP (ARRAYFRAME SIMARRAY) MAKETITLE NIL MAKETITLE.SUBSTARRAY (ARRAYFRAME) MAKEUSERTITLE (
ARRAYFRAME) PLURAL NIL SETCODELAB (ARRAYFRAME SELARRAY CODEBOOK ROWPTR) SETCODES (ARRAYFRAME CODEBOOK 
SELARRAY ROWPTR) SETDIMLAB (ARRAYFRAME SELARRAY SIMARRAY ROWPTR) SETLEVLAB (ARRAYFRAME SELARRAY 
SIMARRAY ROWPTR) SETTITLE (ARRAYFRAME) SETVALDIM (ARRAYFRAME SELARRAY) SHOWSBASELABELS (SIMARRAY) 
TRAVERSE.TITLE NIL NIL
CREATE COPYCODEBOOKS NIL COPYDIMBLOCK (LABELBLOCK ROWPTR) COPYLEVBLOCK (ROWPTR) GETCODELAB NIL 
GETCODENUM (SPARRAY) GETCODES NIL GETDIMLAB NIL GETDIMNUM (SPARRAY) GETELTCODELAB NIL GETLEVLAB NIL 
GETLEVNUM (SPARRAY) GETTITLE NIL GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL 
LAB.COPYALL (LABELBLOCK) LAB.COPYDIM NIL LAB.COPYDIMS (LABELBLOCK) LABELLEVEL NIL LABELP NIL MAKETITLE
 NIL MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL PLURAL NIL SETCODELAB (CODEPAIR) SETCODES NIL 
SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM (LABELBLOCK) SHOWSBASELABELS NIL TRAVERSE.TITLE NIL
 NIL
FETCH COPYCODEBOOKS (SHAPE) COPYDIMBLOCK (LABELBLOCK DIMLABELBLOCK NDIMS REFCOUNT NELTS) COPYLEVBLOCK 
(SHAPE REFCOUNT) GETCODELAB (PERFORMOPS FINDLAB CODE CODELAB) GETCODENUM (PERFORMOPS FINDCODE CODE 
CODELAB) GETCODES (TTAB VALDIM LABELBLOCK BASEARRAY DIMLABELBLOCK) GETDIMLAB (DIMMAP TTAB AELTTYPE 
BASEARRAY DIMLABELBLOCK LABELBLOCK) GETDIMNUM (NDIMS TYPE DIMLABELBLOCK LABELBLOCK) GETELTCODELAB (
SOURCE PERFORMOPS FINDLAB CODE CODELAB) GETLEVLAB (DIMMAP TTAB AELTTYPE BASEARRAY DIMLABELBLOCK 
LABELBLOCK) GETLEVNUM (SHAPE TYPE DIMLABELBLOCK LABELBLOCK) GETTITLE (TITLEF ID TYPE BASEARRAY) 
GETTITLE.HACK NIL GETTITLE.SELECTION (BASEARRAY TTAB NELTS AELTTYPE) GETVALDIM (VALDIM LABELBLOCK 
BASEARRAY TTAB) IGNOR.SCF NIL LAB.COPYALL (SHAPE LABELBLOCK DIMLABELBLOCK REFCOUNT NDIMS) LAB.COPYDIM 
(SHAPE DIMLABELBLOCK LABELBLOCK REFCOUNT) LAB.COPYDIMS (SHAPE DIMLABELBLOCK LABELBLOCK REFCOUNT NDIMS)
 LABELLEVEL (NDIMS SHAPE) LABELP (LABELBLOCK NDIMS SHAPE) MAKETITLE NIL MAKETITLE.SUBSTARRAY (TITLE) 
MAKEUSERTITLE NIL PLURAL NIL SETCODELAB (TTAB VALDIM LABELBLOCK BASEARRAY AELTTYPE) SETCODES (TTAB 
VALDIM LABELBLOCK BASEARRAY) SETDIMLAB (DIMMAP TTAB AELTTYPE BASEARRAY) SETLEVLAB (DIMMAP TTAB 
AELTTYPE BASEARRAY) SETTITLE (ID) SETVALDIM (TTAB DIMMAP BASEARRAY VALDIM LABELBLOCK SHAPE) 
SHOWSBASELABELS (DIMLABELBLOCK LABELBLOCK) TRAVERSE.TITLE NIL NIL
REPLACE COPYCODEBOOKS NIL COPYDIMBLOCK (LABELBLOCK DIMLABELBLOCK NELTS REFCOUNT) COPYLEVBLOCK (NELTS 
REFCOUNT) GETCODELAB NIL GETCODENUM (FN) GETCODES NIL GETDIMLAB NIL GETDIMNUM (FN) GETELTCODELAB NIL 
GETLEVLAB NIL GETLEVNUM (FN) GETTITLE NIL GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL 
IGNOR.SCF NIL LAB.COPYALL (LABELBLOCK REFCOUNT) LAB.COPYDIM (REFCOUNT) LAB.COPYDIMS (REFCOUNT 
LABELBLOCK DIMLABELBLOCK VALDIM) LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL 
MAKEUSERTITLE NIL PLURAL NIL SETCODELAB (CODE CODELAB) SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL 
SETTITLE (TITLEF) SETVALDIM (VALDIM LABELBLOCK) SHOWSBASELABELS NIL TRAVERSE.TITLE NIL NIL
REFFREE COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES NIL
 GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL GETTITLE.HACK 
NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL NIL LAB.COPYDIM NIL LAB.COPYDIMS 
NIL LABELLEVEL NIL LABELP NIL MAKETITLE (UERRORNAME) MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL PLURAL
 NIL SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL 
SHOWSBASELABELS NIL TRAVERSE.TITLE (ACTION) NIL
REF COPYCODEBOOKS (AOLD ANEW OLDDIM NEWDIM) COPYDIMBLOCK NIL COPYLEVBLOCK (A DIM) GETCODELAB (A LEV 
CODE VALUE) GETCODENUM NIL GETCODES NIL GETDIMLAB (VALUE BDIM TT) GETDIMNUM (A NDIMS) GETELTCODELAB (A
 ELT VALUE) GETLEVLAB (VALUE BDIM TT) GETLEVNUM (A DIM NLEVS) GETTITLE (A) GETTITLE.HACK (PRE POST 
VALUE) GETTITLE.SELECTION (A VALUE AB TT) GETVALDIM (A TTAB) IGNOR.SCF NIL LAB.COPYALL (AOLD) 
LAB.COPYDIM (AOLD ANEW OLDDIM NEWDIM) LAB.COPYDIMS (AOLD) LABELLEVEL (A VALUE SHAPE) LABELP (A N VALUE
) MAKETITLE (NARGS) MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE (A NARGS ACTION) PLURAL (W VALUE CC) 
SETCODELAB (CODE) SETCODES NIL SETDIMLAB (LAB BDIM TT) SETLEVLAB (LAB BDIM TT) SETTITLE (A) SETVALDIM 
NIL SHOWSBASELABELS (TTELT VALUE) TRAVERSE.TITLE NIL NIL
SETFREE COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES NIL
 GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL GETTITLE.HACK 
NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL NIL LAB.COPYDIM NIL LAB.COPYDIMS 
NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE (RSLT) PLURAL NIL 
SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL SHOWSBASELABELS NIL
 TRAVERSE.TITLE NIL NIL
SET COPYCODEBOOKS (LEV) COPYDIMBLOCK (LB DL I LL) COPYLEVBLOCK (LL) GETCODELAB (CP) GETCODENUM (X CB 
CODELAB) GETCODES (LEV A TEMP) GETDIMLAB (A DIM) GETDIMNUM (DIM DIMLAB) GETELTCODELAB (CP) GETLEVLAB (
A DIM LEV LL) GETLEVNUM (LEV LEVLAB LL) GETTITLE NIL GETTITLE.HACK (I) GETTITLE.SELECTION (I LEV) 
GETVALDIM (I) IGNOR.SCF NIL LAB.COPYALL (DIM LEV) LAB.COPYDIM (OLDDIMLAB OLDLEVS NDL NEWLEVS LEV) 
LAB.COPYDIMS (VD DIM LEV) LABELLEVEL (I L J) LABELP (I J) MAKETITLE (X I) MAKETITLE.SUBSTARRAY (I J) 
MAKEUSERTITLE (I) PLURAL NIL SETCODELAB (LEV A CVAL CB DUP P) SETCODES (LEV A) SETDIMLAB (A DIM) 
SETLEVLAB (A DIM LEV) SETTITLE NIL SETVALDIM (DIM A I) SHOWSBASELABELS NIL TRAVERSE.TITLE (I J K ELT 
SAME NOCAR NOCDR) NIL
SMASHFREE COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES 
NIL GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL 
GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL NIL LAB.COPYDIM NIL 
LAB.COPYDIMS NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL 
PLURAL NIL SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL 
SHOWSBASELABELS NIL TRAVERSE.TITLE NIL NIL
SMASH COPYCODEBOOKS NIL COPYDIMBLOCK (A LB DL) COPYLEVBLOCK (LL) GETCODELAB NIL GETCODENUM (SPA) 
GETCODES NIL GETDIMLAB NIL GETDIMNUM (SPA) GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM (SPA) GETTITLE 
NIL GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL (ANEW DL) 
LAB.COPYDIM (OLDLEVS) LAB.COPYDIMS (ODL ANEW) LABELLEVEL NIL LABELP NIL MAKETITLE NIL 
MAKETITLE.SUBSTARRAY (I) MAKEUSERTITLE (RSLT) PLURAL NIL SETCODELAB NIL SETCODES NIL SETDIMLAB NIL 
SETLEVLAB NIL SETTITLE NIL SETVALDIM (A) SHOWSBASELABELS NIL TRAVERSE.TITLE NIL NIL
PROP COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES NIL 
GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL GETTITLE.HACK 
NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL NIL LAB.COPYDIM NIL LAB.COPYDIMS 
NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL PLURAL NIL 
SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL SHOWSBASELABELS NIL
 TRAVERSE.TITLE NIL NIL
TEST COPYCODEBOOKS (VD LEV) COPYDIMBLOCK (INSERT VALUE LB DL I LL) COPYLEVBLOCK (INSERT VALUE DL LL) 
GETCODELAB (C) GETCODENUM (CODEBOOK VALUE CB SPA) GETCODES (VALUE TEMP) GETDIMLAB (DL) GETDIMNUM (
VALUE SPA DIM DL) GETELTCODELAB (CB C) GETLEVLAB (DL LL) GETLEVNUM (VALUE SPA LEV DL LL) GETTITLE (
VALUE TESTFLAG) GETTITLE.HACK (I) GETTITLE.SELECTION (I SEL) GETVALDIM (VALUE BASEVALDIM I) IGNOR.SCF 
(A) LAB.COPYALL (DL DIM SHAPE LEV VD) LAB.COPYDIM (NDL NEWLEVS ODL OLDLEVS CODEFLAG LEV) LAB.COPYDIMS 
(VD ODL DIM SHAPE LEV) LABELLEVEL (I L J) LABELP (I SHAPE J) MAKETITLE (I X) MAKETITLE.SUBSTARRAY (L 
VALUE I J) MAKEUSERTITLE (VALUE I) PLURAL (LCFLG) SETCODELAB (CB DUP LL P CODELAB) SETCODES (CODEBOOK 
LL) SETDIMLAB (DL) SETLEVLAB (LL) SETTITLE (TITLE VALUE) SETVALDIM (DIM VD I) SHOWSBASELABELS NIL 
TRAVERSE.TITLE (TTL NOCAR NOCDR FIRST I J K LAST ELT SAME) NIL
TESTFREE COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES 
NIL GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL 
GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL (LABPROPFLAG) 
LAB.COPYDIM (LABPROPFLAG) LAB.COPYDIMS (LABPROPFLAG) LABELLEVEL NIL LABELP NIL MAKETITLE NIL 
MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL PLURAL NIL SETCODELAB NIL SETCODES NIL SETDIMLAB NIL 
SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL SHOWSBASELABELS NIL TRAVERSE.TITLE NIL NIL
PREDICATE COPYCODEBOOKS (TYPENAMEP FIXP DIMENSIONP LEQ GREATERP) COPYDIMBLOCK (ARRAYTYPEP ROWTYPEP 
GREATERP) COPYLEVBLOCK (ARRAYTYPEP FIXP DIMENSIONP ROWTYPEP GREATERP) GETCODELAB (TYPENAMEP FIXP 
LEVELP NUMBERP LITATOM EQP) GETCODENUM (LITATOM NUMBERP) GETCODES (TYPENAMEP FIXP LEVELP ARRAYTYPEP) 
GETDIMLAB (TYPENAMEP FIXP DIMENSIONP LITATOM ARRAYTYPEP IGEQ SHOWSBASELABELS ROWTYPEP) GETDIMNUM (
TYPENAMEP LITATOM FIXP DIMENSIONP GREATERP ROWTYPEP ARRAYTYPEP) GETELTCODELAB (TYPENAMEP LITATOM EQP) 
GETLEVLAB (TYPENAMEP FIXP DIMENSIONP LEVELP LITATOM ARRAYTYPEP IGEQ SHOWSBASELABELS) GETLEVNUM (
TYPENAMEP FIXP DIMENSIONP LITATOM LEVELP GREATERP ROWTYPEP ARRAYTYPEP) GETTITLE (TYPENAMEP STRINGP 
VSCALARP) GETTITLE.HACK (LITATOM STRINGP) GETTITLE.SELECTION (ARRAYTYPEP LITATOM ROWTYPEP FIXP IGEQ 
GREATERP) GETVALDIM (TYPENAMEP FIXP DIMENSIONP ARRAYTYPEP ROWTYPEP SHOWSBASELABELS GREATERP) IGNOR.SCF
 (STRINGP) LAB.COPYALL (TYPENAMEP ARRAYTYPEP EQUALROW ROWTYPEP GREATERP FIXP) LAB.COPYDIM (TYPENAMEP 
FIXP DIMENSIONP LEQ SELECTQ ARRAYTYPEP ROWTYPEP LITATOM GREATERP) LAB.COPYDIMS (TYPENAMEP ARRAYTYPEP 
EQUALROW FIXP ROWTYPEP GREATERP) LABELLEVEL (TYPENAMEP FIXP BETWEEN GETVALDIM ROWTYPEP GREATERP 
GETDIMLAB GETLEVLAB) LABELP (TYPENAMEP MEMBER SELECTQ ARRAYTYPEP GREATERP GETDIMLAB GETLEVLAB 
GETVALDIM) MAKETITLE (FIXP IGEQ GREATERP) MAKETITLE.SUBSTARRAY (TYPENAMEP) MAKEUSERTITLE (TYPENAMEP 
STRINGP FNTYP) PLURAL (LITATOM STRINGP SELECTQ FIXP BETWEEN) SETCODELAB (TYPENAMEP FIXP LEVELP NUMBERP
 LITATOM ARRAYTYPEP ROWTYPEP) SETCODES (TYPENAMEP FIXP LEVELP ARRAYTYPEP ROWTYPEP) SETDIMLAB (
TYPENAMEP FIXP DIMENSIONP LITATOM ARRAYTYPEP IGEQ SHOWSBASELABELS ROWTYPEP) SETLEVLAB (TYPENAMEP FIXP 
DIMENSIONP LEVELP LITATOM ARRAYTYPEP IGEQ SHOWSBASELABELS ROWTYPEP) SETTITLE (TYPENAMEP STRINGP) 
SETVALDIM (TYPENAMEP FIXP DIMENSIONP ARRAYTYPEP GREATERP) SHOWSBASELABELS (ARRAYTYPEP FIXP SELECTQ) 
TRAVERSE.TITLE (SELECTQ LITATOM FIXP) NIL
EFFECT COPYCODEBOOKS (SETVALDIM SETCODES) COPYDIMBLOCK (REPLACEFIELD) COPYLEVBLOCK (REPLACEFIELD) 
GETCODELAB NIL GETCODENUM (DECLARE) GETCODES NIL GETDIMLAB NIL GETDIMNUM (DECLARE) GETELTCODELAB NIL 
GETLEVLAB NIL GETLEVNUM (DECLARE) GETTITLE NIL GETTITLE.HACK (FRPLACD) GETTITLE.SELECTION (FRPLACD) 
GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL (BUMPREFCNT SETDIMLAB SETLEVLAB SETVALDIM SETCODES) 
LAB.COPYDIM (SETRELT REPLACEFIELD SETRELTD BUMPREFCNT SETDIMLAB SETLEVLAB) LAB.COPYDIMS (BUMPREFCNT 
SETVALDIM SETDIMLAB SETLEVLAB) LABELLEVEL NIL LABELP NIL MAKETITLE (DECLARE FRPLACD) 
MAKETITLE.SUBSTARRAY (FRPLACA MAKETITLE.SUBSTARRAY) MAKEUSERTITLE (DECLARE TRAVERSE.TITLE) PLURAL NIL 
SETCODELAB (FRPLACD SETRELTD) SETCODES (SETRELTD) SETDIMLAB (SETRELT) SETLEVLAB (SETRELT) SETTITLE (
SERIALNUMBER) SETVALDIM (ASSERT SETCODES) SHOWSBASELABELS NIL TRAVERSE.TITLE (DECLARE) NIL
CLISP COPYCODEBOOKS (DLAMBDA DPROG for to do) COPYDIMBLOCK (DLAMBDA the DPROG for to when do) 
COPYLEVBLOCK (DLAMBDA the DPROG) GETCODELAB (DLAMBDA the for in first when do) GETCODENUM (DLAMBDA the
 for in thereis DPROG) GETCODES (DLAMBDA the type? DPROG DPROGN) GETDIMLAB (DLAMBDA the type? DPROG) 
GETDIMNUM (DLAMBDA the DPROG for to declare when do finally DPROGN) GETELTCODELAB (DLAMBDA type? the 
for in first when do) GETLEVLAB (DLAMBDA the type? DPROG) GETLEVNUM (DLAMBDA the DPROG for to declare 
when do finally DPROGN) GETTITLE (DLAMBDA the) GETTITLE.HACK (DLAMBDA the for in when collect) 
GETTITLE.SELECTION (DLAMBDA the DPROG for to declare collect) GETVALDIM (DLAMBDA the type? DPROG for 
to sum) IGNOR.SCF (DLAMBDA the) LAB.COPYALL (DLAMBDA type? DPROG the for to do from) LAB.COPYDIM (
DLAMBDA type? DPROG the for to do) LAB.COPYDIMS (DLAMBDA type? DPROG the for to do) LABELLEVEL (
DLAMBDA the for to declare do finally from thereis) LABELP (DLAMBDA the type? for to thereis) 
MAKETITLE (DLAMBDA for from to when collect) MAKETITLE.SUBSTARRAY (DLAMBDA the for on do type?) 
MAKEUSERTITLE (DLAMBDA the DPROG for to do) PLURAL (DLAMBDA the DPROG) SETCODELAB (DLAMBDA type? DPROG
 for on until collect finally) SETCODES (DLAMBDA type? DPROG) SETDIMLAB (DLAMBDA type? DPROG) 
SETLEVLAB (DLAMBDA type? DPROG) SETTITLE (DLAMBDA the) SETVALDIM (DLAMBDA type? DPROG for to do) 
SHOWSBASELABELS (DLAMBDA the type?) TRAVERSE.TITLE (DLAMBDA for on do in thereis when finally) NIL
SPECVARS COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM (CB) GETCODES 
NIL GETDIMLAB NIL GETDIMNUM (A NDIMS DIM DL) GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM (DIM A NLEVS 
LEV LL) GETTITLE NIL GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL 
NIL LAB.COPYDIM NIL LAB.COPYDIMS NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL 
MAKEUSERTITLE (RSLT ACTION) PLURAL NIL SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL 
SETTITLE NIL SETVALDIM NIL SHOWSBASELABELS NIL TRAVERSE.TITLE NIL NIL
LOCALVARS COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES 
NIL GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL 
GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL NIL LAB.COPYDIM NIL 
LAB.COPYDIMS NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL 
PLURAL NIL SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL 
SHOWSBASELABELS NIL TRAVERSE.TITLE NIL NIL
APPLY COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES NIL 
GETDIMLAB NIL GETDIMNUM (GEQ PLUS GETDIMLAB GETRELT) GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM (GEQ 
PLUS GETLEVLAB GETRELT) GETTITLE NIL GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF 
NIL LAB.COPYALL NIL LAB.COPYDIM NIL LAB.COPYDIMS NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL 
MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE (GREATERP CONS ARG PLUS CONCAT) PLURAL NIL SETCODELAB NIL 
SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL SHOWSBASELABELS NIL TRAVERSE.TITLE
 NIL NIL
ERROR COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES NIL 
GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL GETTITLE.HACK 
NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL NIL LAB.COPYDIM NIL LAB.COPYDIMS 
NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL PLURAL NIL 
SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL SHOWSBASELABELS NIL
 TRAVERSE.TITLE (apply) NIL
LOCALFREEVARS COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM (CB) 
GETCODES NIL GETDIMLAB NIL GETDIMNUM (NDIMS DIM A DL) GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM (NLEVS
 LEV A DIM LL) GETTITLE NIL GETTITLE.HACK NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL 
LAB.COPYALL NIL LAB.COPYDIM NIL LAB.COPYDIMS NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL 
MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL PLURAL NIL SETCODELAB NIL SETCODES NIL SETDIMLAB NIL 
SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL SHOWSBASELABELS NIL TRAVERSE.TITLE NIL NIL
ARGS COPYCODEBOOKS NIL COPYDIMBLOCK NIL COPYLEVBLOCK NIL GETCODELAB NIL GETCODENUM NIL GETCODES NIL 
GETDIMLAB NIL GETDIMNUM NIL GETELTCODELAB NIL GETLEVLAB NIL GETLEVNUM NIL GETTITLE NIL GETTITLE.HACK 
NIL GETTITLE.SELECTION NIL GETVALDIM NIL IGNOR.SCF NIL LAB.COPYALL NIL LAB.COPYDIM NIL LAB.COPYDIMS 
NIL LABELLEVEL NIL LABELP NIL MAKETITLE NIL MAKETITLE.SUBSTARRAY NIL MAKEUSERTITLE NIL PLURAL NIL 
SETCODELAB NIL SETCODES NIL SETDIMLAB NIL SETLEVLAB NIL SETTITLE NIL SETVALDIM NIL SHOWSBASELABELS NIL
 TRAVERSE.TITLE NIL NIL
USERTEMPLATES UENTRY (CALL NIL .. EVAL RETURN) UERRORGUARD MACRO SHAZAM (CALL .. NIL) UERROR MACRO 
UERRORSET MACRO SETQ.NOREF (CALL SET EVAL . PPE) perform (MACRO ARGS (PERFORMTRAN ARGS T)) 
FCACHE.GETPROP (CALL EVAL PROP . PPE) PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) SPREADAPPLY (CALL 
FUNCTIONAL EVAL . PPE) FCACHE.PUTPROP (CALL EVAL PROP EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. 
EVAL) OP# (CALL) NIL
0 COPYCODEBOOKS (ARRAY INTEGER NIL) COPYDIMBLOCK (SIMARRAY NIL ROWPTR LABELBLOCK) COPYLEVBLOCK (
SIMARRAY INTEGER NIL ROWPTR) GETCODELAB (ARRAY INTEGER ARITH LABEL) GETCODENUM (NIL CODEBOOK LABEL 
SCALAR) GETCODES (ARRAY INTEGER NIL CODEBOOK SELARRAY SIMARRAY) GETDIMLAB (ARRAY INTEGER LABEL 
SELARRAY TTELT NIL ROWPTR) GETDIMNUM (ARRAY LABEL NIL INTEGER ROWPTR SIMARRAY) GETELTCODELAB (ARRAY 
AELTPTR NIL CODEBOOK LABEL) GETLEVLAB (ARRAY INTEGER LABEL SELARRAY TTELT NIL) GETLEVNUM (ARRAY 
INTEGER LABEL NIL ROWPTR SIMARRAY) GETTITLE (ARRAY BOOL NIL TITLE) GETTITLE.HACK (LITATOM LISTP 
STRINGP NIL) GETTITLE.SELECTION (SELARRAY LITATOM LISTP SIMARRAY ROWPTR NIL TTELT LST) GETVALDIM (
ARRAY NIL INTEGER SIMARRAY ROWPTR) IGNOR.SCF (NIL ANY) LAB.COPYALL (ARRAY SIMARRAY NIL ROWPTR ROW 
ROWHEADER INTEGER) LAB.COPYDIM (ARRAY INTEGER BOOL SIMARRAY NIL ROWPTR LABEL ROW ROWHEADER) 
LAB.COPYDIMS (ARRAY SIMARRAY NIL INTEGER ROWPTR ROW ROWHEADER) LABELLEVEL (ARRAY INTEGER NIL ROWINT) 
LABELP (ARRAY BOOL SIMARRAY NIL) MAKETITLE (CARDINAL NIL) MAKETITLE.SUBSTARRAY (LST NIL ARRAY) 
MAKEUSERTITLE (ARRAY USERTITLE NIL FUNCTION LISTP) PLURAL (LITATOM STRINGP BOOL INTEGER) SETCODELAB (
ARRAY INTEGER ARITH LABEL SELARRAY NIL CODEBOOK ROWPTR) SETCODES (ARRAY INTEGER NIL CODEBOOK SELARRAY 
ROWPTR) SETDIMLAB (ARRAY INTEGER LABEL SELARRAY TTELT NIL ROWPTR) SETLEVLAB (ARRAY INTEGER LABEL 
SELARRAY TTELT NIL ROWPTR) SETTITLE (ARRAY NIL TITLE) SETVALDIM (ARRAY NIL INTEGER SELARRAY) 
SHOWSBASELABELS (SIMARRAY INTEGER BOOL VECTOR) TRAVERSE.TITLE (NIL BOOL) NIL

)