# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1484954896 0
# Node ID b7b83364b2ea855cf02c7b435cc3a59efba56470
# Parent  12700a8dbc356b36d30b53253065f8e4eb2d0b7f
Be friendlier

diff -r 12700a8dbc35 -r b7b83364b2ea src/directed-graph.lisp
--- 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))