populate user class.

This should have been in the previous commit. I forgot to add it.

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.."))