X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph.lisp;h=b2c1cf3bb669b7ca1c45e611f4146362f6ba72b9;hb=5282d117ab0e8b7080bca9683e270f0d2a8f4d5c;hp=a8f782bc9408fd04b31bba2d338cd9e1a0c2747b;hpb=91e1eb9bf83e879fff123c9a7863ef52a0d406ae;p=cl-graph.git

diff --git a/dev/graph.lisp b/dev/graph.lisp
index a8f782b..b2c1cf3 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -1065,7 +1065,7 @@ nil gathers the entire closure(s)."
 ;;; ---------------------------------------------------------------------------
 
 (defmethod edge-count ((graph basic-graph))
-  (length (edges graph)))
+  (count-using #'iterate-edges nil graph))
 
 ;;; ---------------------------------------------------------------------------