Work on launching scripts a bit

1 files changed, 8 insertions, 10 deletions

diff --git a/src/main.lisp b/src/main.lisp
index fa7fab0..e68ca40 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -20,26 +20,24 @@
 
 (enable-f-strings)
 
-(defvar *in-prod* t)
-
-(defmacro reporty ((evt) &body body)
-  `(cond
-     (*in-prod*
-      (handler-case (progn ,@body) ; lint:suppress redundant-progn
-        (error (err) (report-error ,evt err))))
-     (t ,@body)))
+(defvar *in-prod* nil)
 
 (defun main ()
-  (log:config :debug)
   (unwind-protect
        (progn
-         (conf:print-default #P"config.default.lisp")
          (conf:load-config #P"config.lisp")
          (log:info "Starting up ~A" (conf:bot-name))
          (main-with-config)
          nil)
     (log:info "Quitting!")))
 
+(defmacro reporty ((evt) &body body)
+  `(cond
+     (*in-prod*
+      (handler-case (progn ,@body) ; lint:suppress redundant-progn
+        (error (err) (report-error ,evt err))))
+     (t ,@body)))
+
 (defun main-with-config ()
   (unwind-protect
        (with-db (db (conf:db-path))