From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Wed, 17 Jun 2009 07:45:57 +0000 (+0400)
Subject: glib/gobjetc: fix filtering to filter out only gobject slots
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ab143760c550327dd472c80c5b9072fc1d8a9815;p=cl-gtk2.git

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

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)