(PROGN (PRIN1 "Use LOADDB to load database files! " T) (ERROR!)) ("16-Feb-86 13:46:22" . {QV}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 )