X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=subtest.lisp;h=c422022a46562062b67d4c8d9543460926c97090;hb=96ef8e49d3ec3f3f1c2af63d763d98ed85b32d21;hp=4978b8a22693774504ef8a2033bddffc546838c5;hpb=d993fa132ff1e0a1284b284598703d65ee9e6081;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)