X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph.lisp;h=8a7bd942a578f7c509c5e4a74f9194e889b4207c;hb=b621ac7a68fbf0d4ee562c4b2eeb7b6d707efa81;hp=8a17dc1387c6a032bfe24442273dcfd52a6a6501;hpb=53ce4bea57e2710f2296878d79fe00ca31fec9fb;p=cl-graph.git

diff --git a/dev/graph.lisp b/dev/graph.lisp
index 8a17dc1..8a7bd94 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -672,7 +672,7 @@ something is putting something on the vertexes plist's
          (error "~A not found in ~A" vertex graph))))
 
 ;;; ---------------------------------------------------------------------------
-
+;; TODO !!! dispatch is the same as the second method above
 (defmethod search-for-vertex ((graph basic-graph) (vertex t)
                               &key (key (vertex-key graph)) (test 'equal)
                               (error-if-not-found? t))