blob: afaa28be149cdf4b98b605f4e73cd4529cc07cc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package :woodriverlessons)
(defclass user-session (postgres-record)
((id :initarg :id
:initform nil
:accessor id)
(sessionid :initarg :sessionid
:initform nil
:accessor sessionid)
(datetime :initarg :datetime
:initform nil
:accessor datetime)
(*table :initform "auth.user_sessions")
(*where-expression :initform "id = ~a"))
(:documentation "Holds the data for a auth.user_session record."))
(defclass user-session-object (postgres-record)
((id :initarg :id
:initform nil
:accessor id)
(user_session_id :initarg :user_session_id
:initform nil
:accessor user_session_id)
(session_key :initarg :session_key
:initform nil
:accessor session_key)
(serialization :initarg :serialization
:initform nil
:accessor serialization)
(*table :initform "auth.user_session_objects")
(*where-expression :initform "id = ~a"))
(:documentation "Holds the data for a auth.user_session record."))
|
