76 #define val_(o)		((o)->value_)  argument
77 #define valraw(o)	(val_(o))  argument
81 #define rawtt(o)	((o)->tt_)  argument
88 #define ttypetag(o)	withvariant(rawtt(o))  argument
91 #define ttype(o)	(novariant(rawtt(o)))  argument
95 #define checktag(o,t)		(rawtt(o) == (t))  argument
96 #define checktype(o,t)		(ttype(o) == (t))  argument
118 #define settt_(o,t)	((o)->tt_=(t))  argument
122 #define setobj(L,obj1,obj2) \  argument
176 #define s2v(o)	(&(o)->val)  argument
201 #define ttisstrictnil(o)	checktag((o), LUA_VNIL)  argument
246 #define ttisboolean(o)		checktype((o), LUA_TBOOLEAN)  argument
247 #define ttisfalse(o)		checktag((o), LUA_VFALSE)  argument
248 #define ttistrue(o)		checktag((o), LUA_VTRUE)  argument
251 #define l_isfalse(o)	(ttisfalse(o) || ttisnil(o))  argument
268 #define ttisthread(o)		checktag((o), ctb(LUA_VTHREAD))  argument
270 #define thvalue(o)	check_exp(ttisthread(o), gco2th(val_(o).gc))  argument
277 #define setthvalue2s(L,o,t)	setthvalue(L,s2v(o),t)  argument
304 #define iscollectable(o)	(rawtt(o) & BIT_ISCOLLECTABLE)  argument
309 #define gcvalue(o)	check_exp(iscollectable(o), val_(o).gc)  argument
330 #define ttisnumber(o)		checktype((o), LUA_TNUMBER)  argument
332 #define ttisfloat(o)		checktag((o), LUA_VNUMFLT)  argument
334 #define ttisinteger(o)		checktag((o), LUA_VNUMINT)  argument
337 #define nvalue(o)	check_exp(ttisnumber(o), \  argument
340 #define nvalue(o)	check_exp(ttisnumber(o), cast_num(ivalue(o)))  argument
342 #define fltvalue(o)	check_exp(ttisfloat(o), val_(o).n)  argument
343 #define ivalue(o)	check_exp(ttisinteger(o), val_(o).i)  argument
375 #define ttisstring(o)		checktype((o), LUA_TSTRING)  argument
376 #define ttisshrstring(o)	checktag((o), ctb(LUA_VSHRSTR))  argument
377 #define ttislngstring(o)	checktag((o), ctb(LUA_VLNGSTR))  argument
381 #define tsvalue(o)	check_exp(ttisstring(o), gco2ts(val_(o).gc))  argument
389 #define setsvalue2s(L,o,s)	setsvalue(L,s2v(o),s)  argument
419 #define svalue(o)       getstr(tsvalue(o))  argument
425 #define vslen(o)	tsslen(tsvalue(o))  argument
445 #define ttislightuserdata(o)	checktag((o), LUA_VLIGHTUSERDATA)  argument
446 #define ttisfulluserdata(o)	checktag((o), ctb(LUA_VUSERDATA))  argument
448 #define pvalue(o)	check_exp(ttislightuserdata(o), val_(o).p)  argument
449 #define uvalue(o)	check_exp(ttisfulluserdata(o), gco2u(val_(o).gc))  argument
606 #define ttisfunction(o)		checktype(o, LUA_TFUNCTION)  argument
607 #define ttisLclosure(o)		checktag((o), ctb(LUA_VLCL))  argument
608 #define ttislcf(o)		checktag((o), LUA_VLCF)  argument
609 #define ttisCclosure(o)		checktag((o), ctb(LUA_VCCL))  argument
610 #define ttisclosure(o)         (ttisLclosure(o) || ttisCclosure(o))  argument
613 #define isLfunction(o)	ttisLclosure(o)  argument
615 #define clvalue(o)	check_exp(ttisclosure(o), gco2cl(val_(o).gc))  argument
616 #define clLvalue(o)	check_exp(ttisLclosure(o), gco2lcl(val_(o).gc))  argument
617 #define fvalue(o)	check_exp(ttislcf(o), val_(o).f)  argument
618 #define clCvalue(o)	check_exp(ttisCclosure(o), gco2ccl(val_(o).gc))  argument
627 #define setclLvalue2s(L,o,cl)	setclLvalue(L,s2v(o),cl)  argument
681 #define getproto(o)	(clLvalue(o)->p)  argument
694 #define ttistable(o)		checktag((o), ctb(LUA_VTABLE))  argument
696 #define hvalue(o)	check_exp(ttistable(o), gco2t(val_(o).gc))  argument
703 #define sethvalue2s(L,o,h)	sethvalue(L,s2v(o),h)  argument