(ensure-same (size g) 6 :test '=)))
+#|
;;; ---------------------------------------------------------------------------
;;; copying
;;; ---------------------------------------------------------------------------
(ensure (not
(find-edge-between-vertexes g2 (find-vertex g1 'a) (find-vertex g1 'b))))))
-;;; ---------------------------------------------------------------------------
-
+|#