Searched refs:Scm_VMIsA (Results 1 – 7 of 7) sorted by relevance
160 SCM_EXTERN ScmObj Scm_VMIsA(ScmObj obj, ScmClass *klass);
538 (define-cproc is-a? (obj klass::<class>) (inliner IS-A) Scm_VMIsA)
547 return Scm_VMIsA(SCM_OBJ(data[0]), SCM_CLASS(data[1])); in is_a_cc()550 ScmObj Scm_VMIsA(ScmObj obj, ScmClass *klass) in Scm_VMIsA() function
1084 ($result (Scm_VMIsA obj c))]
1793 {VAL0=(Scm_VMIsA(obj,c));(vm)->numVals=(1);NEXT_PUSHCHECK;}} else { in CASE()
10210 {SCM_RESULT=(Scm_VMIsA(obj,klass));goto SCM_STUB_RETURN;} in libobjis_aP()
1512 …P (-> (Scm_ClassOf obj) redefined))) (Scm__VMProtectStack vm) ($result (Scm_VMIsA obj c))) (else (…