Add: kitchensink example

1 files changed, 5 insertions, 1 deletions

diff --git a/src/protocol.lisp b/src/protocol.lisp
index d25aa22..300195f 100644
--- a/src/protocol.lisp
+++ b/src/protocol.lisp
@@ -153,8 +153,12 @@ AUTHORIZE while handling endpoint-class instance EP."
   "Redirect to URL."
   (http:redirect url :code http:+http-see-other+))
 
-(defun redirect-to (class &rest kwargs)
+(defun endpoint-redirect (class &rest kwargs)
   "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)))
+
+(defun get-cookie (name)
+  "Returns the cookie with name NAME the actively"
+  (http:cookie-in name))