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));
}
