From: Dmitry Kalyanov Date: Fri, 16 Oct 2009 23:54:44 +0000 (+0400) Subject: glib: in finalize-inheritance :after method, ensure that superclasses are finalized X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7ae983f2cffd14c561bc6b1679627a6177f9a20c;p=cl-gtk2.git glib: in finalize-inheritance :after method, ensure that superclasses are finalized --- diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp index ad01dea..67c579e 100755 --- a/glib/gobject.meta.lisp +++ b/glib/gobject.meta.lisp @@ -72,6 +72,8 @@ (at-init (object) (initialize-gobject-class-g-type object)))) (defmethod finalize-inheritance :after ((class gobject-class)) + (iter (for superclass in (class-direct-superclasses class)) + (unless (class-finalized-p superclass) (finalize-inheritance superclass))) (setf (gobject-class-g-type-name class) (or (gobject-class-direct-g-type-name class) (let ((gobject-superclass (iter (for superclass in (class-direct-superclasses class))