((graph-undirected (make-container 'graph-container :default-edge-type :undirected))
(graph-directed (make-container 'graph-container :default-edge-type :directed)))
:setup ((loop for v in '(a b c d e) do
((graph-undirected (make-container 'graph-container :default-edge-type :undirected))
(graph-directed (make-container 'graph-container :default-edge-type :directed)))
:setup ((loop for v in '(a b c d e) do