initial commit

1 files changed, 27 insertions, 0 deletions

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."))
+