diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-27 13:13:21 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-27 13:13:21 -0500 |
| commit | 75926d0ed50473efc106fa83231c862063d0f0c3 (patch) | |
| tree | b0f2c20d47670868a7b8524c69a8ed499b64de3d /session.lisp | |
| parent | fda05f8ce638987d332c8aff4043afa74e52523f (diff) | |
Add: logging in with pw
Diffstat (limited to 'session.lisp')
| -rw-r--r-- | session.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/session.lisp b/session.lisp index 0ad10c2..6d36bec 100644 --- a/session.lisp +++ b/session.lisp @@ -7,6 +7,10 @@ (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" |