From 9e17fb475a6a1f0ddae7c1227aebbcd34b23c9dd Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 31 Oct 2009 02:00:20 +0300 Subject: [PATCH] glib: Actions in reinitialize-instance for gobject-class were reversed --- glib/gobject.meta.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4