R devel - Apr 2004 - `extends()'at C-level?

One can check easily if an object is of class "foo" via

   strcmp(CHAR(asChar(GET_CLASS(obj))), "foo")

and I wonder if there is high-level functionality to check
if `obj' extends a class?

Best,

Torsten