X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-algorithms.lisp;h=da610cedbbedc932fb0af6bc6d31acb309833603;hb=5986ec0238faafb18a326e55f16c5fe880d92575;hp=30cac2dda6181059278ad37285e417cf511044ff;hpb=80af22e39e0787769c4c9f455bb1d2c95e2343b5;p=cl-graph.git

diff --git a/dev/graph-algorithms.lisp b/dev/graph-algorithms.lisp
index 30cac2d..da610ce 100644
--- a/dev/graph-algorithms.lisp
+++ b/dev/graph-algorithms.lisp
@@ -146,8 +146,7 @@
        (let ((element (element (parent component))))
          (unless (item-at found-elements element)
            (setf (item-at found-elements element) t)
-           
-           (push (subgraph-containing graph (element component) 
+	   (push (subgraph-containing graph (element component) 
                                       most-positive-fixnum)
                  result)))))
     
@@ -442,7 +441,8 @@
   (add-edge-between-vertexes g :w :z :edge-type :directed)
   (add-edge-between-vertexes g :z :z :edge-type :directed
                              :if-duplicate-do :force)
-  (assert (equal '(:X :Y :V :U :Z :W)
+  (print (mapcar #'element (dfs g :u #'identity)))
+  (assert (equal '(:x :y :v :u :z :w)
                  (mapcar #'element (dfs g :u #'identity)))))
 
 
@@ -574,4 +574,4 @@
 
 ;;; ***************************************************************************
 ;;; *                              End of File                                *
-;;; ***************************************************************************
\ No newline at end of file
+;;; ***************************************************************************