X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tree-model.lisp;h=edbcbd1e0370286948e9919d0550ab0eb33b92d2;hb=afaeabf9e77294a867a0c39a6e7b1cbc8667442a;hp=4b8f8131ca3a8f1eb921428368495a13a750ed47;hpb=2a8132f9a0e3e679e63d6f5afd64a8373aeaf880;p=cl-gtk2.git

diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp
index 4b8f813..edbcbd1 100644
--- a/gtk/gtk.tree-model.lisp
+++ b/gtk/gtk.tree-model.lisp
@@ -547,10 +547,11 @@
   (gethash id (tree-lisp-store-id-map tree)))
 
 (defmethod tree-model-get-iter-impl ((store tree-lisp-store) iter path)
-  (let* ((node (get-node-by-path store path))
-         (node-idx (get-assigned-id store node)))
-    (setf (tree-iter-stamp iter) 0
-          (tree-iter-user-data iter) node-idx)))
+  (ignore-errors
+    (let* ((node (get-node-by-path store path))
+	   (node-idx (get-assigned-id store node)))
+      (setf (tree-iter-stamp iter) 0
+	    (tree-iter-user-data iter) node-idx))))
 
 (defun get-node-by-iter (tree iter)
   (get-node-by-id tree (tree-iter-user-data iter)))