(PROGN (PRIN1 "Use LOADDB to load database files! " T) (ERROR!)) ("16-Feb-86 13:53:10" . {QV}SOURCES>SELECTOR.;21) FNS (ADJUST.LINLOC ADJUST.SELECTION ADJUST.SELTTE AELTPTR AELTPTR1 AELTPTR2 COMPOSE.SLTRS FORMATOF FSELECT LINELT LINELTPTR LTOPLOC MAKEDIMMAP PHYSELT SUBSCRIPTP SYMELTLOC TTELTDIMS TTELTTYPE TTGETELT VSCALARP VSCALARPTR) (READATABASE) ( CALL ADJUST.LINLOC (NLOGICALELTS IABS IMINUS GETRELT IJKBOX IPLUS ITIMES) ADJUST.SELECTION (GETRELTD PLUS IPLUS IMINUS GETRELT ADJUST.SELTTE VFROMR GENROW ADD1 IDIFFERENCE TTELTDIMS SYSTEMTYPE SUB1 FORMATOF) ADJUST.SELTTE (COPYAELT VSCALARPTR CONV.SIMARRAY) AELTPTR (SELECTQ LINELTPTR ADJUST.LINLOC SUB1 GETRELT PLUS TTELTTYPE LINELT SHOULDNT) AELTPTR1 (SELECTQ RELTPTR GETRELT ADJUST.LINLOC SUB1 TTELTTYPE PHYSELT SHOULDNT PLUS LINELTPTR) AELTPTR2 (SELECTQ RELTPTR IPLUS ITIMES SUB1 GETRELT SYMELTLOC SHOULDNT ADJUST.LINLOC TTELTTYPE PLUS LINELT LINELTPTR) COMPOSE.SLTRS (PLUS TTELTDIMS GETRELT SELECTQ TTELTTYPE FSELECT COPYAELT VSCALARPTR CONV.SIMARRAY SHOULDNT) FORMATOF (GETRELT EQUALROW) FSELECT (SELECTQ PLUS TTELTDIMS GETRELT TTELTTYPE SYSTEMTYPE FORMATOF FSELECT COMPOSE.SLTRS SHOULDNT) LINELT (PHYSELT LTOPLOC) LINELTPTR (RELTPTR LTOPLOC) LTOPLOC (SELECTQ GETRELT IQUOTIENT IREMAINDER PLUS SYMELTLOC SHOULDNT) MAKEDIMMAP (TTELTDIMS GETRELT PLUS) PHYSELT (GETRELT) SUBSCRIPTP ( GETRELT PLUS) SYMELTLOC (IPLUS IQUOTIENT ITIMES SUB1) TTELTDIMS (SELECTQ TTELTTYPE SHOULDNT) TTELTTYPE NIL TTGETELT (IJKBOX SELECTQ TTELTTYPE PHYSELT SHOULDNT) VSCALARP (IEQP) VSCALARPTR (ADJUST.LINLOC SUB1 GETRELT PLUS LINELTPTR) NIL BIND ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL NLAMBDA ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL NOBIND ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL RECORD ADJUST.LINLOC (SIMARRAY) ADJUST.SELECTION (SELARRAY SIMARRAY ROWPTR ROWINT) ADJUST.SELTTE ( SELARRAY SIMARRAY) AELTPTR (ARRAYFRAME ROWINT AELTPTR SIMARRAY) AELTPTR1 (AELTPTR ARRAYFRAME SELARRAY SIMARRAY) AELTPTR2 (AELTPTR ARRAYFRAME SIMARRAY) COMPOSE.SLTRS (ROWPTR SIMARRAY SELARRAY) FORMATOF ( SIMARRAY ROWPTR ARRAYFRAME) FSELECT (ARRAYFRAME ROWPTR SELARRAY ROWINT) LINELT (SIMARRAY) LINELTPTR ( SIMARRAY) LTOPLOC (SIMARRAY) MAKEDIMMAP (SELARRAY ROWPTR) PHYSELT (SIMARRAY ROWINT) SUBSCRIPTP ( ARRAYFRAME ROWINT) SYMELTLOC NIL TTELTDIMS (SIMARRAY) TTELTTYPE (SIMARRAY) TTGETELT (SIMARRAY) VSCALARP (SELARRAY) VSCALARPTR (SELARRAY AELTPTR ARRAYFRAME SIMARRAY ROWPTR) NIL CREATE ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR (AELTPTR) AELTPTR1 (AELTPTR) AELTPTR2 (AELTPTR) COMPOSE.SLTRS (ROWPTR) FORMATOF NIL FSELECT (ROWINT SELARRAY) LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP (ROWPTR) PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR (AELTPTR) NIL FETCH ADJUST.LINLOC (SHAPE OFFSETS) ADJUST.SELECTION (AELTTYPE TTAB NDIMS BASEARRAY ELEMENTBLOCK PHYSICALNELTS SHAPE I) ADJUST.SELTTE NIL AELTPTR (SOURCE TYPE NDIMS BASEARRAY AELTTYPE TTAB) AELTPTR1 (SOURCE TYPE ELEMENTBLOCK BASEARRAY AELTTYPE NDIMS TTAB) AELTPTR2 (SOURCE TYPE ELEMENTBLOCK FORMAT OFFSETS BASEARRAY AELTTYPE NDIMS TTAB) COMPOSE.SLTRS (NELTS AELTTYPE NDIMS) FORMATOF (NDIMS NELTS FORMAT AELTTYPE SHAPE ELEMENTBLOCK) FSELECT (NDIMS NELTS TYPE SHAPE I BASEARRAY TTAB) LINELT (AELTTYPE ) LINELTPTR (ELEMENTBLOCK) LTOPLOC (FORMAT OFFSETS) MAKEDIMMAP (NELTS NDIMS TTAB) PHYSELT (AELTTYPE ELEMENTBLOCK) SUBSCRIPTP (NELTS NDIMS) SYMELTLOC NIL TTELTDIMS (AELTTYPE NDIMS) TTELTTYPE (AELTTYPE) TTGETELT (AELTTYPE) VSCALARP (NDIMS) VSCALARPTR (SOURCE BASEARRAY TTAB NDIMS) NIL REPLACE ADJUST.LINLOC NIL ADJUST.SELECTION (ELEMENTBLOCK NELTS I FORMAT) ADJUST.SELTTE NIL AELTPTR ( SOURCE PTR) AELTPTR1 (SOURCE PTR) AELTPTR2 (SOURCE PTR) COMPOSE.SLTRS (NELTS) FORMATOF NIL FSELECT ( NELTS BASEARRAY SHAPE TTAB FORMAT) LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP (NELTS) PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR (SOURCE PTR) NIL REFFREE ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE (LABPROPFLAG) AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS (LABPROPFLAG) FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL REF ADJUST.LINLOC (ARY LINLOC DIM DELTA VALUE) ADJUST.SELECTION (ODIM NEW TTAB L NDL BASE SELSHP) ADJUST.SELTTE (S A D VALUE) AELTPTR (A IDX VALUE BASE) AELTPTR1 (V I VALUE BASE) AELTPTR2 (A I J VALUE BASE) COMPOSE.SLTRS (OLD NEW VALUE L AC) FORMATOF (A B VALUE X Y) FSELECT (A B VALUE SHAPE N NEWSHP BIS) LINELT (A L VALUE) LINELTPTR (A L) LTOPLOC (A N VALUE S) MAKEDIMMAP (SEL VALUE TT DM) PHYSELT (A P VALUE) SUBSCRIPTP (ARY SUB VALUE) SYMELTLOC (VALUE) TTELTDIMS (TT VALUE) TTELTTYPE (TTE VALUE) TTGETELT (TTELT INDEX VALUE) VSCALARP (VALUE) VSCALARPTR (VS VALUE BASE TT) NIL SETFREE ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL SET ADJUST.LINLOC NIL ADJUST.SELECTION (TTCDR BDIM S V TDIM TTCAR J I) ADJUST.SELTTE NIL AELTPTR (I LL BLOC TTI CDIM TTLOC J) AELTPTR1 (K TK BL) AELTPTR2 (K TK BASELIN NEXTINDEX TTLIN L) COMPOSE.SLTRS (I H J X K Y) FORMATOF NIL FSELECT (I L J) LINELT NIL LINELTPTR NIL LTOPLOC (J I) MAKEDIMMAP (I J K) PHYSELT NIL SUBSCRIPTP (I) SYMELTLOC (I J) TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR (I LL) NIL SMASHFREE ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL SMASH ADJUST.LINLOC NIL ADJUST.SELECTION (TTCAR EB SEL) ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL PROP ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL TEST ADJUST.LINLOC NIL ADJUST.SELECTION (TTCDR V S J I) ADJUST.SELTTE NIL AELTPTR (I J) AELTPTR1 (K) AELTPTR2 (K L) COMPOSE.SLTRS (I J K) FORMATOF NIL FSELECT (I L J) LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP (I J) PHYSELT NIL SUBSCRIPTP (I) SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP (S) VSCALARPTR (I) NIL TESTFREE ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL PREDICATE ADJUST.LINLOC (ARRAYTYPEP FIXP IGEQ BETWEEN IGREATERP DIMENSIONP ILEQ) ADJUST.SELECTION ( ARRAYTYPEP FIXP IGREATERP IGEQ ROWTYPEP GREATERP IEQP LARGEP) ADJUST.SELTTE (ARRAYTYPEP FIXP VSCALARP) AELTPTR (TYPENAMEP ROWTYPEP SUBSCRIPTP FIXP IGEQ GREATERP ARRAYTYPEP) AELTPTR1 (ARRAYTYPEP FIXP IGEQ LEVELP TYPENAMEP GREATERP) AELTPTR2 (ARRAYTYPEP FIXP LEVELP TYPENAMEP IGEQ GREATERP) COMPOSE.SLTRS ( ROWTYPEP IEQP GREATERP FIXP IGEQ ARRAYTYPEP VSCALARP) FORMATOF (ARRAYTYPEP ROWTYPEP IEQP SELECTQ TYPENAMEP FIXP IGEQ) FSELECT (TYPENAMEP ROWTYPEP ARRAYTYPEP GREATERP FIXP LARGEP) LINELT (ARRAYTYPEP FIXP) LINELTPTR (ARRAYTYPEP FIXP) LTOPLOC (ARRAYTYPEP FIXP IGEQ IEQP) MAKEDIMMAP (ARRAYTYPEP ROWTYPEP FIXP IGEQ GREATERP) PHYSELT (ARRAYTYPEP FIXP ROWTYPEP) SUBSCRIPTP (TYPENAMEP ROWTYPEP SELECTQ IEQP GREATERP LEVELP) SYMELTLOC (FIXP IGEQ ILESSP) TTELTDIMS (FIXP IGEQ ARRAYTYPEP) TTELTTYPE (FIXP IGEQ ARRAYTYPEP SELECTQ) TTGETELT (FIXP IGEQ ARRAYTYPEP) VSCALARP (SELECTQ ARRAYTYPEP) VSCALARPTR ( ARRAYTYPEP VSCALARP TYPENAMEP FIXP IGEQ ROWTYPEP GREATERP) NIL EFFECT ADJUST.LINLOC NIL ADJUST.SELECTION (ADJUST.SELECTION SETRELT SELECTQ HELP SETTITLE) ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS (SETRELT SETRELTD) FORMATOF NIL FSELECT (SETRELT) LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP (SETRELT SETRELTD) PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL CLISP ADJUST.LINLOC (DLAMBDA the) ADJUST.SELECTION (DLAMBDA DPROG bind while do finally type? the for to DPROGN sum from as) ADJUST.SELTTE (DLAMBDA the) AELTPTR (DLAMBDA the type? for to declare do finally DPROG) AELTPTR1 (DLAMBDA the type? DPROG for to do) AELTPTR2 (DLAMBDA the type? DPROG for to do) COMPOSE.SLTRS (DLAMBDA for to sum the DPROG do) FORMATOF (DLAMBDA the type? DPROG) FSELECT ( DLAMBDA the DPROG for to sum do type?) LINELT (DLAMBDA the) LINELTPTR (DLAMBDA the) LTOPLOC (DLAMBDA the DPROG) MAKEDIMMAP (DLAMBDA the DPROG for to do) PHYSELT (DLAMBDA the) SUBSCRIPTP (DLAMBDA the for to always) SYMELTLOC (DLAMBDA the) TTELTDIMS (DLAMBDA the) TTELTTYPE (DLAMBDA the) TTGETELT (DLAMBDA type? the) VSCALARP (DLAMBDA the type?) VSCALARPTR (DLAMBDA the type? DPROG for to do) NIL SPECVARS ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL LOCALVARS ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL APPLY ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL ERROR ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL LOCALFREEVARS ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR NIL NIL ARGS ADJUST.LINLOC NIL ADJUST.SELECTION NIL ADJUST.SELTTE NIL AELTPTR NIL AELTPTR1 NIL AELTPTR2 NIL COMPOSE.SLTRS NIL FORMATOF NIL FSELECT NIL LINELT NIL LINELTPTR NIL LTOPLOC NIL MAKEDIMMAP NIL PHYSELT NIL SUBSCRIPTP NIL SYMELTLOC NIL TTELTDIMS NIL TTELTTYPE NIL TTGETELT NIL VSCALARP NIL VSCALARPTR 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 ADJUST.LINLOC (SIMARRAY IJK POSINT IJKDELTA) ADJUST.SELECTION (SELARRAY POSINT TTELT LISTP ROWPTR INTEGER NIL VECTOR ROWINT LARGEP SIMARRAY) ADJUST.SELTTE (SELARRAY INTEGER SIMARRAY) AELTPTR (ARRAY ROWINT AELTPTR NIL IJK CARDINAL TTELT SIMARRAY) AELTPTR1 (VECTOR IJK AELTPTR ARRAY SIMARRAY TTELT NIL) AELTPTR2 (MATRIX INTEGER AELTPTR ARRAY IJK SIMARRAY TTELT NIL) COMPOSE.SLTRS (ROWPTR INTEGER TTELT SELARRAY NIL) FORMATOF (SIMARRAY ROWPTR FORMATCODE ARRAY TTELT) FSELECT (ARRAY ROWPTR SELARRAY NIL ROWINT INTEGER LARGEP) LINELT (SIMARRAY INTEGER) LINELTPTR (SIMARRAY INTEGER RELTPTR) LTOPLOC ( SIMARRAY INTEGER IJK) MAKEDIMMAP (SELARRAY ROWPTR CARDINAL NIL) PHYSELT (SIMARRAY INTEGER ROWINT) SUBSCRIPTP (ARRAY ROWINT BOOL NIL) SYMELTLOC (IJK) TTELTDIMS (TTELT IJK) TTELTTYPE (TTELT) TTGETELT ( TTELT INTEGER IJK) VSCALARP (NIL BOOL SELARRAY) VSCALARPTR (SELARRAY AELTPTR ARRAY IJK SIMARRAY ROWPTR NIL) NIL )