X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-metrics.lisp;h=95dfe8a725b42a1919ffe2b95df2df640235df1d;hb=e1ed2db513d5c744cc1f6b0427d2550ec534edba;hp=066781d1be9e1175fd8ce9b46ffbc1cfa3b606aa;hpb=bf38951682661e4e59bfa0d3a6687bab94bee35a;p=cl-graph.git

diff --git a/dev/graph-metrics.lisp b/dev/graph-metrics.lisp
index 066781d..95dfe8a 100644
--- a/dev/graph-metrics.lisp
+++ b/dev/graph-metrics.lisp
@@ -74,7 +74,7 @@ DISCUSSION
                                     &key (edge-size (constantly 1)))
   "Prints a summary of vertex degrees in `graph` to standard-out. Both the average degree of all vertexes and the average degree between all pairs of vertex classes \(as determined by the vertex-classifier\) will be printed. The `edge-size` parameter is passed on to `vertex-degree` to allow for weighted edges."
   
-  (bind ((counts (node-counts graph :key vertex-classifier))
+  (let ((counts (node-counts graph :key vertex-classifier))
          (kinds (collect-elements counts :transform #'first)))
     (format t "~%Vertex counts: ")
     (loop for (kind count) in counts do