Expose cookies-in

gigamonkey · Jan 12, 2012 · f98fecb · f98fecb
1 parent 7598c86
commit f98fecb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/api.lisp b/api.lisp
@@ -340,7 +340,7 @@ TIME."
   "Get the value of the cookie with the given name sent by the client
 or NIL if no such cookie was sent."
   (when-let (cookie (cdr (assoc name (cookies-in request) :test #'string=)))
-    (slot-value cookie 'value)))
+    cookie))
 
 (defun set-cookie (name request &key (value "") expires path domain secure http-only)
   "Set a cookie to be sent with the reply."

diff --git a/packages.lisp b/packages.lisp
@@ -105,6 +105,7 @@
 
    ;; Incoming cookies
    :cookie-value
+   :cookies-in
 
    ;; Control the response
    :send-headers