3 (defun g-type-from-object (object)
4 "Returns the GType of an @code{object}
6 @arg[object]{C pointer to an object}
7 @return{GType designator (see @class{g-type-designator})}"
8 (g-type-from-instance object))
10 (defun g-type-from-class (g-class)
11 (g-type-name (foreign-slot-value g-class 'g-type-class :type)))
13 (defun g-type-from-instance (type-instance)
14 (g-type-from-class (foreign-slot-value type-instance 'g-type-instance :class)))
16 (defun g-type-from-interface (type-interface)
17 (g-type-name (foreign-slot-value type-interface 'g-type-interface :type)))