(in-package :inangulis.user)
 
 (defclass user () 
   ((id :col-type serial)
    (uid :initarg :uid :col-type text)
    (email :initarg :email :col-type text)
    (name :initarg :name :col-type text)
    (moderator :initarg :moderator :initform nil :col-type bool))
   (:metaclass pomo:dao-class)
   (:keys id))
 
 (pomo:deftable user
   (pomo:!dao-def))
 
 (defun user-alist (user)
   (with-slots (email name moderator) user
     (pairlis '("name" "email" "moderator")
              `(,name  ,email  ,moderator))))