hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-05 09:21: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))))
(defun convert-to-middleware-form (mw)
(let ((app (gensym "APP")))
(let ((app (gensym "APP"))
(res-mw (gensym "RES-MW")))
(typecase mw
(null)
(function mw)
@ -64,10 +65,9 @@
(typecase ,res
(keyword (find-middleware ,res))
(cons (if (keywordp (car ,res))
(eval
`(lambda (,',app)
(apply (find-middleware (car ',,res)) ,',app
(cdr ',,res))))
(let ((,res-mw (find-middleware (car ,res))))
(lambda (,app)
(apply ,res-mw ,app (cdr ,res))))
,res))
(otherwise ,res))))))
(otherwise mw)))