clean up all the current warnings

[cl-graph.git] / dev / subgraph-containing.lisp

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