From: Dmitry Kalyanov Date: Fri, 30 Oct 2009 23:00:20 +0000 (+0300) Subject: glib: Actions in reinitialize-instance for gobject-class were reversed X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9e17fb475a6a1f0ddae7c1227aebbcd34b23c9dd;p=cl-gtk2.git glib: Actions in reinitialize-instance for gobject-class were reversed --- diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp index 67c579e..36599d7 100755 --- a/glib/gobject.meta.lisp +++ b/glib/gobject.meta.lisp @@ -63,8 +63,8 @@ (defmethod reinitialize-instance :around ((class gobject-class) &rest initargs &key (direct-superclasses nil d-s-p) &allow-other-keys) (declare (ignore direct-superclasses)) (if d-s-p - (call-next-method) - (apply #'call-next-method class (compute-new-initargs-for-metaclass initargs 'g-object)))) + (apply #'call-next-method class (compute-new-initargs-for-metaclass initargs 'g-object)) + (call-next-method))) (defmethod initialize-instance :after ((object gobject-class) &key &allow-other-keys) (when (gobject-class-direct-g-type-name object)