1 ;;;-*- Mode: Lisp; Package: metabang.graph -*-
3 (in-package #:metabang.graph)
5 ;;?? Gary King 2006-01-30:
6 ;;?? Face it, I have no idea why we need this anymore... but i'm sure we do
7 (defmacro with-changing-vertex ((vertex) &body body)
8 "This is used to maintain consistency when changing the value of vertex elements while iterating over the vertexes..."
12 (delete-item-at (graph-vertexes ,g)
13 (funcall (vertex-key ,g) (element ,v)))
15 (setf (item-at (graph-vertexes ,g)
16 (funcall (vertex-key ,g) (element ,v))) ,v))))