From a8ac5bf925e0d89ba03b0b8082cd497c7b93608c Mon Sep 17 00:00:00 2001 From: Gary King Date: Fri, 2 Jun 2006 12:47:04 -0400 Subject: [PATCH] Fixed bug where edge deletion was not correctly managing the vertex-pair->edge table darcs-hash:20060602164704-3cc5d-186db909e29fc6d6ff23932d93d33e98f4d5e61f.gz --- dev/graph-container.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dev/graph-container.lisp b/dev/graph-container.lisp index c856db0..2bc2504 100644 --- a/dev/graph-container.lisp +++ b/dev/graph-container.lisp @@ -228,9 +228,9 @@ DISCUSSION (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 (cons vertex-1 vertex-2) + (delete edge (item-at-1 (vertex-pair->edge graph) (cons vertex-1 vertex-2)) - :test #'equal))) + :test #'eq))) edge) ;;; --------------------------------------------------------------------------- -- 1.7.10.4