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

Merge pull request #1 from hiyosi/master

Browse source 
:method arguments in 'destructuring-bind' macro was bind to nil.
This commit is contained in:
Eitaro Fukamachi 2015-02-10 09:48:36 +09:00
commit 24350cef2d
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/myway.lisp
View file

@ -61,5 +61,5 @@
(defun to-app (mapper) (defun to-app (mapper)
(lambda (env) (lambda (env)
(let ((*env* env)) (let ((*env* env))
(destructuring-bind (&key method path-info &allow-other-keys) env (destructuring-bind (&key request-method path-info &allow-other-keys) env
(dispatch mapper path-info :method method))))) (dispatch mapper path-info :method request-method)))))

2
t/myway.lisp
View file

@ -40,7 +40,7 @@
(is (dispatch *mapper* "/new" :method :GET) "new") (is (dispatch *mapper* "/new" :method :GET) "new")
(is (funcall (to-app *mapper*) (is (funcall (to-app *mapper*)
'(:method :GET :path-info "/")) '(:request-method :GET :path-info "/"))
"Hello, World!") "Hello, World!")
(connect *mapper* "/id/:n" (connect *mapper* "/id/:n"