X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-container.lisp;h=2bc250460531b177bf9e9d6ad22767930d6e486e;hb=a8ac5bf925e0d89ba03b0b8082cd497c7b93608c;hp=c856db0c918e46278c0932633f5923ad71e1e668;hpb=bba9034e3ef333735caacda78a76ff4f911ff486;p=cl-graph.git

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