;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))

(in-package :org-ckons-session)

(defclass session-object ()
  ((*session-key :initarg :*session-key
                 :initform (error 'org-ckons-condition::handled-error :text "Subclasses of `session-object' must supply an initform for the *SESSION-KEY slot.")
                 :accessor *session-key
                 :documentation "The key to the user_session_objects table."))
  (:documentation "Superclass for all session objects.
`session-object' is involved in multiple inheritance. Every
`session-object' is also a `record'. It must have a `*where-expresion'
of id = ~a."))

(defmethod sanitize-json ((session-object session-object))
  (setf (*session-key session-object) nil)
  (call-next-method))