X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tree-selection.lisp;h=74e4e1bf74221cffd3644be1fe22b199f564efe6;hb=c36dad68c5724171792b032fe56d6d531fc2571a;hp=79d10958185b3453b3f322749457216dcc2e7f25;hpb=5fe17678137c04ece910ae65a35ee58a0c7761c7;p=cl-gtk2.git

diff --git a/gtk/gtk.tree-selection.lisp b/gtk/gtk.tree-selection.lisp
index 79d1095..74e4e1b 100644
--- a/gtk/gtk.tree-selection.lisp
+++ b/gtk/gtk.tree-selection.lisp
@@ -34,9 +34,8 @@
 
 (defun tree-selection-selected (tree-selection)
   (let ((iter (make-instance 'tree-iter)))
-    (if (gtk-tree-selection-get-selected tree-selection (null-pointer) iter)
-        iter
-        (release iter))))
+    (when (gtk-tree-selection-get-selected tree-selection (null-pointer) iter)
+      iter)))
 
 (export 'tree-selection-selected)