From: Gary King <gwking@metabang.com>
Date: Fri, 2 Jun 2006 16:47:04 +0000 (-0400)
Subject: Fixed bug where edge deletion was not correctly managing the vertex-pair->edge table
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-graph.git;a=commitdiff_plain;h=a8ac5bf925e0d89ba03b0b8082cd497c7b93608c

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
--- 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)
 
 ;;; ---------------------------------------------------------------------------