- (delete-item (vertex-edges (vertex-1 edge)) edge)
- (delete-item (vertex-edges (vertex-2 edge)) edge)
+ (let ((vertex-1 (vertex-1 edge))
+ (vertex-2 (vertex-2 edge)))
+ (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 edge
+ (item-at-1 (vertex-pair->edge graph) (cons vertex-1 vertex-2))
+ :test #'eq)))