X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=subtest.lisp;fp=subtest.lisp;h=c422022a46562062b67d4c8d9543460926c97090;hb=8b6767cf4830672f2d929b66031f561857b9f1cd;hp=4978b8a22693774504ef8a2033bddffc546838c5;hpb=c7066267e3baedd05b2a394f5b2dbdf2246278c7;p=cl-gtk2.git

diff --git a/subtest.lisp b/subtest.lisp
index 4978b8a..c422022 100644
--- a/subtest.lisp
+++ b/subtest.lisp
@@ -142,9 +142,10 @@
 
 (defmethod tree-model-get-path-impl ((model array-list-store) iter)
   (gobject:using* (iter)
-    (anaphora:aprog1 (make-instance 'tree-path)
-      (setf (tree-path-indices anaphora:it) (list (tree-iter-user-data iter)))
-      (gobject:disown-boxed-ref anaphora:it))))
+    (let ((path (make-instance 'tree-path)))
+      (setf (tree-path-indices path) (list (tree-iter-user-data iter)))
+      (gobject:disown-boxed-ref path)
+      path)))
 
 (defmethod tree-model-iter-has-child-impl ((model array-list-store) iter)
   (gobject:release iter)