clean up all the current warnings

[cl-graph.git] / dev / graph-algorithms.lisp

diff --git a/dev/graph-algorithms.lisp b/dev/graph-algorithms.lisp
index 30cac2d..d84a799 100644 (file)
--- 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)))))