(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("16-Feb-86 13:52:31" . {QV}<IDL>SOURCES>ROWS.;45)
FNS (BETWEEN COPYROW EQUALROW FILLROW FIXROW FLOATROW GENROW GETRELT GETRELTD HASNILS INDEXP RELTPTR 
REPLACENELTS ROWBLT DROWCREATE ROWCREATETRAN ROWINTOF ROWINTOF1 ROWPTROF ROWTYPEP SETRELT SETRELTD)
(READATABASE)
(
CALL BETWEEN (ILEQ) COPYROW (GETRELT PLUS GETRELTD) EQUALROW (RELTPTR PLUS) FILLROW (ARG PLUS) FIXROW 
(RELTPTR TESTMISSING LOGAND CONSTANT LOGNOT LOGXOR FIXR PLUS) FLOATROW (RELTPTR TESTMISSING LOGAND 
CONSTANT LOGNOT LOGXOR PLUS) GENROW (ADD1 IDIFFERENCE PLUS) GETRELT (RELTPTR SELECTQ LOGAND CONSTANT 
LOGNOT LOGXOR \GETBASEPTR) GETRELTD (\GETBASEPTR LLSH SUB1) HASNILS (PLUS) INDEXP (BETWEEN) RELTPTR (
\ADDBASE LLSH SUB1) REPLACENELTS NIL ROWBLT (PLUS) DROWCREATE (CONSTANT IDIFFERENCE EXPT UERROR PRIN1 
UERROR! \ALLOCBLOCK SELECTQ SHOULDNT) ROWCREATETRAN (CONCAT RECORD.FIELD.VALUE CONS) ROWINTOF (ARG 
PLUS) ROWINTOF1 (FIXP LENGTH PLUS) ROWPTROF (ARG PLUS) ROWTYPEP (SELECTQ HELP) SETRELT (RELTPTR FLOAT 
CONSTANT) SETRELTD (LLSH SUB1) NIL
BIND BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT NIL 
GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
NLAMBDA BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT 
NIL GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
NOBIND BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT NIL
 GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
RECORD BETWEEN NIL COPYROW (ROW ROWHEADER ROWINT ROWFLOAT ROWPTR) EQUALROW (ROW ROWHEADER) FILLROW (
ROW ROWHEADER) FIXROW (ROWSCALAR) FLOATROW (ROWSCALAR) GENROW (ROWINT) GETRELT (ROW ROWHEADER) 
GETRELTD (ROWPTR) HASNILS (ROWSCALAR) INDEXP (ROW ROWHEADER) RELTPTR (ROW ROWHEADER) REPLACENELTS (ROW
 ROWHEADER) ROWBLT (ROW ROWHEADER) DROWCREATE (ROW ROWHEADER) ROWCREATETRAN NIL ROWINTOF (ROWINT) 
ROWINTOF1 (ROWINT) ROWPTROF (ROWPTR) ROWTYPEP (ROW ROWHEADER) SETRELT (ROW ROWHEADER ROWPTR) SETRELTD 
(ROWPTR) NIL
CREATE BETWEEN NIL COPYROW (ROW) EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW (ROWINT) 
GETRELT NIL GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE (
ROWHEADER) ROWCREATETRAN NIL ROWINTOF (ROWINT) ROWINTOF1 (ROWINT) ROWPTROF (ROWPTR) ROWTYPEP NIL 
SETRELT NIL SETRELTD NIL NIL
FETCH BETWEEN NIL COPYROW (REFCOUNT NELTS RELTTYPE MAYHAVENIL) EQUALROW (RELTTYPE NELTS I) FILLROW NIL
 FIXROW (NELTS RELTTYPE I F) FLOATROW (NELTS RELTTYPE I) GENROW NIL GETRELT (RELTTYPE MAYHAVENIL I F) 
GETRELTD (ROWBLKD) HASNILS (MAYHAVENIL NELTS) INDEXP (NELTS) RELTPTR (ROWBLK) REPLACENELTS (
PHYSICALNELTS) ROWBLT (NELTS) DROWCREATE NIL ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL
 ROWTYPEP (RELTTYPE) SETRELT (RELTTYPE) SETRELTD (ROWBLKD) NIL
REPLACE BETWEEN NIL COPYROW (NELTS RELTTYPE MAYHAVENIL) EQUALROW NIL FILLROW NIL FIXROW (I RELTTYPE) 
FLOATROW (F RELTTYPE) GENROW (NELTS) GETRELT NIL GETRELTD NIL HASNILS (MAYHAVENIL) INDEXP NIL RELTPTR 
NIL REPLACENELTS (NELTSVAL) ROWBLT NIL DROWCREATE (ROWBLK ROWBLKD NELTS RELTTYPE) ROWCREATETRAN NIL 
ROWINTOF (NELTS) ROWINTOF1 (NELTS) ROWPTROF (NELTS) ROWTYPEP NIL SETRELT (I F MAYHAVENIL) SETRELTD NIL
 NIL
REFFREE BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW (MIN.FIXP) FLOATROW (MIN.FIXP) GENROW 
NIL GETRELT (MIN.FIXP) GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL 
DROWCREATE NIL ROWCREATETRAN (FAULTFN FIELDS.IN.CREATE) ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL 
ROWTYPEP NIL SETRELT (MIN.FIXP) SETRELTD NIL NIL
REF BETWEEN (X Y Z) COPYROW (R VALUE OUTROW) EQUALROW (ROW1 ROW2 VALUE) FILLROW (NARGS R VALUE) FIXROW
 (N VALUE X) FLOATROW (N VALUE X) GENROW (L R VALUE V) GETRELT (R N X PTR) GETRELTD (R N) HASNILS (
VALUE) INDEXP (R N VALUE) RELTPTR (R N) REPLACENELTS (N VALUE) ROWBLT (R) DROWCREATE (RELTTYPE VALUE S
) ROWCREATETRAN NIL ROWINTOF (NARGS R VALUE) ROWINTOF1 (VALUE R) ROWPTROF (NARGS R VALUE) ROWTYPEP (
ROW ROWTYPE) SETRELT (N) SETRELTD (R N) NIL
SETFREE BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT 
NIL GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
SET BETWEEN NIL COPYROW (I) EQUALROW (INDEX) FILLROW (E I) FIXROW (I PTR) FLOATROW (I PTR VAL) GENROW 
(I J) GETRELT NIL GETRELTD NIL HASNILS (I) INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT (I) 
DROWCREATE (NELTS) ROWCREATETRAN NIL ROWINTOF (I) ROWINTOF1 (V I) ROWPTROF (I) ROWTYPEP NIL SETRELT 
NIL SETRELTD NIL NIL
SMASHFREE BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT 
NIL GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
SMASH BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW (PTR R) FLOATROW (PTR R) GENROW NIL 
GETRELT NIL GETRELTD NIL HASNILS (R) INDEXP NIL RELTPTR NIL REPLACENELTS (R) ROWBLT NIL DROWCREATE (R)
 ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT (R) SETRELTD NIL NIL
PROP BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT NIL 
GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
TEST BETWEEN NIL COPYROW (I) EQUALROW (INDEX) FILLROW (E I) FIXROW (I PTR) FLOATROW (I PTR) GENROW (I 
J) GETRELT NIL GETRELTD NIL HASNILS (I) INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT (V I) 
DROWCREATE (PHYSICALNELTS NELTS INIT PTRP INITFLAG) ROWCREATETRAN NIL ROWINTOF (I) ROWINTOF1 (VALS) 
ROWPTROF (I) ROWTYPEP NIL SETRELT (V) SETRELTD (V) NIL
TESTFREE BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT 
NIL GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
PREDICATE BETWEEN (IGEQ) COPYROW (TYPENAMEP ZEROP ROWTYPEP GREATERP) EQUALROW (TYPENAMEP SELECTQ IEQP 
GREATERP) FILLROW (TYPENAMEP GREATERP) FIXROW (ROWTYPEP FIXP BETWEEN GREATERP) FLOATROW (ROWTYPEP FIXP
 BETWEEN GREATERP) GENROW (FIXP ROWTYPEP ILESSP GREATERP) GETRELT (TYPENAMEP FIXP INDEXP TESTMISSING) 
GETRELTD (ROWTYPEP FIXP INDEXP) HASNILS (ROWTYPEP SELECTQ GREATERP GETRELT) INDEXP (TYPENAMEP FIXP 
SELECTQ) RELTPTR (TYPENAMEP FIXP INDEXP) REPLACENELTS (TYPENAMEP FIXP BETWEEN) ROWBLT (TYPENAMEP 
GREATERP) DROWCREATE (FIXP IGEQ ILEQ TYPENAMEP IGREATERP UERRORPRINT? EQP) ROWCREATETRAN (ASSOC) 
ROWINTOF (ROWTYPEP GREATERP FIXP) ROWINTOF1 (EVERY ROWTYPEP IGEQ) ROWPTROF (ROWTYPEP GREATERP) 
ROWTYPEP (TYPENAMEP HASNILS) SETRELT (TYPENAMEP FIXP INDEXP NUMBERP ROWTYPEP) SETRELTD (ROWTYPEP FIXP 
INDEXP) NIL
EFFECT BETWEEN NIL COPYROW (SELECTQ SETRELT SETRELTD SHOULDNT) EQUALROW NIL FILLROW (SETRELT) FIXROW (
ASSERT DECLARE) FLOATROW (ASSERT DECLARE) GENROW (SETRELT) GETRELT (DECLARE) GETRELTD NIL HASNILS NIL 
INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT (SETRELT) DROWCREATE (PRINTOUT TERPRI ROWBLT) 
ROWCREATETRAN (LISPXPRIN1 ERROR!) ROWINTOF (SETRELT) ROWINTOF1 (SETRELT) ROWPTROF (SETRELT) ROWTYPEP 
NIL SETRELT (SELECTQ HELP \RPLPTR) SETRELTD (\RPLPTR) NIL
CLISP BETWEEN NIL COPYROW (DLAMBDA type? the DPROG for to declare do DPROGN) EQUALROW (DLAMBDA type? 
the for to always) FILLROW (for from to as declare do finally type? DPROGN the) FIXROW (DLAMBDA the 
for to do) FLOATROW (DLAMBDA the for to declare do) GENROW (DLAMBDA the bind declare for from as to do
 finally) GETRELT (DLAMBDA type?) GETRELTD (DLAMBDA) HASNILS (DLAMBDA the for to when do finally) 
INDEXP (DLAMBDA type? the) RELTPTR (DLAMBDA type? the) REPLACENELTS (DLAMBDA type? the) ROWBLT (
DLAMBDA type? for to do) DROWCREATE (DLAMBDA type? the DPROG) ROWCREATETRAN NIL ROWINTOF (bind declare
 for to do finally DPROGN the) ROWINTOF1 (DLAMBDA the bind for in as from declare do finally DPROGN) 
ROWPTROF (bind declare for to do finally DPROGN the) ROWTYPEP (type?) SETRELT (DLAMBDA type?) SETRELTD
 (DLAMBDA) NIL
SPECVARS BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT 
NIL GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
LOCALVARS BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW (X) FLOATROW (X) GENROW NIL GETRELT 
(X) GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
APPLY BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT NIL 
GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
ERROR BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT NIL 
GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
LOCALFREEVARS BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL 
GETRELT NIL GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL
 ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD NIL NIL
ARGS BETWEEN NIL COPYROW NIL EQUALROW NIL FILLROW NIL FIXROW NIL FLOATROW NIL GENROW NIL GETRELT NIL 
GETRELTD NIL HASNILS NIL INDEXP NIL RELTPTR NIL REPLACENELTS NIL ROWBLT NIL DROWCREATE NIL 
ROWCREATETRAN NIL ROWINTOF NIL ROWINTOF1 NIL ROWPTROF NIL ROWTYPEP NIL SETRELT NIL SETRELTD 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 BETWEEN NIL COPYROW (ROW ROWHEADER NIL ROWINT ROWFLOAT ROWPTR) EQUALROW (ROW ROWHEADER BOOL NIL) 
FILLROW (NIL ROW ROWHEADER) FIXROW (ROWSCALAR INTEGER NIL) FLOATROW (ROWSCALAR INTEGER NIL FIXP) 
GENROW (INTEGER ROWINT NIL) GETRELT (ROW ROWHEADER INTEGER) GETRELTD (ROWPTR INTEGER) HASNILS (
ROWSCALAR BOOL NIL) INDEXP (ROW ROWHEADER INTEGER BOOL) RELTPTR (ROW ROWHEADER INTEGER RELTPTR) 
REPLACENELTS (ROW ROWHEADER INTEGER) ROWBLT (ROW ROWHEADER NIL) DROWCREATE (BOOL NIL CARDINAL ROW 
ROWHEADER FIXP) ROWCREATETRAN NIL ROWINTOF (NIL ROWINT INTEGER) ROWINTOF1 (LST INTEGER ROWINT NIL IJK)
 ROWPTROF (NIL ROWPTR) ROWTYPEP (ROW ROWHEADER) SETRELT (ROW ROWHEADER INTEGER NIL ROWPTR) SETRELTD (
ROWPTR INTEGER NIL) NIL

)