X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph.lisp;h=3af3c47e52e703c9c21c1f2be2a9fea4759a06c9;hb=09ba252fcab440337424122782e305db8f585e83;hp=a204446e5941130fd406ea1541ba8a73fb9efbb1;hpb=2d52d1e533a3c73bffd2dd81620cc5bd540c314a;p=cl-graph.git

diff --git a/dev/graph.lisp b/dev/graph.lisp
index a204446..3af3c47 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -622,7 +622,14 @@ something is putting something on the vertexes plist's
        (when error-if-not-found?
          (error 'graph-vertex-not-found-error :vertex value :graph graph))))
 
-;;; ---------------------------------------------------------------------------
+(defmethod find-vertex ((graph basic-graph) (vertex basic-vertex)
+                        &optional (error-if-not-found? t))
+  (cond ((eq graph (graph vertex))
+	 vertex)
+	(t
+	 (when error-if-not-found?
+	   (error 'graph-vertex-not-found-error 
+		  :vertex vertex :graph graph)))))
 
 (defmethod find-vertex ((edge basic-edge) (value t)
                         &optional (error-if-not-found? t))
@@ -635,18 +642,6 @@ something is putting something on the vertexes plist's
   (when error-if-not-found?
     (error 'graph-vertex-not-found-in-edge-error :vertex value :edge edge)))
 
-;;; ---------------------------------------------------------------------------
-
-(defmethod search-for-vertex ((graph basic-graph) (value t) 
-                              &key (key (vertex-key graph)) (test 'equal)
-                              (error-if-not-found? t))
-  (aif (search-for-node graph value :test test :key key)
-       it
-       (when error-if-not-found?
-         (error "~S not found in ~A using key ~S and test ~S" value graph key 
-                test))))
-
-;;; ---------------------------------------------------------------------------
 
 (defmethod search-for-vertex ((graph basic-graph) (vertex basic-vertex)
                               &key (key (vertex-key graph)) (test 'equal)
@@ -656,8 +651,6 @@ something is putting something on the vertexes plist's
        (when error-if-not-found?
          (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))
@@ -666,8 +659,6 @@ something is putting something on the vertexes plist's
        (when error-if-not-found?
          (error "~A not found in ~A" vertex graph))))
 
-;;; ---------------------------------------------------------------------------
-
 (defmethod iterate-elements ((graph basic-graph) fn)
    (iterate-elements (graph-vertexes graph) 
                      (lambda (vertex) (funcall fn (element vertex)))))