X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraphviz-support.lisp;h=b77cfa40f06a6bea6aae971ee4b19fba8c889ca5;hb=cc76b8ca6ec195fffb99a4e4c20231c27a422cdd;hp=a47f66ca236e50f0022c92fc4e0f61014f799015;hpb=53ce4bea57e2710f2296878d79fe00ca31fec9fb;p=cl-graph.git

diff --git a/dev/graphviz-support.lisp b/dev/graphviz-support.lisp
index a47f66c..b77cfa4 100644
--- a/dev/graphviz-support.lisp
+++ b/dev/graphviz-support.lisp
@@ -57,7 +57,7 @@ ways to specify the same color.
          (funcall vertex-labeler v stream)
          (princ "\", " stream))
        (funcall vertex-formatter v stream)
-       (princ "]" stream))))
+       (princ "];" stream))))
   
   (let ((directed-edge-connector (if (contains-undirected-edge-p g) "--" "->"))
         (directed-edge-tag (when (and (contains-undirected-edge-p g)
@@ -76,7 +76,7 @@ ways to specify the same color.
                (funcall edge-labeler e stream)
                (princ "\"," stream))
              (funcall edge-formatter e stream)
-             (princ "]" stream)))
+             (princ "];" stream)))
       ;; directed edges
       (iterate-vertexes 
        g