X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-container.lisp;h=345ee48354cd3d2dfacfbacfea85ba136ddb6dec;hb=24c645986ed5cc5b0b26605cbe2f44873870a624;hp=544a0c49d56d9ec9c26a1f5417010c1a1dab194d;hpb=c66f587bb418d6173188973ec3c38b18305c5033;p=cl-graph.git

diff --git a/dev/graph-container.lisp b/dev/graph-container.lisp
index 544a0c4..345ee48 100644
--- a/dev/graph-container.lisp
+++ b/dev/graph-container.lisp
@@ -237,6 +237,14 @@ DISCUSSION
                   :test #'eq)))
   edge)
 
+(defmethod delete-all-edges ((graph graph-container))
+  (iterate-vertexes 
+   graph
+   (lambda (vertex)
+     (empty! (vertex-edges vertex))))
+  (empty! (vertex-pair->edge graph))
+  graph)
+
 ;;; ---------------------------------------------------------------------------
 
 (defmethod empty! :after ((graph graph-container))