glib: return NIL when g-object foreign type with :already-referenced receives null...

[cl-gtk2.git] / glib / gobject.object.high.lisp

diff --git a/glib/gobject.object.high.lisp b/glib/gobject.object.high.lisp
index 887ea2d..80399b8 100644 (file)
--- a/glib/gobject.object.high.lisp
+++ b/glib/gobject.object.high.lisp
@@ -211,7 +211,7 @@
 
 (defmethod translate-from-foreign (pointer (type foreign-g-object-type))
   (let ((object (get-g-object-for-pointer pointer)))
-    (when (foreign-g-object-type-already-referenced type)
+    (when (and object (foreign-g-object-type-already-referenced type))
       (g-object-unref (pointer object)))
     object))