add home-page slot to site-settings class.

src/models/site-settings.lisp

@@ -11,9 +11,17 @@
 (defclass site-settings ()
   ((enable-sign-up
     :documentation "Allow non-registered users to create accounts."
-    :col-type :integer
+    :col-type (or :integer :null)
     :initarg :enable-sign-up
     :initform +true+ ; SQLite: 0 -> false 1 -> true.
-    :accessor enable-sign-up-p))
+    :accessor enable-sign-up-p)
+
+   (home-page
+    :documentation "The page (found in /storage) which is rendered for '/' defroute."
+    :col-type (or :text :null)
+    :initarg :home-page
+    :initform "default-home"
+    :accessor home-page-of))
+  
   (:documentation "Model used to track the site-wide settings -- stored in the database.")
   (:metaclass mito:dao-table-class))