lua_getstack
while (lua_getstack(L, le, &ar)) { li = le; le *= 2; }
if (lua_getstack(L, m, &ar)) li = m + 1;
while (lua_getstack(L1, level++, &ar)) {
if (!lua_getstack(L, 0, &ar)) /* no stack frame? */
if (lua_getstack(L, level, &ar)) { /* check function at level */
if (lua_getstack(co, 0, &ar) > 0) /* does it have frames? */
LUA_API int (lua_getstack) (lua_State *L, int level, lua_Debug *ar);