diff options
Diffstat (limited to 'journal-content.lisp')
| -rw-r--r-- | journal-content.lisp | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/journal-content.lisp b/journal-content.lisp index 6529b57..92c5d6c 100644 --- a/journal-content.lisp +++ b/journal-content.lisp @@ -79,17 +79,17 @@ :initarg :id) (entry-id :type integer :db-constraints :not-null - :accessor id-of + :accessor entry-id-of :initarg :entry-id) (entry :db-kind :join :db-constraints :not-null :accessor entry-of :initarg :entries - :initform '() :db-info (:join-class journal-entry :home-key entry-id :foreign-key id - :set nil)) + :set nil + :retrieval :immediate)) (uuid :type (string 36) :db-constraints :not-null :accessor uuid-of @@ -114,7 +114,19 @@ (website :type string :accessor website-of :initarg :website - :initform nil))) + :initform nil) + (spam-p :type boolean + :accessor spamp + :initarg :spamp + :initform :spamp) + (submitter-ip :type string + :db-constraints :not-null + :accessor submitter-ip + :initarg :submitter-ip) + (submitter-user-agent :type string + :db-constraints :not-null + :accessor submitter-user-agent + :initarg :submitter-user-agent))) (clsql:def-view-class journal-category () |