880 |
is_imm_fixnum(_z) ? t_fixnum : \ |
is_imm_fixnum(_z) ? t_fixnum : \ |
881 |
(_z==Cnil || _z==Ct || _z==Dotnil ? t_symbol : \ |
(_z==Cnil || _z==Ct || _z==Dotnil ? t_symbol : \ |
882 |
(is_cons(_z) ? t_cons : _z->d.t));}) |
(is_cons(_z) ? t_cons : _z->d.t));}) |
883 |
#define set_type_of(x,y) ({object _x=(object)(x);enum type _y=(y);*(fixnum *)(_x)=0;\ |
#define set_type_of(x,y) ({object _x=(object)(x);enum type _y=(y);*(fixnum *)(_x)&=TYPE_BITS;\ |
884 |
if (_y!=t_cons) {_x->d.e=1;_x->d.t=_y;}}) |
if (_y!=t_cons) {_x->d.e=1;_x->d.t=_y;}}) |
885 |
/* |
/* |
886 |
Storage manager for each type. |
Storage manager for each type. |