From ab143760c550327dd472c80c5b9072fc1d8a9815 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Wed, 17 Jun 2009 11:45:57 +0400 Subject: [PATCH] glib/gobjetc: fix filtering to filter out only gobject slots --- 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 6874d23..d72494b 100644 --- a/glib/gobject.meta.lisp +++ b/glib/gobject.meta.lisp @@ -175,7 +175,7 @@ (iter (with slots = (class-slots class)) (for (arg-name arg-value) on initargs by #'cddr) (for slot = (find arg-name slots :key #'slot-definition-initargs :test 'member)) - (when (or (eq arg-name :pointer) (null slot)) + (unless (and slot (typep slot 'gobject-effective-slot-definition)) (nconcing (list arg-name arg-value))))) (defmethod initialize-instance ((instance g-object) &rest initargs &key &allow-other-keys) -- 1.7.10.4