19 lines
650 B
Common Lisp
19 lines
650 B
Common Lisp
;;;; cl-scopes/storage/msglog - storing message data in a SQL database
|
|
|
|
(defpackage :scopes/storage/msglog
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:message :scopes/core/message)
|
|
(:storage :scopes/storage)
|
|
(:tracking :scopes/storage/tracking))
|
|
(:export #:make-container #:save))
|
|
|
|
(in-package :scopes/storage/msglog)
|
|
|
|
(defclass pmsg (message:message tracking:track) ())
|
|
|
|
(defun make-container (storage)
|
|
(make-instance 'tracking:container
|
|
:item-class 'pmsg
|
|
:table-name :messages
|
|
:indexes '((domain action class item))
|
|
:storage storage))
|