X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=dev%2Fsubgraph-containing.lisp;h=492f61a1ab57b2926a01129040efc0fdec3c82c6;hb=6dae43e4ee011ea0ef4fedeae7c2a492823a9812;hp=813d577fa794db1304b63252bd08253d6971c9be;hpb=80af22e39e0787769c4c9f455bb1d2c95e2343b5;p=cl-graph.git

diff --git a/dev/subgraph-containing.lisp b/dev/subgraph-containing.lisp
index 813d577..492f61a 100644
--- a/dev/subgraph-containing.lisp
+++ b/dev/subgraph-containing.lisp
@@ -84,7 +84,8 @@
 
 (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)