12 lines
310 B
Common Lisp
12 lines
310 B
Common Lisp
;;; cl-scopes/storage/tracking.lisp
|
|
|
|
;;;; A simple generic (SQL-based) storage for tracks, messages, and other stuff.
|
|
|
|
(in-package :scopes/storage)
|
|
|
|
(defclass track () (
|
|
(head)
|
|
(time-stamp :reader time-stamp :accessor time-stamp!)
|
|
(data :accessor data)
|
|
(container :initarg :container :initform nil)))
|
|
|