From f9ca15af8b2f36d80c2edccd81e1a54d7ffe58a6 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Wed, 16 Feb 2022 14:19:28 -0600
Subject: replaced setf response-cookie with set-response-cookie

---
 lazybones-hunchentoot.lisp | 18 +++++++++++++-----
 package.lisp               |  1 +
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/lazybones-hunchentoot.lisp b/lazybones-hunchentoot.lisp
index be3e009..f404eb6 100644
--- a/lazybones-hunchentoot.lisp
+++ b/lazybones-hunchentoot.lisp
@@ -228,11 +228,19 @@ the value of the Content-Type request header."
   "Access the cookie with NAME in the response object."
   (h:cookie-out name response))
 
-(defun (setf response-cookie) (value name &optional (response lzb:*response*))
-  (a:if-let (extant-cookie (assoc name (h:cookies-out response) :test #'string=))
-      (setf (cdr extant-cookie) value)
-      (cadar (setf (h:cookies-out response)
-                   (cons (cons name value) (h:cookies-out response))))))
+(defun set-response-cookie
+    (name value
+     &key expires max-age path domain secure http-only (response lzb:*response*))
+  "Sets the response cookie"
+  (h:set-cookie name
+                :value value
+                :expires expires
+                :max-age max-age
+                :path path
+                :domain domain
+                :secure secure
+                :http-only http-only
+                :reply response))
 
 (defun http-respond (content &optional (code 200))
   "Final step preparing response before backend does the rest. For
diff --git a/package.lisp b/package.lisp
index 35ef7ab..934dcc3 100644
--- a/package.lisp
+++ b/package.lisp
@@ -20,6 +20,7 @@
    ;; resposne functions
    #:response-header
    #:response-code
+   #:set-response-cookie
    #:response-cookie
    #:http-respond
    ;; server functions
-- 
cgit v1.2.3