X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fapi.lisp;h=332b881311cba10912fed1b7ec41172ecb5536ca;hb=3165cba36e6f8c3a7f3f1051f1c4880aaa14466d;hp=f5d836c963f8c7936f5f323a1e51461f98a01a96;hpb=5986ec0238faafb18a326e55f16c5fe880d92575;p=cl-graph.git

diff --git a/dev/api.lisp b/dev/api.lisp
index f5d836c..332b881 100644
--- a/dev/api.lisp
+++ b/dev/api.lisp
@@ -622,10 +622,11 @@ as a source. [?? Could be a defun]."))
 
 (defgeneric find-edge-between-vertexes-if
   (graph value-or-vertex-1 value-or-vertex-2 fn &key error-if-not-found?)
-  (:documentation "Finds and returns an edge between value-or-vertex-1
-  and value-or-vertex-2 if one exists. Unless error-if-not-found? is
-  nil, then a error will be signaled. [?? Error not signal, need
-  test.]"))
+  (:documentation 
+   "Finds and returns an edge between value-or-vertex-1
+and value-or-vertex-2 which returns true (as a generalized boolean) when
+evaluated by `fn`. Unless error-if-not-found? is nil, then a error will 
+be signaled. [?? IS error really signaled? need a test.]"))
 
 (defgeneric vertices-share-edge-p (vertex-1 vertex-2)
   (:documentation "Return true if vertex-1 and vertex-2 are connected