PTR2BASE
#define PTR2BASE(ptr) (((struct heim_base *)ptr) - 1)
#define PTR2BASE(ptr) (((struct value_base *)ptr) - 1)