|
|
|
@ -1055,7 +1055,8 @@ Stop if *TRACKERNET-KILL-SWITCH* is set to T." |
|
|
|
(defun write-track-links-graphviz (&optional (out *standard-output*)) |
|
|
|
"Write the track links out in graphviz format." |
|
|
|
(princ "digraph {" out) |
|
|
|
(format out "node [shape=box margin=\"0.1,0.1\"];") |
|
|
|
(format out "node [shape=box margin=\"0.1,0.1\"]; |
|
|
|
layout = \"neato\";") |
|
|
|
(terpri out) |
|
|
|
(loop |
|
|
|
for key in (get-all "D-track-desc-*") |
|
|
|
|
