gallery

1 files changed, 30 insertions, 0 deletions

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."))