X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph.lisp;h=6ff6b65a1f2952523385d7e17fdc04d34c8a9e66;hb=bb839cb48f8b802abb471effa33deb78fc6624df;hp=d71ab6ce0d27437d457784501804948b9e33ae23;hpb=47ed448564c30a2d685e8897a80b14aa7798261a;p=cl-graph.git

diff --git a/dev/graph.lisp b/dev/graph.lisp
index d71ab6c..6ff6b65 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -461,9 +461,10 @@ something is putting something on the vertexes plist's
      &key (error-if-not-found? t))
   (let* ((v1 (find-vertex graph value-1 error-if-not-found?))
 	 (v2 (find-vertex graph value-2 error-if-not-found?)))
-    (or (and v1 v2 (find-edge-between-vertexes graph v1 v2)))
-    (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 graph v1 v2))
+	(when error-if-not-found?
+	  (error 'graph-edge-not-found-error
+		 :graph graph :vertex-1 v1 :vertex-2 v2)))))
 
 ;;; ---------------------------------------------------------------------------