hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-06 01:41:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Delete eval.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-03-22 11:18:18 +09:00
parent adba550711
commit 5347556b93
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/builder.lisp
View file

@ -33,7 +33,8 @@
:clack.middleware)))) :clack.middleware))))
(defun convert-to-middleware-form (mw) (defun convert-to-middleware-form (mw)
(let ((app (gensym "APP"))) (let ((app (gensym "APP"))
(res-mw (gensym "RES-MW")))
(typecase mw (typecase mw
(null) (null)
(function mw) (function mw)
@ -64,10 +65,9 @@
(typecase ,res (typecase ,res
(keyword (find-middleware ,res)) (keyword (find-middleware ,res))
(cons (if (keywordp (car ,res)) (cons (if (keywordp (car ,res))
(eval (let ((,res-mw (find-middleware (car ,res))))
`(lambda (,',app) (lambda (,app)
(apply (find-middleware (car ',,res)) ,',app (apply ,res-mw ,app (cdr ,res))))
(cdr ',,res))))
,res)) ,res))
(otherwise ,res)))))) (otherwise ,res))))))
(otherwise mw))) (otherwise mw)))