94 |
#define TEST_CHANGE_CLASS(obj, class) \ |
#define TEST_CHANGE_CLASS(obj, class) \ |
95 |
{ \ |
{ \ |
96 |
class = SCM_CLASS_OF (obj); \ |
class = SCM_CLASS_OF (obj); \ |
97 |
if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F) \ |
if (!SCM_FALSEP (SCM_OBJ_CLASS_REDEF (obj))) \ |
98 |
{ \ |
{ \ |
99 |
scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));\ |
scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));\ |
100 |
class = SCM_CLASS_OF (obj); \ |
class = SCM_CLASS_OF (obj); \ |
426 |
{ |
{ |
427 |
/* set slot to its :init-form if it exists */ |
/* set slot to its :init-form if it exists */ |
428 |
tmp = SCM_CADAR (get_n_set); |
tmp = SCM_CADAR (get_n_set); |
429 |
if (tmp != SCM_BOOL_F) |
if (!SCM_FALSEP (tmp)) |
430 |
{ |
{ |
431 |
slot_value = get_slot_value (class, obj, SCM_CAR (get_n_set)); |
slot_value = get_slot_value (class, obj, SCM_CAR (get_n_set)); |
432 |
if (SCM_GOOPS_UNBOUNDP (slot_value)) |
if (SCM_GOOPS_UNBOUNDP (slot_value)) |