- (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)))