(defpackage :inangulis.blog
   (:use :cl :anaphora :alexandria :inangulis.web))
 
 (in-package :inangulis.blog)
 
 (defclass blog-post ()
   ((id :col-type serial)
    (title :col-type text)
    (author :col-type int)
    (name :initarg :name :col-type text)
    (moderator :initarg :moderator :initform nil :col-type bool))
   (:metaclass dao-class)
   (:keys id))
 
 (define-controller)