X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-container.lisp;h=91fde47f25b8d4e791c846664ca613a03a2bd36d;hb=64273bb2bd2c48860e33dc1945c49eb867a32d19;hp=7c9bf2f4aae0d33400a89a59e16f64de5b35245c;hpb=a3062aaed0bb42f1bbbc7cf6d1a2cf14c277a712;p=cl-graph.git

diff --git a/dev/graph-container.lisp b/dev/graph-container.lisp
index 7c9bf2f..91fde47 100644
--- a/dev/graph-container.lisp
+++ b/dev/graph-container.lisp
@@ -268,7 +268,7 @@ DISCUSSION
   (iterate-elements (vertex-edges vertex)
                     (lambda (edge)
                       (when (or (undirected-edge-p edge)
-                                (eq vertex (target-vertex edge)))
+                                (eq vertex (source-vertex edge)))
                         (funcall fn edge)))))
 
 ;;; ---------------------------------------------------------------------------
@@ -277,7 +277,7 @@ DISCUSSION
   (iterate-elements (vertex-edges vertex)
                     (lambda (edge)
                       (when (or (undirected-edge-p edge)
-                                (eq vertex (source-vertex edge)))
+                                (eq vertex (target-vertex edge)))
                         (funcall fn edge)))))
 
 ;;; ---------------------------------------------------------------------------