(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("16-Feb-86 13:15:38" . {QV}<IDL>SOURCES>PRINT.;22)
FNS (PPA PRINTARRAYPROPS PRINTELT PRINTLABEL PRINTMATRIX PRINTTITLE SPACEP TITLE.PRINT.ACTION 
AFDEFPRINT)
(READATABASE)
(
CALL PPA (UENTRY FIXR CONV.ARITH IGREATERP UERROR PRIN2 UERROR! BETWEEN UERRORGUARD UERRORSET NAMEDLET
 UERRORNAME RPLACA FIXP RESETSAVE OUTPUT OUTFILE PRIN1 GETAELT VSCALARPTR IMIN LABELLEVEL IPLUS 
GETVALDIM LINELENGTH NUMFORMATCODE LIST CONSTANT IDIFFERENCE GETRELT IMAX IQUOTIENT ADD1 ITIMES 
GETTITLE FSELECT PLUS PRINTOUT GETDIMLAB IEQP GETLEVLAB GETCODES CONS IJKBOX SUB1) PRINTARRAYPROPS (
FASSOC PRINTOUT TAB PRIN1 printout GETDIMLAB PRINTDEF POSITION) PRINTELT (perform PRINTOUT IDIFFERENCE
 PRIN1) PRINTLABEL (printout PRINTOUT FLUSHRIGHT IMINUS NCHARS SUBSTRING CONSTANT CONCAT) PRINTMATRIX 
(SUB1 SETUP PRINTOUT GETDIMLAB TERPRI GETRELT IJKBOX IPLUS GETLEVLAB PLUS GETAELT NEXT GETCODES PRIN1 
TAB IDIFFERENCE) PRINTTITLE (FUNCTION) SPACEP (NTHCHARCODE) TITLE.PRINT.ACTION (MKSTRING ARG NCHARS 
PLUS POSITION STRINGP SETARG CONCAT STRPOS DIFFERENCE IEQP PRINTOUT TAB SUBSTRING CONSTANT) AFDEFPRINT
 (RPLACA CONSTANT CONS PACK APPLY NCONC1 SERIALNUMBER GETAELT VSCALARPTR GETDIMLAB GETRELT PLUS) NIL
BIND PPA NIL PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE NIL SPACEP NIL
 TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
NLAMBDA PPA NIL PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE NIL SPACEP 
(CHARCODE) TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
NOBIND PPA NIL PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE NIL SPACEP 
NIL TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
RECORD PPA (ARRAYFRAME GENSTATEBLOCK ROWINT CODEBOOK ROWPTR SELARRAY) PRINTARRAYPROPS (ARRAYFRAME) 
PRINTELT (CODEBOOK PERFORMOPS) PRINTLABEL NIL PRINTMATRIX (ARRAYFRAME CODEBOOK GENSTATEBLOCK ROWINT) 
PRINTTITLE NIL SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT (ARRAYFRAME) NIL
CREATE PPA (GENSTATEBLOCK ROWINT ROWPTR) PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX 
NIL PRINTTITLE NIL SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
FETCH PPA (SHAPE FORMAT NELTS AELTTYPE) PRINTARRAYPROPS (SLOT5) PRINTELT (PERFORMOPS FINDLAB CODE 
CODELAB) PRINTLABEL NIL PRINTMATRIX (SHAPE) PRINTTITLE NIL SPACEP NIL TITLE.PRINT.ACTION NIL 
AFDEFPRINT (NDIMS SHAPE KEEPS) NIL
REPLACE PPA (NELTS INIT) PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE 
NIL SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
REFFREE PPA (UERRORSET) PRINTARRAYPROPS (NUMFORMAT) PRINTELT (LABELPRINTFLAG FIELDWIDTH NUMFORMAT) 
PRINTLABEL NIL PRINTMATRIX (A NDIMS LABELPRINTFLAG ROWLABELWIDTH FIELDWIDTH) PRINTTITLE NIL SPACEP NIL
 TITLE.PRINT.ACTION (RM LM) AFDEFPRINT NIL NIL
REF PPA (A UARG GSB SHAPE FIELDWIDTH PAGEWIDTH NDIMS XDIMS SHPND LM RM S SLICE) PRINTARRAYPROPS (A 
LMARG RMARG) PRINTELT NIL PRINTLABEL (WIDTH) PRINTMATRIX (ASLICE LC SHAPE COLOFFSET) PRINTTITLE (TIT 
LM RM NONEWLINE ACTION) SPACEP (S I VALUE) TITLE.PRINT.ACTION (NARGS) AFDEFPRINT (AF) NIL
SETFREE PPA (ROWLABELWIDTH LABELPRINTFLAG) PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX
 (GSB CB) PRINTTITLE NIL SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
SET PPA (ROWLABELWIDTH LABELPRINTFLAG VALUE NCOLUMNS D L CB LC RC TEMP) PRINTARRAYPROPS (P) PRINTELT (
CODE CP) PRINTLABEL NIL PRINTMATRIX (I COL ROW REALROW) PRINTTITLE NIL SPACEP NIL TITLE.PRINT.ACTION (
S NS A I J) AFDEFPRINT (LST I) NIL
SMASHFREE PPA (PRECISION) PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE 
NIL SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
SMASH PPA (HEIGHTSLTR) PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE NIL 
SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT (LST) NIL
PROP PPA NIL PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE NIL SPACEP NIL
 TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
TEST PPA (FILE CB VALDIM NUMFORMAT D XDSUB EMPTYFLAG SYM HEIGHTSLTR) PRINTARRAYPROPS (P V) PRINTELT (
ELT CB CODE C) PRINTLABEL (DEFAULT LABEL) PRINTMATRIX (I COL ROW ROWCB) PRINTTITLE NIL SPACEP NIL 
TITLE.PRINT.ACTION NIL AFDEFPRINT (I LAB SH) NIL
TESTFREE PPA NIL PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX (VALDIM CB SYM EMPTYFLAG)
 PRINTTITLE NIL SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
PREDICATE PPA (TYPENAMEP UERRORPRINT? UERRORGUARDVAL EVERY OPENP VSCALARP SELECTQ ROWTYPEP ZEROP 
ILESSP IGEQ GREATERP ARRAYTYPEP MINUSP LESSP) PRINTARRAYPROPS (TYPENAMEP FIXP) PRINTELT (NUMBERP FIXP 
LITATOM EQP) PRINTLABEL (FIXP LITATOM GREATERP) PRINTMATRIX (ARRAYTYPEP FIXP IGREATERP TYPENAMEP 
SELECTQ ROWTYPEP IGEQ IEQP GREATERP) PRINTTITLE (STRINGP FIXP SELECTQ FNTYP) SPACEP (STRINGP FIXP 
SELECTQ) TITLE.PRINT.ACTION (FIXP GREATERP SPACEP ILEQ LESSP) AFDEFPRINT (TYPENAMEP VSCALARP GREATERP)
 NIL
EFFECT PPA (DECLARE TERPRI RESETLST PRINTTITLE PRINTARRAYPROPS PRINTMATRIX SETRELT printout 
ADJUST.SELECTION FRPLACA) PRINTARRAYPROPS (TERPRI SELECTQ PRINTNUM MAPC SPACES) PRINTELT (PRINTLABEL 
printout SPACES PRINTNUM) PRINTLABEL NIL PRINTMATRIX (printout SPACES PRINTLABEL PRINTELT SKIP) 
PRINTTITLE (DECLARE TERPRI TAB TRAVERSE.TITLE) SPACEP NIL TITLE.PRINT.ACTION (DECLARE PRIN1 printout 
TERPRI) AFDEFPRINT (MAPC) NIL
CLISP PPA (ULAMBDA DLAMBDA coerce DPROGN DPROG bind declare do repeatwhile for to finally the from by 
as thereis) PRINTARRAYPROPS (DLAMBDA DPROGN for in when do) PRINTELT (DLAMBDA DPROGN DPROG for in 
first when do) PRINTLABEL (DLAMBDA) PRINTMATRIX (DLAMBDA DPROGN DPROG for to do as from declare bind) 
PRINTTITLE (DLAMBDA DPROG) SPACEP (DLAMBDA the) TITLE.PRINT.ACTION (DPROG while do) AFDEFPRINT (
DLAMBDA for to do in) NIL
SPECVARS PPA (A FILE VALDIM CB FIELDWIDTH SYM GSB EMPTYFLAG LABELPRINTFLAG NUMFORMAT NDIMS) 
PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE (RM LM ACTION) SPACEP NIL 
TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
LOCALVARS PPA (T) PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE NIL 
SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
APPLY PPA NIL PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE (
TITLE.PRINT.ACTION) SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT (CONCAT) NIL
ERROR PPA (ppe) PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE NIL SPACEP 
NIL TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
LOCALFREEVARS PPA NIL PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE NIL 
SPACEP NIL TITLE.PRINT.ACTION NIL AFDEFPRINT NIL NIL
ARGS PPA NIL PRINTARRAYPROPS NIL PRINTELT NIL PRINTLABEL NIL PRINTMATRIX NIL PRINTTITLE NIL SPACEP NIL
 TITLE.PRINT.ACTION NIL AFDEFPRINT 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 PPA (ARRAY NIL LISTP INTEGER BOOL GENSTATEBLOCK ROWINT CODEBOOK IJK ROWPTR SELARRAY) PRINTARRAYPROPS
 (ARRAY INTEGER NIL) PRINTELT (SCALAR NIL CODEBOOK INTEGER LABEL) PRINTLABEL (INTEGER NIL LABEL) 
PRINTMATRIX (VECTOR MATRIX INTEGER ARRAY NIL CODEBOOK BOOL GENSTATEBLOCK ROWINT IJK) PRINTTITLE (TITLE
 INTEGER BOOL FUNCTION) SPACEP (STRINGP INTEGER BOOL) TITLE.PRINT.ACTION (INTEGER STRINGP NIL) 
AFDEFPRINT (ARRAYFRAME NIL) NIL

)