From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Thu, 29 Oct 2009 12:30:36 +0000 (+0300)
Subject: Correct type of pointer slot of g-object: release will set it to NIL
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=fd6b1f125ea01028d30dc931c516a7b52c267936;p=cl-gtk2.git

Correct type of pointer slot of g-object: release will set it to NIL
---

diff --git a/glib/gobject.object.high.lisp b/glib/gobject.object.high.lisp
index 80399b8..f1cca2e 100644
--- a/glib/gobject.object.high.lisp
+++ b/glib/gobject.object.high.lisp
@@ -2,7 +2,7 @@
 
 (defclass g-object ()
   ((pointer
-    :type cffi:foreign-pointer
+    :type (or null cffi:foreign-pointer)
     :initarg :pointer
     :accessor pointer
     :initform nil)