diff of 35cb451cb1f86e3391c7df6540affd7d538639e6

35cb451cb1f86e3391c7df6540affd7d538639e6
diff --git a/src/model/settings.lisp b/src/model/settings.lisp
index 8eba5c1..7db6d3d 100644
--- a/src/model/settings.lisp
+++ b/src/model/settings.lisp
@@ -122,7 +122,12 @@ These changes are saved in murja's table `blog.Settings`."))
 
   (let ((*inside-defsetting?* t))
     `(let ((*inside-defsetting?* t))
-       ,@body
+       ,@(map 'list
+	      (lambda (config)
+		(destructuring-bind (name value . _) config
+		  (declare (ignore _))
+		  `(defsetting ,name ,value)))
+	      body)
        (create-settings))))
   
 
diff --git a/src/setting-definitions.lisp b/src/setting-definitions.lisp
index 1175d20..39327a2 100644
--- a/src/setting-definitions.lisp
+++ b/src/setting-definitions.lisp
@@ -8,14 +8,15 @@
 (named-readtables:in-readtable :murja.ps)
 
 (define-settings 
-  (defsetting time-format "dd.MM.yyyy HH:mm")
-  (defsetting recent-post-count 6)
-  (defsetting previously_label "Previously")
-  (defsetting domain "")
-  (defsetting blog-title "MURJA DEV")
-  (defsetting rss-title "-")
-  (defsetting rss-link "-")
-  (defsetting rss-description "MURJA DEV")
-  (defsetting rss-lang "fi")
-  (defsetting rss-email "-")
-  (defsetting page-size 23456))
+  (time-format "dd.MM.yyyy HH:mm")
+  (recent-post-count 6)
+  (previously_label "Previously")
+  (domain "")
+  (blog-title "MURJA DEV")
+  (rss-title "-")
+  (rss-link "-")
+  (rss-description "MURJA DEV")
+  (rss-lang "fi")
+  (rss-email "-")
+  (page-size 23456))
+