hiro/myway
1
0
Fork 0
mirror of https://github.com/vale981/myway synced 2025-03-05 09:51:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Prevent compile-time warnings.

Browse source
This commit is contained in:
Eitaro Fukamachi 2014-11-14 12:38:05 +09:00
parent a29c271f41
commit 7082f0a824
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/myway.lisp
View file

@ -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