projects
/
cl-graph.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removed ;;; -+ lines
[cl-graph.git]
/
dev
/
subgraph-containing.lisp
diff --git
a/dev/subgraph-containing.lisp
b/dev/subgraph-containing.lisp
index
c4f33df
..
813d577
100644
(file)
--- a/
dev/subgraph-containing.lisp
+++ b/
dev/subgraph-containing.lisp
@@
-3,9
+3,7
@@
(in-package #:cl-graph)
(in-package #:cl-graph)
-;;; ---------------------------------------------------------------------------
;;; make-filtered-graph
;;; make-filtered-graph
-;;; ---------------------------------------------------------------------------
(defmethod complete-links ((new-graph basic-graph)
(old-graph basic-graph))
(defmethod complete-links ((new-graph basic-graph)
(old-graph basic-graph))
@@
-54,7
+52,6
@@
:value (value edge)
:edge-type edge-type))))))))))
:value (value edge)
:edge-type edge-type))))))))))
-;;; ---------------------------------------------------------------------------
(defmethod make-filtered-graph ((old-graph basic-graph)
test-fn
(defmethod make-filtered-graph ((old-graph basic-graph)
test-fn
@@
-84,7
+81,6
@@
(complete-links new-graph old-graph)))
new-graph)
(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))
(defmethod subgraph-containing ((graph basic-graph) (vertex basic-vertex)
&rest args &key (depth nil) (new-graph nil))
@@
-96,9
+92,7
@@
:graph-completion-method :complete-closure-with-links
args))
:graph-completion-method :complete-closure-with-links
args))
-;;; ---------------------------------------------------------------------------
;;; for completeness
;;; for completeness
-;;; ---------------------------------------------------------------------------
(defmethod make-graph-from-vertexes ((vertex-list list))
(bind ((edges-to-keep nil)
(defmethod make-graph-from-vertexes ((vertex-list list))
(bind ((edges-to-keep nil)