(lambda (edge)
(funcall fn (other-vertex edge vertex)))))
;;; ---------------------------------------------------------------------------
(defmethod iterate-parents ((vertex graph-container-vertex) fn)
(lambda (edge)
(funcall fn (other-vertex edge vertex)))))
;;; ---------------------------------------------------------------------------
(defmethod iterate-parents ((vertex graph-container-vertex) fn)