X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph.lisp;h=98049a7ea80114b55ff6f5b22ac6c63b603755f6;hb=000a31e8bb29016b2f5c6f41146bca3385cecf99;hp=2625aab89d0125fc18e9e088c8318dad1c35ac99;hpb=44a5cff657760ffb78e34aa688f209283d899236;p=cl-graph.git

diff --git a/dev/graph.lisp b/dev/graph.lisp
index 2625aab..98049a7 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -1029,7 +1029,7 @@ length"
 (defun map-shortest-paths
     (graph start-vertex depth fn &key (filter (constantly t)))
   "Apply fn to each shortest path starting at `start-vertex` of depth `depth`. The `filter` predicate is used to remove vertexes from consideration."
-  (bind ((visited (make-container 'simple-associative-container
+  (let ((visited (make-container 'simple-associative-container
                                   :test #'equal)))
     (labels ((visit (p)
                (setf (item-at-1 visited p) t))