X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraphviz%2Fgraphviz-support.lisp;h=836bce0de49bc3562c85e8caff1f8f2dfd67bfd0;hb=7386fbb6fe617a8facb485d53798981b8d7211eb;hp=16f426135374a5e28c32d40d3ec5f8d52c6c7943;hpb=d537ac1c5bd4ac2ac5b63cef4b5a3bfc87aa1c19;p=cl-graph.git

diff --git a/dev/graphviz/graphviz-support.lisp b/dev/graphviz/graphviz-support.lisp
index 16f4261..836bce0 100644
--- a/dev/graphviz/graphviz-support.lisp
+++ b/dev/graphviz/graphviz-support.lisp
@@ -20,14 +20,14 @@ This file contains the stuff that does not depend on cl-graphviz.
 ; "GRAPHVIZ".
 ;
 (defmethod graph->dot ((g basic-graph) (stream stream)
-                       &key 
+                       &key
                        (graph-formatter 'graph->dot-properties)
                        (vertex-key 'vertex-id)
                        (vertex-labeler nil)
                        (vertex-formatter 'vertex->dot)
-                       (edge-key nil)
                        (edge-labeler 'princ) 
-                       (edge-formatter 'edge->dot))
+                       (edge-formatter 'edge->dot)
+                       &allow-other-keys)
   (format stream "~A G {~%graph " (if (contains-undirected-edge-p g) "graph" "digraph"))
   (format stream "[")
   (funcall graph-formatter g stream)