(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 4-Sep-85 13:10:13" . {QV}<IDL>SOURCES>CONV.;8)
FNS (CONV.ARITH CONV.ARRAY CONV.NARRAY CONV.NARRAY1 CONV.ROWFLOAT CONV.ROWINT CONV.ROWSCALAR 
CONV.SCALAR CONV.SIMARRAY CONV.VECTOR LISPNUMBER)
(READATABASE)
(
CALL CONV.ARITH (CONV.SCALAR UERROR UERROR!) CONV.ARRAY (UERRORGUARD UERRORGUARDVAL UERRORSET NAMEDLET
 UERRORNAME VFROMR CONV.ROWSCALAR CONV.NARRAY UERROR UERROR!) CONV.NARRAY (CONS LENGTH GETRELT IPLUS 
ROWINTOF1 DREVERSE ALLOC.SARRAY SETUP) CONV.NARRAY1 (UERROR UERROR! IPLUS GETRELT ADD1 IDIFFERENCE 
GETDIMLAB GETLEVLAB SETUP NEXT MAKE1SLTR GETAELT MAKE1DIMSPEC NLOGICALELTS CONV.SCALAR) CONV.ROWFLOAT 
(CONV.ROWSCALAR UERROR UERROR! SELECTQ GETRELT IPLUS SHOULDNT) CONV.ROWINT (CONV.ROWSCALAR UERROR 
UERROR! SELECTQ FBIND GETRELT FIXR IPLUS SHOULDNT) CONV.ROWSCALAR (GETRELT UERROR UERROR! IPLUS 
CONV.SIMARRAY LENGTH CONV.SCALAR FLOATROW SUB1) CONV.SCALAR (COPYAELT VSCALARPTR NLOGICALELTS AELTPTR 
UERROR UERROR! CONV.SCALAR) CONV.SIMARRAY (ALLOC.SARRAY SETUP NEXT GETAELT) CONV.VECTOR (CONV.ARRAY 
SELECTQ GETAELT VSCALARPTR UERROR UERROR! GETRELT IPLUS FSELECT) LISPNUMBER (UERRORGUARD 
UERRORGUARDVAL UERRORSET NAMEDLET UERRORNAME CONV.ARITH) NIL
BIND CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT NIL 
CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL NIL
NLAMBDA CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT 
NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL NIL
NOBIND CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT 
NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL NIL
RECORD CONV.ARITH NIL CONV.ARRAY (ARRAYFRAME) CONV.NARRAY (ARRAYFRAME ROWINT GENSTATEBLOCK) 
CONV.NARRAY1 (ARRAYFRAME ROWINT GENSTATEBLOCK) CONV.ROWFLOAT (ROWFLOAT ROWSCALAR ROWINT) CONV.ROWINT (
ROWINT ROWSCALAR ROWFLOAT) CONV.ROWSCALAR (ROWSCALAR ARRAYFRAME) CONV.SCALAR (ARRAYFRAME) 
CONV.SIMARRAY (ARRAYFRAME SIMARRAY GENSTATEBLOCK) CONV.VECTOR (ROWINT) LISPNUMBER NIL NIL
CREATE CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT (ROWFLOAT) 
CONV.ROWINT (ROWINT) CONV.ROWSCALAR (ROWINT ROWSCALAR) CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR (
ROWPTR) LISPNUMBER NIL NIL
FETCH CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY (SHAPE NELTS) CONV.NARRAY1 (SHAPE NELTS DONE AELTTYPE 
ELEMENTBLOCK) CONV.ROWFLOAT (RELTTYPE NELTS) CONV.ROWINT (RELTTYPE NELTS) CONV.ROWSCALAR (NDIMS SHAPE 
ELEMENTBLOCK) CONV.SCALAR (SHAPE) CONV.SIMARRAY (SHAPE FORMAT AELTTYPE ORDER DONE) CONV.VECTOR (NDIMS 
SHAPE) LISPNUMBER NIL NIL
REPLACE CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT (NELTS) 
CONV.ROWINT (NELTS) CONV.ROWSCALAR (NELTS RELTTYPE INIT) CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR
 (NELTS INIT) LISPNUMBER NIL NIL
REFFREE CONV.ARITH NIL CONV.ARRAY (UERRORSET) CONV.NARRAY NIL CONV.NARRAY1 (PREDFLAG SH ARRAY NDIMS 
GSBA) CONV.ROWFLOAT NIL CONV.ROWINT NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL 
CONV.VECTOR NIL LISPNUMBER (UERRORSET) NIL
REF CONV.ARITH (VALUE) CONV.ARRAY (VALUE) CONV.NARRAY (PREDFLAG DS SH ARRAY NDIMS GSBA FIXFLG N) 
CONV.NARRAY1 (LIM DSH UARG) CONV.ROWFLOAT (VALUE R RR) CONV.ROWINT (VALUE R RR) CONV.ROWSCALAR (VALUE)
 CONV.SCALAR NIL CONV.SIMARRAY (A VALUE RESULT GSBOLD GSBNEW) CONV.VECTOR (VALUE SH) LISPNUMBER NIL 
NIL
SETFREE CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 (GSBD FIXFLG N) CONV.ROWFLOAT NIL 
CONV.ROWINT NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL 
NIL
SET CONV.ARITH NIL CONV.ARRAY (TEMP) CONV.NARRAY (VAL D I) CONV.NARRAY1 (DIM D L I J VAL DATA) 
CONV.ROWFLOAT (I) CONV.ROWINT (I TEMP) CONV.ROWSCALAR (I FLAG J V FLOATFLAG CA) CONV.SCALAR NIL 
CONV.SIMARRAY NIL CONV.VECTOR (A DIM REALDIM SLTR) LISPNUMBER (X) NIL
SMASHFREE CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT
 NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL NIL
SMASH CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY (VAL) CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT 
NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL NIL
PROP CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT NIL 
CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL NIL
TEST CONV.ARITH (A) CONV.ARRAY (A) CONV.NARRAY (DATA LABSOURCE LABDIM D VAL I GSBD) CONV.NARRAY1 (DATA
 D I J L VAL) CONV.ROWFLOAT (A I) CONV.ROWINT (A I) CONV.ROWSCALAR (A I FLAG V J FLOATFLAG TMP) 
CONV.SCALAR (A VALUE) CONV.SIMARRAY (LABPROPFLAG) CONV.VECTOR (A DIM SLTR REALDIM) LISPNUMBER NIL NIL
TESTFREE CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 (LABSOURCE LABDIM GSBD FIXFLG) 
CONV.ROWFLOAT NIL CONV.ROWINT NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL
 LISPNUMBER NIL NIL
PREDICATE CONV.ARITH (NUMBERP UERRORPRINT?) CONV.ARRAY (TYPENAMEP UERRORPRINT?) CONV.NARRAY (TYPENAMEP
 FIXP DIMENSIONP SELECTQ ROWTYPEP IGREATERP IGEQ) CONV.NARRAY1 (FIXP TYPENAMEP DIMENSIONP SELECTQ 
ROWTYPEP IGEQ IEQP UERRORPRINT? IGREATERP ILESSP VSCALARP NUMBERP FLOATP) CONV.ROWFLOAT (ROWTYPEP 
HASNILS UERRORPRINT? IGREATERP) CONV.ROWINT (ROWTYPEP HASNILS UERRORPRINT? FLOATP IGREATERP) 
CONV.ROWSCALAR (ROWTYPEP TYPENAMEP VSCALARP IGREATERP IEQP UERRORPRINT? NUMBERP SELECTQ FLOATP) 
CONV.SCALAR (NUMBERP TYPENAMEP VSCALARP IEQP UERRORPRINT? LITATOM U-CASE) CONV.SIMARRAY (TYPENAMEP 
ARRAYTYPEP) CONV.VECTOR (ARRAYTYPEP VSCALARP UERRORPRINT? ROWTYPEP IGREATERP IEQP) LISPNUMBER NIL NIL
EFFECT CONV.ARITH (PRIN1 PRIN2 TERPRI) CONV.ARRAY (PRIN1 PRIN2 TERPRI) CONV.NARRAY (DECLARE 
CONV.NARRAY1) CONV.NARRAY1 (PRIN1 PRIN2 TERPRI CONV.NARRAY1 SETDIMLAB SETLEVLAB SETAELT FLOATROW 
DECLARE) CONV.ROWFLOAT (PRIN1 TERPRI SETRELT) CONV.ROWINT (PRIN1 TERPRI SETRELT) CONV.ROWSCALAR (PRIN1
 TERPRI SETRELT) CONV.SCALAR (PRIN1 TERPRI PRIN2) CONV.SIMARRAY (DECLARE SETAELT LAB.COPYALL) 
CONV.VECTOR (PRIN1 TERPRI SETRELT) LISPNUMBER NIL NIL
CLISP CONV.ARITH (DLAMBDA the printout) CONV.ARRAY (DLAMBDA the type? DPROG printout) CONV.NARRAY (
DLAMBDA DPROG for by while do finally type? from to) CONV.NARRAY1 (DLAMBDA DPROGN printout for on 
declare do finally type? bind from to as first unless until DPROG coerce) CONV.ROWFLOAT (DLAMBDA the 
type? DPROG printout for to bind declare do finally DPROGN) CONV.ROWINT (DLAMBDA the type? DPROG 
printout for to bind declare do finally DPROGN) CONV.ROWSCALAR (DLAMBDA the type? for to unless do 
printout bind declare from as in finally DPROG) CONV.SCALAR (DLAMBDA the type? printout) CONV.SIMARRAY
 (DLAMBDA the type? DPROG bind declare until do) CONV.VECTOR (DLAMBDA the printout for to declare 
unless do finally) LISPNUMBER NIL NIL
SPECVARS CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY (PREDFLAG LABDIM LABSOURCE SH NDIMS ARRAY N FIXFLG 
GSBD GSBA) CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL 
CONV.SIMARRAY (LABPROPFLAG) CONV.VECTOR NIL LISPNUMBER NIL NIL
LOCALVARS CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 (T) CONV.ROWFLOAT NIL CONV.ROWINT
 NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL NIL
APPLY CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT NIL
 CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL NIL
ERROR CONV.ARITH NIL CONV.ARRAY (ppe) CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT 
NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER (ppe) NIL
LOCALFREEVARS CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT NIL 
CONV.ROWINT NIL CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER NIL 
NIL
ARGS CONV.ARITH NIL CONV.ARRAY NIL CONV.NARRAY NIL CONV.NARRAY1 NIL CONV.ROWFLOAT NIL CONV.ROWINT NIL 
CONV.ROWSCALAR NIL CONV.SCALAR NIL CONV.SIMARRAY NIL CONV.VECTOR NIL LISPNUMBER 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 CONV.ARITH (NIL ARITH) CONV.ARRAY (NIL ARRAY) CONV.NARRAY (NIL ARRAY INTEGER BOOL ROWINT 
GENSTATEBLOCK IJK) CONV.NARRAY1 (NIL INTEGER ARRAY BOOL ROWINT GENSTATEBLOCK IJK SCALAR FLOATING) 
CONV.ROWFLOAT (NIL ROWFLOAT ROWSCALAR ROWINT) CONV.ROWINT (NIL ROWINT ROWSCALAR FLOATING ROWFLOAT) 
CONV.ROWSCALAR (NIL ROWSCALAR ARRAY SCALAR BOOL FLOATING) CONV.SCALAR (NIL SCALAR ARRAY) CONV.SIMARRAY
 (ARRAY NIL SIMARRAY GENSTATEBLOCK) CONV.VECTOR (NIL VECTOR ROWINT) LISPNUMBER NIL NIL

)