The return of copying support

[cl-graph.git] / dev / copying.lisp

diff --git a/dev/copying.lisp b/dev/copying.lisp
new file mode 100644 (file)
index 0000000..edb5dbe
--- /dev/null
+++ b/dev/copying.lisp
@@ -0,0 +1,21 @@
+(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)
+