Fixes to g-boxed-ref gc'ing when underlying c-pointer was silently freed and returned...

[cl-gtk2.git] / subtest.lisp

diff --git a/subtest.lisp b/subtest.lisp
index 10f8b51..c7df02b 100644 (file)
--- a/subtest.lisp
+++ b/subtest.lisp
@@ -99,8 +99,8 @@
 
 (defun store-add-item (store item)
   (vector-push-extend item (store-items store))
-  (gobject:using* ((path (make-instance 'tree-path))
-                   (iter (make-instance 'tree-iter)))
+  (let ((path (make-instance 'tree-path))
+        (iter (make-instance 'tree-iter)))
     (setf (indices path) (list (1- (length (store-items store)))))
     (setf (stamp iter) 0 (user-data iter) (1- (length (store-items store))))
     (gobject::emit-signal store "row-inserted" path iter)))