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)); }