;; TODO search-for-vertex is sloooow, use a hashtable or
;; introduce an graph-find-element-by-id-mixin, or similar
(let ((vertex (find-vertex-by-id g (graphviz:node-name node))))
;; TODO search-for-vertex is sloooow, use a hashtable or
;; introduce an graph-find-element-by-id-mixin, or similar
(let ((vertex (find-vertex-by-id g (graphviz:node-name node))))