blob: 77a3bfee58fb20470132904a88db192238ae4d58 (
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-cookie+ "session"
"Cookie name")
|
