-(defun initialize-all-gobject-types ()
- (map-inherited-classes 'gobject::g-object
- (lambda (class)
- (when (typep class 'gobject::gobject-class)
- (gobject::initialize-gobject-class-g-type class)))))
-
-(pushnew 'initialize-all-gobject-types sb-ext:*init-hooks*)