Cyclone Scheme  0.9
#define obj_obj2char (   x)    (char_type)((uintptr_t)(x)>>2)

Convert from an object to a char.