glib/gobjetc: fix filtering to filter out only gobject slots

[cl-gtk2.git] / glib / gobject.meta.lisp

diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp
index 6874d23..d72494b 100644 (file)
--- 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)