session.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

;;;; session.lisp

(in-package :vampire)

;;; SESSION CLASS 

(defclass/bknr session (keyed)
  ((user :std (error "Sessions must be associated with users."))))

(defun make-session (user)
  (with-transaction ()
    (make-instance 'session :user user)))

;;; SESSION PARAMETER KEYS

(defparameter +session-key+ "vampire-session-key"
  "Stored in the browser's local storage")