(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("16-Feb-86 13:46:22" . {QV}<IDL>SOURCES>GENERATORS.;17)
FNS (GENTOARY SETUP RESETUP SKIP NEXT SIMPLE.NEXTFN SYMSELECT.NEXTFN SELECTION.NEXTFN)
(READATABASE)
(
CALL GENTOARY (DIFFERENCE PLUS) SETUP (NPHYSICALELTS NLOGICALELTS CONS) RESETUP (NLOGICALELTS) SKIP (
PLUS FETCHFIELD MINUS) NEXT (PLUS FETCHFIELD SELECTQ RELTPTR REPLACEFIELD SIMPLE.NEXTFN 
SELECTION.NEXTFN SYMSELECT.NEXTFN APPLY*) SIMPLE.NEXTFN (GENTOARY PLUS GETRELT IDIFFERENCE 
ADJUST.LINLOC LINELTPTR) SYMSELECT.NEXTFN (GETRELT RPLACA IPLUS RPLACD RELTPTR SELECTQ PHYSELT 
SYMELTLOC TTGETELT SHOULDNT) SELECTION.NEXTFN (GETRELT ADJUST.LINLOC SUB1 SELECTQ TTELTTYPE PHYSELT 
SHOULDNT PLUS GENTOARY BASEDIM IDIFFERENCE LINELT SETRELT TTABDIM GETRELTD LINELTPTR) NIL
BIND GENTOARY NIL SETUP NIL RESETUP NIL SKIP (RPTN) NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
NLAMBDA GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
NOBIND GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
RECORD GENTOARY NIL SETUP (ARRAYFRAME GENSTATEBLOCK) RESETUP (GENSTATEBLOCK) SKIP (GENSTATEBLOCK) NEXT
 (GENSTATEBLOCK AELTPTR ARRAYFRAME) SIMPLE.NEXTFN (GENSTATEBLOCK SIMARRAY ROWINT) SYMSELECT.NEXTFN (
GENSTATEBLOCK SELARRAY) SELECTION.NEXTFN (GENSTATEBLOCK SELARRAY SIMARRAY ROWPTR ROWINT) NIL
CREATE GENTOARY NIL SETUP (GENSTATEBLOCK ROWINT SELECTIONETC) RESETUP NIL SKIP NIL NEXT (AELTPTR) 
SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL SELECTION.NEXTFN NIL NIL
FETCH GENTOARY NIL SETUP (SHAPE FORMAT TYPE ORDER ELEMENTBLOCK NDIMS BASEARRAY) RESETUP (SHAPE 
SOURCEARRAY NEXTFN NELTS ETC TTABLINLOC VIRTSUBSCRIPT) SKIP (ELTCNT NEXTFN LINLOC) NEXT (DONE SOURCE 
ELTCNT SOURCEARRAY NEXTFN ETC LINLOC) SIMPLE.NEXTFN (NEXTFN SOURCEARRAY ETC LINLOC ORDER NDIMS SHAPE) 
SYMSELECT.NEXTFN (NEXTFN SOURCEARRAY ETC FORMAT LINLOC ORDER SHAPE ELEMENTBLOCK BASEARRAY TTAB) 
SELECTION.NEXTFN (NEXTFN SOURCEARRAY BASEARRAY TTAB LINLOC AELTTYPE NDIMS TTABLINLOC ETC VIRTSUBSCRIPT
 ORDER DIMMAP SHAPE) NIL
REPLACE GENTOARY NIL SETUP (SOURCEARRAY LINLOC ELTCNT ORDER NEXTFN ETC NELTS INIT TTABLINLOC 
VIRTSUBSCRIPT) RESETUP (LINLOC ELTCNT) SKIP (ELTCNT LINLOC) NEXT (ELTCNT SOURCE PTR LINLOC) 
SIMPLE.NEXTFN (LINLOC) SYMSELECT.NEXTFN (LINLOC) SELECTION.NEXTFN (LINLOC) NIL
REFFREE GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
REF GENTOARY (GDIM NDIM ORDR VALUE) SETUP (ARY ORD VALUE) RESETUP (VALUE) SKIP (N VALUE) NEXT (GSB 
VALUE) SIMPLE.NEXTFN (SOURCE SUB) SYMSELECT.NEXTFN (A) SELECTION.NEXTFN (SOURCE BASE TTAB TTABLL VSUB)
 NIL
SETFREE GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
SET GENTOARY NIL SETUP (GSB) RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN (LL CAD CGD DELTA) 
SYMSELECT.NEXTFN NIL SELECTION.NEXTFN (BLL I TT CVD CGD CBD DELTA OLL) NIL
SMASHFREE GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
SMASH GENTOARY NIL SETUP (GSB) RESETUP (GSB) SKIP (GSB) NEXT NIL SIMPLE.NEXTFN (GSB) SYMSELECT.NEXTFN 
(E GSB) SELECTION.NEXTFN (GSB) NIL
PROP GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
TEST GENTOARY NIL SETUP (GSB) RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN (I) NIL
TESTFREE GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
PREDICATE GENTOARY (FIXP BETWEEN SELECTQ) SETUP (TYPENAMEP SELECTQ SHOULDNT) RESETUP (TYPENAMEP) SKIP 
(TYPENAMEP FIXP MINUSP GEQ) NEXT (TYPENAMEP) SIMPLE.NEXTFN (TYPENAMEP SUBSCRIPTP ARRAYTYPEP FIXP 
DIMENSIONP IGEQ ROWTYPEP IEQP ILESSP IGREATERP) SYMSELECT.NEXTFN (TYPENAMEP ARRAYTYPEP LEVELP IEQP 
ILESSP) SELECTION.NEXTFN (TYPENAMEP ARRAYTYPEP ROWTYPEP FIXP IGEQ IEQP GREATERP DIMENSIONP ILESSP) NIL
EFFECT GENTOARY NIL SETUP NIL RESETUP (SELECTQ ROWBLT RPLACA RPLACD SHOULDNT) SKIP (REPLACEFIELD RPTQ 
NEXT) NEXT NIL SIMPLE.NEXTFN (SETRELT) SYMSELECT.NEXTFN (FRPLACA) SELECTION.NEXTFN NIL NIL
CLISP GENTOARY (DLAMBDA the) SETUP (DLAMBDA the DPROGN) RESETUP (DLAMBDA the) SKIP (DLAMBDA the) NEXT 
(DLAMBDA the type?) SIMPLE.NEXTFN (DLAMBDA the DPROG do repeatuntil) SYMSELECT.NEXTFN (DLAMBDA the 
DPROG) SELECTION.NEXTFN (DLAMBDA the DPROG for to do repeatuntil) NIL
SPECVARS GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
LOCALVARS GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
APPLY GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
ERROR GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT (apply) SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN NIL NIL
LOCALFREEVARS GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN 
NIL SELECTION.NEXTFN NIL NIL
ARGS GENTOARY NIL SETUP NIL RESETUP NIL SKIP NIL NEXT NIL SIMPLE.NEXTFN NIL SYMSELECT.NEXTFN NIL 
SELECTION.NEXTFN 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)) PERFORM (
MACRO ARGS (PERFORMTRAN ARGS T)) FCACHE.GETPROP (CALL EVAL PROP . PPE) SPREADAPPLY (CALL FUNCTIONAL 
EVAL . PPE) FCACHE.PUTPROP (CALL EVAL PROP EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) OP# (
CALL) NIL
0 GENTOARY (INTEGER GORDER) SETUP (ARRAY GORDER NIL GENSTATEBLOCK) RESETUP (GENSTATEBLOCK) SKIP (
GENSTATEBLOCK INTEGER) NEXT (GENSTATEBLOCK AELTPTR ARRAY) SIMPLE.NEXTFN (GENSTATEBLOCK RELTPTR 
SIMARRAY INTEGER IJK IJKDELTA ROWINT NIL) SYMSELECT.NEXTFN (GENSTATEBLOCK RELTPTR SELARRAY LISTP) 
SELECTION.NEXTFN (GENSTATEBLOCK RELTPTR SELARRAY SIMARRAY ROWPTR IJK TTELT NIL ROWINT INTEGER IJKDELTA
) NIL

)