X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.text.lisp;fp=gtk%2Fgtk.text.lisp;h=85d611d79021cb41be3bcd4df36f5031b10aab1e;hb=dea09132ac7d8cc9c6fad7246c66ea9c484015fb;hp=9526d23ff121153f5ca9c0ed4a7a3c09de003bec;hpb=b7495006a41b43e590f7f7e7b4eb130c3cce4c6a;p=cl-gtk2.git

diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp
index 9526d23..85d611d 100644
--- a/gtk/gtk.text.lisp
+++ b/gtk/gtk.text.lisp
@@ -284,9 +284,7 @@
             (gtk-text-iter-forward-search start-position string flags i1 i2 limit)
             (gtk-text-iter-backward-search start-position string flags i1 i2 limit))
         (values t i1 i2)
-        (progn (release i1)
-               (release i2)
-               (values nil nil nil)))))
+        (values nil nil nil))))
 
 (export 'text-iter-search)
 
@@ -738,9 +736,7 @@
         (i2 (make-instance 'text-iter)))
     (if (gtk-text-buffer-get-selection-bounds buffer i1 i2)
         (values i1 i2)
-        (progn (release i1)
-               (release i2)
-               (values nil nil)))))
+        (values nil nil))))
 
 (export 'text-buffer-get-selection-bounds)