(in-package :ritherdon-archive/models)

(defclass user ()
  ((username
    :accessor username
    :initarg :username
    :initform nil
    :type (or string null)
    :col-type :text)
  
  (display-name
    :accessor display-name
    :initarg :display-name
    :initform nil
    :type (or string null)
    :col-type :text)

  (password
    :accessor password
    :initarg :password
    :initform nil
    :type (or string null)
    :col-type :text))

  (:metaclass mito:dao-table-class)  
  (:documentation "Account information for users to log-in to the website.."))