blob: 6d704f7b091c46fd612e4474e21e3ef2f8328ab1 (
plain)
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")
|
