From c33aa8bd4e448c831362767de57a8f33bdadd09a Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 30 May 2021 21:57:13 -0600 Subject: initial commit --- src/generics.lisp | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 src/generics.lisp (limited to 'src/generics.lisp') diff --git a/src/generics.lisp b/src/generics.lisp new file mode 100644 index 0000000..3e96641 --- /dev/null +++ b/src/generics.lisp @@ -0,0 +1,27 @@ +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +(declaim (optimize (speed 0) (safety 3) (debug 3))) + +(in-package :org-ckons-session) + +(defgeneric populate-headers (header-register headers) + (:documentation "Copies the headers defined in the `headers' list +into `header-register'.")) + +(defgeneric ship-headers (header-register) + (:documentation "Sends the data in `header-register' out to the +reply.")) + +(defgeneric headers-get-cookie (header-register name) + (:documentation "Returns two values: the value of the cookie and a +boolean indicating whether the cookie exists in the hashtable.")) + +(defgeneric headers-set-cookie (header-register cookie) + (:documentation "Sets a `cookie' object into `header-reigster'.")) + +(defgeneric get-sessionid-cookie (header-register) + (:documentation "Gets the sessionid cookie from the +`header-register'.")) + +(defgeneric set-sessionid-cookie (header-register sessionid) + (:documentation "Registers the sessionid cookie.")) + -- cgit v1.3