From cc76b8ca6ec195fffb99a4e4c20231c27a422cdd Mon Sep 17 00:00:00 2001 From: melevy Date: Thu, 9 Feb 2006 18:23:38 -0500 Subject: [PATCH] Fix dot format darcs-hash:20060209232338-d0603-cfa3ed66f8d5858ca84bb1550f060c824719471d.gz --- dev/graphviz-support.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4