(in-package #:cl-graph)
-;;; ---------------------------------------------------------------------------
;;; make-filtered-graph
-;;; ---------------------------------------------------------------------------
(defmethod complete-links ((new-graph basic-graph)
(old-graph basic-graph))
:value (value edge)
:edge-type edge-type))))))))))
-;;; ---------------------------------------------------------------------------
(defmethod make-filtered-graph ((old-graph basic-graph)
test-fn
(complete-links new-graph old-graph)))
new-graph)
-;;; ---------------------------------------------------------------------------
(defmethod subgraph-containing ((graph basic-graph) (vertex basic-vertex)
&rest args &key (depth nil) (new-graph nil))
:graph-completion-method :complete-closure-with-links
args))
-;;; ---------------------------------------------------------------------------
;;; for completeness
-;;; ---------------------------------------------------------------------------
(defmethod make-graph-from-vertexes ((vertex-list list))
(bind ((edges-to-keep nil)