projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d323525
)
glib: Actions in reinitialize-instance for gobject-class were reversed
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 30 Oct 2009 23:00:20 +0000
(
02:00
+0300)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 30 Oct 2009 23:00:20 +0000
(
02:00
+0300)
glib/gobject.meta.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.meta.lisp
b/glib/gobject.meta.lisp
index
67c579e
..
36599d7
100755
(executable)
--- 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
(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)
(defmethod initialize-instance :after ((object gobject-class) &key &allow-other-keys)
(when (gobject-class-direct-g-type-name object)