(in-package cl-graph) (metacopy:defcopy-methods basic-vertex :copy-all t) (metacopy:defcopy-methods basic-edge :set (edge-id tag color graph) :copy (element)) (metacopy:defcopy-methods weighted-edge-mixin :copy-all t) (metacopy:defcopy-methods basic-graph :copy-all t) (metacopy:defcopy-methods graph-container-vertex :copy-all t) (metacopy:defcopy-methods graph-container-edge :copy-all t)