(to-vertex (find-vertex-by-id g (graphviz:node-name to)))
(real-edge (find-edge-between-vertexes g from-vertex to-vertex))
(bezier-points '()))
(to-vertex (find-vertex-by-id g (graphviz:node-name to)))
(real-edge (find-edge-between-vertexes g from-vertex to-vertex))
(bezier-points '()))