X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-container.lisp;h=7c9bf2f4aae0d33400a89a59e16f64de5b35245c;hb=a3062aaed0bb42f1bbbc7cf6d1a2cf14c277a712;hp=345ee48354cd3d2dfacfbacfea85ba136ddb6dec;hpb=da28401a80e227702094801992f6177894f5698f;p=cl-graph.git

diff --git a/dev/graph-container.lisp b/dev/graph-container.lisp
index 345ee48..7c9bf2f 100644
--- a/dev/graph-container.lisp
+++ b/dev/graph-container.lisp
@@ -211,10 +211,9 @@ DISCUSSION
                                           &key error-if-not-found?)
   (bind ((v1 (find-vertex graph value-1 error-if-not-found?))
          (v2 (find-vertex graph value-2 error-if-not-found?)))
-    (aif (and v1 v2 (find-edge-between-vertexes-if graph v1 v2 fn))
-         it
-         (when error-if-not-found?
-           (error 'graph-edge-not-found-error :vertex-1 v1 :vertex-2 v2)))))
+    (or (and v1 v2 (find-edge-between-vertexes-if graph v1 v2 fn))
+	(when error-if-not-found?
+	  (error 'graph-edge-not-found-error :vertex-1 v1 :vertex-2 v2)))))
 
 ;;; ---------------------------------------------------------------------------