From: melevy <melevy@freemail.hu>
Date: Thu, 9 Feb 2006 23:23:38 +0000 (-0500)
Subject: Fix dot format
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=cc76b8ca6ec195fffb99a4e4c20231c27a422cdd;p=cl-graph.git

Fix dot format

darcs-hash:20060209232338-d0603-cfa3ed66f8d5858ca84bb1550f060c824719471d.gz
---

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