From 7082f0a824d30f99a6d3daf24814d6393ca68cb6 Mon Sep 17 00:00:00 2001
From: Eitaro Fukamachi <e.arrows@gmail.com>
Date: Fri, 14 Nov 2014 12:38:05 +0900
Subject: [PATCH] Prevent compile-time warnings.

---
 src/myway.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/myway.lisp b/src/myway.lisp
index fd630de..13e8505 100644
--- a/src/myway.lisp
+++ b/src/myway.lisp
@@ -49,6 +49,7 @@
                             :handler fn)))
 
 (defun find-route (mapper url &rest args &key method regexp name (route-class 'route) &allow-other-keys)
+  (declare (ignore method regexp name))
   (car
    (member-route mapper
                  (apply #'make-instance route-class