From e30ee019294e2abbbd3644b73e4327ae17df4392 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 27 May 2024 14:52:07 -0600 Subject: gallery --- lisp/sql/gallery.lisp | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 lisp/sql/gallery.lisp (limited to 'lisp/sql/gallery.lisp') diff --git a/lisp/sql/gallery.lisp b/lisp/sql/gallery.lisp new file mode 100644 index 0000000..2f4231d --- /dev/null +++ b/lisp/sql/gallery.lisp @@ -0,0 +1,30 @@ +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +(declaim (optimize (speed 0) (safety 3) (debug 3))) + +(in-package :woodriverlessons) + +(defclass gallery (postgres-record) + ((id :initarg :id + :initform nil + :accessor id) + (description :initarg :description + :initform nil + :accessor description) + (filename :initarg :filename + :initform nil + :accessor filename) + (mime_type :initarg :mime_type + :initform nil + :accessor mime_type) + (content :initarg :content + :initform nil + :accessor content) + (created :initarg :created + :initform nil + :accessor created) + (modified :initarg :modified + :initform nil + :accessor modified) + (*table :initform "general.gallery") + (*where-expression :initform "id = ~a")) + (:documentation "Holds the data for a general.gallery type.")) -- cgit v1.3