From fca774d3fbabdde5f5e5addd9a0b3f737bc2a708 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 13 Jun 2009 23:25:52 +0400 Subject: [PATCH] In make-instance-using-class for gobjects, pass all arguments to (call-next-method), not just :pointer --- glib/gobject.meta.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp index 9d6d348..7f42613 100644 --- a/glib/gobject.meta.lisp +++ b/glib/gobject.meta.lisp @@ -177,7 +177,7 @@ (assert (= (length initargs) 2) nil "POINTER can not be combined with other initargs (~A)" initargs) (call-next-method)) (let ((pointer (create-gobject-from-class-and-initargs class initargs))) - (call-next-method class :pointer pointer)))) + (apply #'call-next-method class :pointer pointer initargs)))) (defmethod slot-boundp-using-class ((class gobject-class) object (slot gobject-property-effective-slot-definition)) (handler-case -- 1.7.10.4