projects
/
cl-graph.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
53ce4be
)
Fix dot format
author
melevy
<melevy@freemail.hu>
Thu, 9 Feb 2006 23:23:38 +0000
(18:23 -0500)
committer
melevy
<melevy@freemail.hu>
Thu, 9 Feb 2006 23:23:38 +0000
(18:23 -0500)
darcs-hash:
20060209232338
-d0603-
cfa3ed66f8d5858ca84bb1550f060c824719471d
.gz
dev/graphviz-support.lisp
patch
|
blob
|
history
diff --git
a/dev/graphviz-support.lisp
b/dev/graphviz-support.lisp
index
a47f66c
..
b77cfa4
100644
(file)
--- 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)
(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)
(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)
(funcall edge-labeler e stream)
(princ "\"," stream))
(funcall edge-formatter e stream)
- (princ "]" stream)))
+ (princ "];" stream)))
;; directed edges
(iterate-vertexes
g
;; directed edges
(iterate-vertexes
g