From: Gary King <gwking@metabang.com>
Date: Sun, 7 Sep 2008 01:00:30 +0000 (-0400)
Subject: Case 214: target-edges and source-edges were bass-ackwards; also added test
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-graph.git;a=commitdiff_plain;h=47ed448564c30a2d685e8897a80b14aa7798261a

Case 214: target-edges and source-edges were bass-ackwards; also added test

darcs-hash:20080907010030-3cc5d-47009c62f9d7b96a72f9188220fa59e1d1f540b3.gz
---

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)))))
 
 ;;; ---------------------------------------------------------------------------