X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=dev%2Fsubgraph-containing.lisp;h=492f61a1ab57b2926a01129040efc0fdec3c82c6;hb=8e7eb729b124e52b5d5f102545f95ca1bff67c3e;hp=c4f33dfe31591f710af2f2a201233a29e1fbecc3;hpb=63b8fd870436113d8d196d94f1e6f2eabfe7f786;p=cl-graph.git

diff --git a/dev/subgraph-containing.lisp b/dev/subgraph-containing.lisp
index c4f33df..492f61a 100644
--- a/dev/subgraph-containing.lisp
+++ b/dev/subgraph-containing.lisp
@@ -3,9 +3,7 @@
 (in-package #:cl-graph)
 
 
-;;; ---------------------------------------------------------------------------
 ;;; make-filtered-graph
-;;; ---------------------------------------------------------------------------
 
 (defmethod complete-links ((new-graph basic-graph) 
                            (old-graph basic-graph))
@@ -54,7 +52,6 @@
                                            :value (value edge)
                                            :edge-type edge-type))))))))))
 
-;;; ---------------------------------------------------------------------------
 
 (defmethod make-filtered-graph ((old-graph basic-graph)
                                 test-fn
@@ -84,11 +81,11 @@
        (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))
-  (declare (ignore depth new-graph))
+  (declare (ignore depth new-graph)
+	   (dynamic-extent args))
   (apply #'make-filtered-graph
 	 graph
 	 #'(lambda (v)
@@ -96,9 +93,7 @@
 	 :graph-completion-method :complete-closure-with-links
 	 args))
 
-;;; ---------------------------------------------------------------------------
 ;;; for completeness 
-;;; ---------------------------------------------------------------------------
 
 (defmethod make-graph-from-vertexes ((vertex-list list))
   (bind ((edges-to-keep nil)