X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph.lisp;fp=dev%2Fgraph.lisp;h=6df7ec334e5d312a4e38bcef97a78e453cefc7cf;hb=dacf832a9595116c4a3384232d785311cd1ec811;hp=96ad209e29b6787a6061ff52272683a6b16af322;hpb=3165cba36e6f8c3a7f3f1051f1c4880aaa14466d;p=cl-graph.git

diff --git a/dev/graph.lisp b/dev/graph.lisp
index 96ad209..6df7ec3 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -646,7 +646,7 @@ something is putting something on the vertexes plist's
 
 (defmethod rootp ((vertex basic-vertex))
   ;;?? this is inefficient in the same way that (zerop (length <list>)) is...
-  (zerop (source-edge-count vertex)))
+  (zerop (target-edge-count vertex)))
 
 
 (defmethod find-vertex-if ((graph basic-graph) fn &key key)