diff options
| -rw-r--r-- | src/protocol.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/protocol.lisp b/src/protocol.lisp index 3da16ec..cfee809 100644 --- a/src/protocol.lisp +++ b/src/protocol.lisp @@ -22,7 +22,7 @@ :initarg :note :type (or null string)) (status-code - :qreader status-code + :reader status-code :initform nil :initarg :status-code :type (or nil (integer 100 599)))) @@ -199,7 +199,7 @@ AUTHORIZE while handling endpoint-class instance EP." "Redirect to another endpoint. CLASS can be either a symbol or a class. KWARGS is a PLIST of keyword arguments supplied to the CLASS' route builder function." - (redirect (apply #'route-to class kwargs))) + (redirect (apply 'route-to class kwargs))) (defun get-cookie (name) "Returns the cookie with name NAME the actively" |