diff --git a/src/models/user.lisp b/src/models/user.lisp new file mode 100644 index 0000000..d531693 --- /dev/null +++ b/src/models/user.lisp @@ -0,0 +1,26 @@ +(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.."))