Replaced some code that depends on copying

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

diff --git a/dev/copying.lisp b/dev/copying.lisp
index edb5dbe..e20961a 100644 (file)
--- a/dev/copying.lisp
+++ b/dev/copying.lisp
@@ -19,3 +19,9 @@
 (metacopy:defcopy-methods graph-container-edge 
   :copy-all t)
 
+(defmethod generate-directed-free-tree ((graph basic-graph) (root basic-vertex))
+  (let ((new-graph (metacopy:copy-thing graph)))
+    (empty! new-graph)
+    (nilf (contains-undirected-edge-p new-graph))
+    (neighbors-to-children new-graph root)
+    (values new-graph)))
\ No newline at end of file