From c96bf0edca9130595781245497e4ed8deaefb378 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 4 Apr 2009 01:43:24 +0400 Subject: [PATCH] (probably) fix the error in refcount --- glib/gobject.foreign-gobject.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/glib/gobject.foreign-gobject.lisp b/glib/gobject.foreign-gobject.lisp index a4cad2b..0ea990a 100644 --- a/glib/gobject.foreign-gobject.lisp +++ b/glib/gobject.foreign-gobject.lisp @@ -149,6 +149,7 @@ (unless lisp-type (error "Type ~A is not registered with REGISTER-OBJECT-TYPE" (g-type-name g-type))) + (g-object-ref pointer) (make-instance lisp-type :pointer pointer))) (define-foreign-type foreign-g-object-type () @@ -160,6 +161,8 @@ (defmethod translate-to-foreign (object (type foreign-g-object-type)) (cond + ((null object) + (null-pointer)) ((null (pointer object)) (error "Object ~A has been disposed" object)) ((typep object 'g-object) -- 1.7.10.4