G
Size: a a a
G
DL
G
DL
DL
G
G
DL
DL
G
G
AR
VL
(defn copy [frag]
(if (instance? MetagraphFragment frag)
(make-fragment (:vertices frag) (:meta-vertices frag) (:edges frag))
(throw
(IllegalArgumentException.
(str "The " (get-class-name frag) " type component is not a metagraph fragment.")))))
DL
AS
G
AR
AR
G
AR