72 #define val_(o)		((o)->value_)  argument
73 #define valraw(o)	(val_(o))  argument
77 #define rawtt(o)	((o)->tt_)  argument
84 #define ttypetag(o)	withvariant(rawtt(o))  argument
87 #define ttype(o)	(novariant(rawtt(o)))  argument
91 #define checktag(o,t)		(rawtt(o) == (t))  argument
92 #define checktype(o,t)		(ttype(o) == (t))  argument
114 #define settt_(o,t)	((o)->tt_=(t))  argument
118 #define setobj(L,obj1,obj2) \  argument
172 #define s2v(o)	(&(o)->val)  argument
197 #define ttisstrictnil(o)	checktag((o), LUA_VNIL)  argument
242 #define ttisboolean(o)		checktype((o), LUA_TBOOLEAN)  argument
243 #define ttisfalse(o)		checktag((o), LUA_VFALSE)  argument
244 #define ttistrue(o)		checktag((o), LUA_VTRUE)  argument
247 #define l_isfalse(o)	(ttisfalse(o) || ttisnil(o))  argument
264 #define ttisthread(o)		checktag((o), ctb(LUA_VTHREAD))  argument
266 #define thvalue(o)	check_exp(ttisthread(o), gco2th(val_(o).gc))  argument
273 #define setthvalue2s(L,o,t)	setthvalue(L,s2v(o),t)  argument
300 #define iscollectable(o)	(rawtt(o) & BIT_ISCOLLECTABLE)  argument
305 #define gcvalue(o)	check_exp(iscollectable(o), val_(o).gc)  argument
326 #define ttisnumber(o)		checktype((o), LUA_TNUMBER)  argument
327 #define ttisfloat(o)		checktag((o), LUA_VNUMFLT)  argument
328 #define ttisinteger(o)		checktag((o), LUA_VNUMINT)  argument
330 #define nvalue(o)	check_exp(ttisnumber(o), \  argument
332 #define fltvalue(o)	check_exp(ttisfloat(o), val_(o).n)  argument
333 #define ivalue(o)	check_exp(ttisinteger(o), val_(o).i)  argument
363 #define ttisstring(o)		checktype((o), LUA_TSTRING)  argument
364 #define ttisshrstring(o)	checktag((o), ctb(LUA_VSHRSTR))  argument
365 #define ttislngstring(o)	checktag((o), ctb(LUA_VLNGSTR))  argument
369 #define tsvalue(o)	check_exp(ttisstring(o), gco2ts(val_(o).gc))  argument
377 #define setsvalue2s(L,o,s)	setsvalue(L,s2v(o),s)  argument
407 #define svalue(o)       getstr(tsvalue(o))  argument
413 #define vslen(o)	tsslen(tsvalue(o))  argument
433 #define ttislightuserdata(o)	checktag((o), LUA_VLIGHTUSERDATA)  argument
434 #define ttisfulluserdata(o)	checktag((o), ctb(LUA_VUSERDATA))  argument
436 #define pvalue(o)	check_exp(ttislightuserdata(o), val_(o).p)  argument
437 #define uvalue(o)	check_exp(ttisfulluserdata(o), gco2u(val_(o).gc))  argument
594 #define ttisfunction(o)		checktype(o, LUA_TFUNCTION)  argument
595 #define ttisLclosure(o)		checktag((o), ctb(LUA_VLCL))  argument
596 #define ttislcf(o)		checktag((o), LUA_VLCF)  argument
597 #define ttisCclosure(o)		checktag((o), ctb(LUA_VCCL))  argument
598 #define ttisclosure(o)         (ttisLclosure(o) || ttisCclosure(o))  argument
601 #define isLfunction(o)	ttisLclosure(o)  argument
603 #define clvalue(o)	check_exp(ttisclosure(o), gco2cl(val_(o).gc))  argument
604 #define clLvalue(o)	check_exp(ttisLclosure(o), gco2lcl(val_(o).gc))  argument
605 #define fvalue(o)	check_exp(ttislcf(o), val_(o).f)  argument
606 #define clCvalue(o)	check_exp(ttisCclosure(o), gco2ccl(val_(o).gc))  argument
615 #define setclLvalue2s(L,o,cl)	setclLvalue(L,s2v(o),cl)  argument
669 #define getproto(o)	(clLvalue(o)->p)  argument
682 #define ttistable(o)		checktag((o), ctb(LUA_VTABLE))  argument
684 #define hvalue(o)	check_exp(ttistable(o), gco2t(val_(o).gc))  argument
691 #define sethvalue2s(L,o,h)	sethvalue(L,s2v(o),h)  argument