Commit 6e47601dad423e6848aabea76253d0ddada76c3d

Thomas de Grivel 2015-05-27T18:01:51

Remove warnings

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/uri-template.lisp b/uri-template.lisp
index d67e274..ede16a9 100644
--- a/uri-template.lisp
+++ b/uri-template.lisp
@@ -430,6 +430,8 @@ URI-TEMPLATE."
       `(lambda (,string)
 	 (cl-ppcre:register-groups-bind ,vars
 	     (,(cl-ppcre:create-scanner regex) ,string)
+           (declare (ignorable ,@(mapcar (lambda (v) (uri-var (var-name v)))
+                                         vars)))
 	   ,@body)))))
 
 (defun compile-uri-template-matcher (template body)