lispval
Lflatsi()
{
register lispval current;
Savestack(1); /* fixup entry mask */
fmax = 0x7fffffff; /* biggest integer by default */
switch(np-lbot)
{
case 2: current = lbot[1].val;
while(TYPE(current) != INT)
current = errorh1(Vermisc,
"flatsize: second arg not integer",
nil,TRUE,0,current);
fmax = current->i;
case 1: break;
default: argerr("flatsize");
}
flen = 0;
current = lbot->val;
protect(nil); /*create space for argument to pntlen*/
Iflatsi(current);
Restorestack();
return(inewint(flen));
}
lispval
Lflatsi()
{
register lispval current, temp;
register struct argent *mylbot = lbot;
snpand(3); /* fixup entry mask */
chkarg(2);
flen = 0; fmax = mylbot[1].val->i;
current = mylbot->val;
protect(nil); /*create space for argument to pntlen*/
Iflatsi(current);
return(inewint(flen));
}
