static SCM sqmatrix_p(SCM obj) { return ctl_convert_boolean_to_scm(SQMATRIX_P(obj)); }
static SCM evectmatrix_p(SCM obj) { return ctl_convert_boolean_to_scm(EVECTMATRIX_P(obj)); }
static SCM cscalar_field_p(SCM obj) { return ctl_convert_boolean_to_scm(CSCALAR_FIELD_P(obj)); }
static SCM cvector_field_p(SCM obj) { return ctl_convert_boolean_to_scm(CVECTOR_FIELD_P(obj)); }
static SCM field_p(SCM obj) { return ctl_convert_boolean_to_scm(FIELD_P(obj)); }