(delete-item (vertex-edges vertex-1) edge)
(delete-item (vertex-edges vertex-2) edge)
(setf (item-at-1 (vertex-pair->edge graph) (cons vertex-1 vertex-2))
(delete-item (vertex-edges vertex-1) edge)
(delete-item (vertex-edges vertex-2) edge)
(setf (item-at-1 (vertex-pair->edge graph) (cons vertex-1 vertex-2))