From 4891bfd3882d4ecc84b8a6c6036bb668c916fbfe Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Tue, 24 Mar 2015 16:08:55 +0900 Subject: [PATCH] Delete otherwise clause because there's no possibility that any other types come as a middleware. --- src/builder.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/builder.lisp b/src/builder.lisp index 9a218cb..6ece485 100644 --- a/src/builder.lisp +++ b/src/builder.lisp @@ -35,7 +35,7 @@ (defun convert-to-middleware-form (mw) (let ((app (gensym "APP")) (res-mw (gensym "RES-MW"))) - (typecase mw + (etypecase mw (null) (function mw) (keyword `(find-middleware ,mw)) @@ -70,8 +70,7 @@ (apply ,res-mw ,app (cdr ,res)))) ,res)) (otherwise ,res)))))) - (otherwise mw))) - (otherwise mw)))) + (otherwise mw)))))) (defmacro builder (&rest app-or-middlewares) (let ((middlewares (butlast app-or-middlewares)))