Removed dependency on anaphora and metabang-bind

[cl-gtk2.git] / subtest.lisp

diff --git a/subtest.lisp b/subtest.lisp
index 4978b8a..c422022 100644 (file)
--- 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)