Move start.lisp to example

.gitignore

@@ -1,5 +1,6 @@
 config.lisp
 settings.lisp
+start.lisp
 chart.png
 db.sqlite*
 *.fasl

macros.lisp

@@ -137,12 +137,12 @@
         (scheduler (symbol-append name '-scheduler)))
     `(progn
        (defun ,name ()
-	 (unwind-protect
-	      (handler-case
-		  (let ((*random-state* (make-random-state t)))
-		    ,@body)
-		(error (e) (log:error "~A" e)))
-	   (dex:clear-connection-pool)))
+         (unwind-protect
+              (handler-case
+                  (let ((*random-state* (make-random-state t)))
+                    ,@body)
+                (error (e) (log:error "~A" e)))
+           (dex:clear-connection-pool)))
        (defun ,scheduler ()
          (clon:schedule-function
           ',name (clon:make-scheduler