Fixed bug where edge deletion was not correctly managing the vertex-pair->edge table

darcs-hash:20060602164704-3cc5d-186db909e29fc6d6ff23932d93d33e98f4d5e61f.gz

diff --git a/dev/graph-container.lisp b/dev/graph-container.lisp
index c856db0..2bc2504 100644 (file)
--- 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)
 
 ;;; ---------------------------------------------------------------------------