From 75926d0ed50473efc106fa83231c862063d0f0c3 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 27 Oct 2022 13:13:21 -0500 Subject: Add: logging in with pw --- session.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'session.lisp') 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" -- cgit v1.2.3