(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("16-Feb-86 13:03:43" . {QV}<IDL>SOURCES>COMPRESS.;16)
FNS (COUNTS COVAR GROUP GROUP.HIDDENCODES GROUP.HIDDENLEVLAB GROUP.LAB GROUP.LINLOC GROUP.SHAPE 
MOMENTS MOMENTS.FEW MOMENTS.MANY PAIRN POOL)
(READATABASE)
(
CALL COUNTS (UENTRY EAPPLY* FUNCTION) COVAR (UENTRY EAPPLY* FUNCTION) GROUP (UENTRY GETRELT 
MAKE1DIMSPEC IEQP UERROR PRIN1 UERROR! VFROMR MAKETITLE UERRORGUARD UERRORGUARDVAL UERRORSET NAMEDLET 
UERRORNAME CONV.SCALAR FIXR CONV.ARITH PRIN2 IPLUS PRESERVE PLUS ITIMES ALLOC.SARRAY SETRELT SUB1 
SETUP GROUP.LINLOC IMAX NLOGICALELTS IDIFFERENCE FSELECT NEXT GETAELT GETDIMLAB LABELLEVEL ADD1 LIST 
NCONC MAPCAR) GROUP.HIDDENCODES (GETVALDIM GETRELT GETCODES) GROUP.HIDDENLEVLAB (GETRELT TTELTTYPE 
GETLEVLAB PLUS) GROUP.LAB (GETLEVLAB PACK* GROUP.HIDDENLEVLAB GETRELT perform NTH PLUS) GROUP.LINLOC (
perform GETRELT GETAELT NEXT PLUS ITIMES SUB1 IDIFFERENCE) GROUP.SHAPE (GETVALDIM GETCODES perform 
LENGTH PLUS DIFFERENCE GROUP.HIDDENCODES FSELECT ROWPTROF VFROMR GETRELT SETUP GETAELT NEXT CONS FPLUS
 IPLUS PACK* SETRELT SORT) MOMENTS (UENTRY EAPPLY* FUNCTION) MOMENTS.FEW (NLOGICALELTS UERROR PRIN1 
UERROR! SETUP PLUS GETAELT NEXT FGREATERP FLOAT FPLUS GREATERP FQUOTIENT FTIMES FDIFFERENCE DIFFERENCE
) MOMENTS.MANY (PLUS QUOTIENT TIMES SETUP FPLUS GETRELT DIFFERENCE GETAELT NEXT FQUOTIENT FDIFFERENCE 
FLOAT FTIMES FMINUS) PAIRN (UENTRY EAPPLY* FUNCTION) POOL (UENTRY EAPPLY* FUNCTION) NIL
BIND COUNTS NIL COVAR NIL GROUP NIL GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL NIL
NLAMBDA COUNTS NIL COVAR NIL GROUP NIL GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL NIL
NOBIND COUNTS NIL COVAR NIL GROUP NIL GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL NIL
RECORD COUNTS (ARRAYFRAME GENSTATEBLOCK) COVAR (SIMARRAY ROWFLOAT GENSTATEBLOCK ROWSCALAR) GROUP (
ARRAYFRAME ROWINT SIMARRAY ROWPTR GENSTATEBLOCK) GROUP.HIDDENCODES (ARRAYFRAME CODEBOOK SELARRAY 
ROWPTR SIMARRAY) GROUP.HIDDENLEVLAB (ARRAYFRAME SELARRAY SIMARRAY ROWPTR) GROUP.LAB (ARRAYFRAME ROWPTR
 ROWINT CODEBOOK PERFORMOPS) GROUP.LINLOC (GENSTATEBLOCK ROWINT ROWPTR CODEBOOK PERFORMOPS) 
GROUP.SHAPE (ROWINT ROWPTR CODEBOOK PERFORMOPS ARRAYFRAME GENSTATEBLOCK) MOMENTS (ARRAYFRAME SIMARRAY 
ROWSCALAR) MOMENTS.FEW (ARRAYFRAME ROWSCALAR GENSTATEBLOCK) MOMENTS.MANY (ARRAYFRAME ROWSCALAR 
ROWFLOAT GENSTATEBLOCK) PAIRN (SIMARRAY ROWINT ROWFLOAT ROWPTR GENSTATEBLOCK) POOL (ARRAYFRAME 
GENSTATEBLOCK) NIL
CREATE COUNTS NIL COVAR (ROWFLOAT SIMARRAY ROWINT) GROUP (ROWINT ROWPTR SIMARRAY ROWSCALAR) 
GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL GROUP.LINLOC NIL GROUP.SHAPE (ROWINT 
CODEPAIR) MOMENTS (ROWFLOAT) MOMENTS.FEW (ROWFLOAT) MOMENTS.MANY (ROWFLOAT) PAIRN (ROWPTR ROWSCALAR 
SIMARRAY ROWFLOAT ROWINT) POOL (ROWSCALAR) NIL
FETCH COUNTS (SHAPE DONE) COVAR (SHAPE DONE ELEMENTBLOCK) GROUP (SHAPE NDIMS NELTS AELTTYPE OFFSETS 
DONE KEEPS) GROUP.HIDDENCODES (TTAB BASEARRAY) GROUP.HIDDENLEVLAB (BASEARRAY TTAB AELTTYPE NELTS) 
GROUP.LAB (NELTS SHAPE NDIMS PERFORMOPS LABFROMINDEX CODELAB) GROUP.LINLOC (PERFORMOPS INDEX CODE) 
GROUP.SHAPE (NELTS PERFORMOPS LENGTH DONE FINDLAB CODE CODELAB) MOMENTS NIL MOMENTS.FEW (SHAPE DONE) 
MOMENTS.MANY (DONE) PAIRN (SHAPE DONE) POOL (FORMAT SHAPE NDIMS DONE) NIL
REPLACE COUNTS NIL COVAR (NELTS INIT FORMAT ELEMENTBLOCK SHAPE) GROUP (NELTS INIT SHAPE FORMAT 
ELEMENTBLOCK RELTTYPE KEEPS) GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL GROUP.LINLOC 
NIL GROUP.SHAPE (NELTS CODE CODELAB) MOMENTS (NELTS INIT) MOMENTS.FEW (NELTS INIT) MOMENTS.MANY (NELTS
 INIT) PAIRN (NELTS INIT RELTTYPE FORMAT SHAPE ELEMENTBLOCK) POOL (NELTS RELTTYPE) NIL
REFFREE COUNTS NIL COVAR NIL GROUP (UERRORSET) GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB 
NIL GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL 
NIL
REF COUNTS (A VALUE GSBA) COVAR (A VALUE NVARS GSBA OBS NR FIRSTMEAN LASTMEAN COVROW CEB) GROUP (
ATTRIBS ASHP NOBS UARG VSHP NDV NFAC CBROW GDIM DPOS GRSHP OSET GSB WIDTH GSBG S VALUE OFF) 
GROUP.HIDDENCODES (A TT AB) GROUP.HIDDENLEVLAB (A VALUE AB TT) GROUP.LAB (A OUTPUT CBROW SHAPE) 
GROUP.LINLOC (A NFAC GSB OFFS CBROW) GROUP.SHAPE (A SHAPE CBROW NVARS VA GSBVA) MOMENTS (A VALUE) 
MOMENTS.FEW (A M VALUE GSBA MROW) MOMENTS.MANY (A M VALUE M1 BIN YPOW GSBA) PAIRN (A VALUE NVARS NR 
GSBA) POOL (MTABLE VALUE GSBMOM) NIL
SETFREE COUNTS NIL COVAR NIL GROUP NIL GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL NIL
SET COUNTS (V TOT) COVAR (WVAL J MFLAG NROW MK MJ SJ SK I K IK KM DK IM DI NSC N OBSJ JK DJ P MEANJ 
COVAR TEMP R PD C RC D) GROUP (VALUES DIM GROUP J I NCELLS ACC V P MAXCNT GDIMINC GSBV VSLICE LOC CELL
) GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB (I TTE FOUND LAB) GROUP.LAB (DIM LEV) GROUP.LINLOC (VAR IDX
 X I LOC) GROUP.SHAPE (I CODES STARTPTR PTR NOCBCOUNT E CP) MOMENTS (M MOMEN N V MR LEV) MOMENTS.FEW (
WVAL VAL OLDNCELL NCELL MEAN DEV SS) MOMENTS.MANY (K J I V SAVROW OUTPUT N Y Z X B U SGN L P) PAIRN (
WVAL J MFLAG OBS NROW N K JK PAIRN) POOL (NEWN LASTN LASTMEAN LASTSS C TEMP D POOL) NIL
SMASHFREE COUNTS NIL COVAR NIL GROUP NIL GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL NIL
SMASH COUNTS NIL COVAR NIL GROUP (GROUP) GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL NIL
PROP COUNTS NIL COVAR NIL GROUP NIL GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL NIL
TEST COUNTS (V) COVAR (WT GSBW WVAL J MFLAG I K DK OBSJ R C) GROUP (VALUES DIM J I V P LABPROPFLAG) 
GROUP.HIDDENCODES (VALUE VD) GROUP.HIDDENLEVLAB (I FOUND) GROUP.LAB (DIM LEV CB) GROUP.LINLOC (VALUE 
VAR IDX C) GROUP.SHAPE (CODES I PTR NOCBSEL E C) MOMENTS (WT M N V LEV) MOMENTS.FEW (WT VAL WVAL GSBW)
 MOMENTS.MANY (V I K J) PAIRN (WT WVAL GSBW J MFLAG K) POOL (TEMP NEWN LASTN LASTMEAN LASTSS) NIL
TESTFREE COUNTS NIL COVAR (LABPROPFLAG) GROUP (LABPROPFLAG) GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB 
NIL GROUP.LAB NIL GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS (LABPROPFLAG) MOMENTS.FEW NIL MOMENTS.MANY 
NIL PAIRN (LABPROPFLAG) POOL (LABPROPFLAG) NIL
PREDICATE COUNTS NIL COVAR NIL GROUP (ARRAYTYPEP NUMBERP TYPENAMEP ROWTYPEP FIXP IGEQ UERRORPRINT? 
ZEROP GREATERP LESSP IGREATERP) GROUP.HIDDENCODES (TYPENAMEP ARRAYTYPEP ROWTYPEP FIXP) 
GROUP.HIDDENLEVLAB (TYPENAMEP LITATOM ARRAYTYPEP ROWTYPEP FIXP IGEQ SELECTQ GREATERP) GROUP.LAB (
ARRAYTYPEP TYPENAMEP ROWTYPEP GREATERP) GROUP.LINLOC (ARRAYTYPEP FIXP TYPENAMEP ROWTYPEP IGEQ GREATERP
 EQP) GROUP.SHAPE (ARRAYTYPEP ROWTYPEP FIXP GREATERP TYPENAMEP NUMBERP EQP FLOATP) MOMENTS NIL 
MOMENTS.FEW (TYPENAMEP FIXP BETWEEN ROWTYPEP IEQP UERRORPRINT? NUMBERP FLOATP) MOMENTS.MANY (TYPENAMEP
 FIXP GREATERP ROWTYPEP FLOATP NUMBERP MEMBER LESSP) PAIRN NIL POOL NIL NIL
EFFECT COUNTS (DECLARE) COVAR (DECLARE) GROUP (DECLARE PRINTOUT TERPRI GROUP.SHAPE RESETUP SKIP 
SETAELT ADJUST.SELECTION GROUP.LAB SETDIMLAB LAB.COPYDIM SETTITLE FRPLACD) GROUP.HIDDENCODES NIL 
GROUP.HIDDENLEVLAB NIL GROUP.LAB (SETDIMLAB SETLEVLAB) GROUP.LINLOC (SKIP) GROUP.SHAPE (SELECTQ ROWBLT
 SHOULDNT) MOMENTS (DECLARE) MOMENTS.FEW (PRINTOUT TERPRI SKIP ASSERT SETRELT) MOMENTS.MANY (SETRELT) 
PAIRN (DECLARE) POOL (DECLARE) NIL
CLISP COUNTS (ULAMBDA DLAMBDA the bind declare until when do finally) COVAR (ULAMBDA DLAMBDA the DPROG
 bind until do for to unless as from by declare first DPROGN when) GROUP (ULAMBDA DLAMBDA DPROG type? 
coerce for from to do declare finally by bind first unless the as until collect in) GROUP.HIDDENCODES 
(DLAMBDA the type? DPROG) GROUP.HIDDENLEVLAB (DLAMBDA the type? DPROG for to do) GROUP.LAB (DLAMBDA 
bind declare for to do) GROUP.LINLOC (DLAMBDA the for to declare do finally from as in first when) 
GROUP.SHAPE (DLAMBDA DPROG for to do finally from bind repeatuntil declare by until when in first 
type?) MOMENTS (ULAMBDA DLAMBDA DPROG the for to do) MOMENTS.FEW (DLAMBDA the bind declare until do 
finally DPROGN) MOMENTS.MANY (DLAMBDA the DPROG until bind declare first do DPROGN for from to as by 
finally) PAIRN (ULAMBDA DLAMBDA the DPROG bind declare until do for to type?) POOL (ULAMBDA DLAMBDA 
the bind declare until do finally DPROGN) NIL
SPECVARS COUNTS (A) COVAR (A WT) GROUP (ATTRIBS VALUES DIM LABPROPFLAG) GROUP.HIDDENCODES NIL 
GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS (A WT M) MOMENTS.FEW NIL
 MOMENTS.MANY NIL PAIRN (A WT) POOL (MTABLE) NIL
LOCALVARS COUNTS NIL COVAR NIL GROUP (T) GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL NIL
APPLY COUNTS (DECLARE UENTRY TYPENAMEP NUMBERP IEQP NLOGICALELTS VSCALARP COPYAELT VSCALARPTR SETUP 
GETAELT NEXT PLUS) COVAR (DECLARE UENTRY ARRAYTYPEP GETRELT UERROR UERRORPRINT? PRINTOUT PRIN1 TERPRI 
UERROR! SETUP FIXP IGEQ SELECTQ FLOATP LEQ ROWTYPEP TYPENAMEP IQUOTIENT ITIMES ADD1 IPLUS GETAELT NEXT
 FGREATERP FLOAT SKIP GREATERP SETRELT PLUS FQUOTIENT FTIMES FPLUS FDIFFERENCE SETTITLE MAKETITLE LIST
 LAB.COPYDIM SETLEVLAB SETARRAYPROP FGTP SUB1 SQRT ROWBLT) GROUP NIL GROUP.HIDDENCODES NIL 
GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS (DECLARE UENTRY 
TYPENAMEP FIXP MINUSP ARRAYTYPEP VFROMR VSCALARP CONV.SCALAR GETAELT VSCALARPTR ROWTYPEP NUMBERP PLUS 
SETRELT GREATERP UERROR UERRORPRINT? PRINTOUT PRIN1 TERPRI UERROR! MOMENTS.MANY MOMENTS.FEW SETTITLE 
MAKETITLE LIST SETDIMLAB SETLEVLAB SELECTQ PACK* DIFFERENCE) MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN (
DECLARE UENTRY ARRAYTYPEP GETRELT UERROR UERRORPRINT? PRINTOUT PRIN1 TERPRI UERROR! ZEROFORARRAY FIXP 
NUMBERP ROWTYPEP IQUOTIENT ITIMES ADD1 IGEQ SETUP SELECTQ TYPENAMEP GETAELT NEXT GREATERP SKIP FLOATP 
SETRELT PLUS ROWINTOF SETTITLE MAKETITLE LIST LAB.COPYDIM) POOL (DECLARE UENTRY TYPENAMEP GETRELT 
ARRAYTYPEP SETUP FLOATP NUMBERP GETAELT NEXT FGREATERP FTIMES SKIP FPLUS FDIFFERENCE DIFFERENCE 
FQUOTIENT VFROMR FILLROW LAB.COPYDIM SETTITLE MAKETITLE) NIL
ERROR COUNTS NIL COVAR NIL GROUP (ppe) GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL NIL
LOCALFREEVARS COUNTS NIL COVAR NIL GROUP NIL GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB 
NIL GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL NIL 
NIL
ARGS COUNTS NIL COVAR NIL GROUP NIL GROUP.HIDDENCODES NIL GROUP.HIDDENLEVLAB NIL GROUP.LAB NIL 
GROUP.LINLOC NIL GROUP.SHAPE NIL MOMENTS NIL MOMENTS.FEW NIL MOMENTS.MANY NIL PAIRN NIL POOL 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 COUNTS (ARRAY ARITH NIL SCALAR GENSTATEBLOCK) COVAR (MATRIX NIL VECTOR SIMARRAY IJK BOOL FLOATING 
ROWFLOAT GENSTATEBLOCK ROWSCALAR) GROUP (VECTOR MATRIX NIL SCALAR ARRAY ROWINT IJK INTEGER SIMARRAY 
ROWPTR GENSTATEBLOCK) GROUP.HIDDENCODES (ARRAY NIL CODEBOOK SELARRAY ROWPTR SIMARRAY INTEGER) 
GROUP.HIDDENLEVLAB (ARRAY LABEL SELARRAY SIMARRAY ROWPTR TTELT BOOL NIL) GROUP.LAB (VECTOR MATRIX 
ARRAY ROWPTR NIL ROWINT CODEBOOK) GROUP.LINLOC (VECTOR MATRIX INTEGER GENSTATEBLOCK ROWINT ROWPTR NIL 
IJK) GROUP.SHAPE (VECTOR MATRIX ROWINT ROWPTR INTEGER NIL CODEBOOK ARRAY SCALAR GENSTATEBLOCK FLOATING
) MOMENTS (ARRAY NIL INTEGER VECTOR SIMARRAY ROWSCALAR SCALAR) MOMENTS.FEW (ARRAY NIL INTEGER 
ROWSCALAR SCALAR FLOATING GENSTATEBLOCK) MOMENTS.MANY (ARRAY INTEGER ROWSCALAR NIL FLOATING SCALAR 
ROWFLOAT GENSTATEBLOCK) PAIRN (MATRIX NIL VECTOR SIMARRAY INTEGER ARITH ROWINT ROWFLOAT IJK BOOL 
ROWPTR SCALAR GENSTATEBLOCK FLOATING) POOL (ARRAY VECTOR NIL FLOATING SCALAR GENSTATEBLOCK ARITH) NIL

)