hg.stevelosh.com > cl-digraph

b7b83364b2ea 

Be friendlier
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 20 Jan 2017 23:28:16 +0000
parents 12700a8dbc35
children cd7d9aaa9385
branches/tags (none)
files src/directed-graph.lisp

Changes

--- a/src/directed-graph.lisp	Mon Jan 02 16:38:13 2017 +0000
+++ b/src/directed-graph.lisp	Fri Jan 20 23:28:16 2017 +0000
@@ -433,7 +433,7 @@
   for a path, and can be one of `:breadth-first` or `:depth-first`.
 
   "
-  (let* ((traverse (ecase strategy
+  (let* ((traverse (ccase strategy
                      (:breadth-first #'mapc-breadth-first)
                      (:depth-first #'mapc-depth-first)))
          (test (digraph-test digraph))