From: Gary King Date: Thu, 10 May 2007 21:53:18 +0000 (-0400) Subject: Removed duplicate search-for-vertex method X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-graph.git;a=commitdiff_plain;h=b3ce2ed9442e84ed2c5e634aeef473892cca0a04 Removed duplicate search-for-vertex method darcs-hash:20070510215318-3cc5d-b394176f147a444fb0030d57457dc918d38eadce.gz --- diff --git a/dev/graph.lisp b/dev/graph.lisp index a204446..ce450a4 100644 --- a/dev/graph.lisp +++ b/dev/graph.lisp @@ -635,18 +635,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 +644,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 +652,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)))))