Create root-dir when it does not exists, fix #35.

dimitri · Aug 29, 2014 · a41f8ea · a41f8ea
1 parent 7065d26
commit a41f8ea
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/main.lisp b/src/main.lisp
@@ -159,10 +159,8 @@
 	;; output its data logs and reject files
         (let ((root-dir-truename (probe-file root-dir)))
           (if root-dir-truename
-              (progn
-                (setf *root-dir* (fad:pathname-as-directory root-dir-truename))
-                (mkdir-or-die *root-dir* debug))
-              (format t "FATAL: can't find root-dir: ~s~%" root-dir)))
+              (setf *root-dir* (fad:pathname-as-directory root-dir-truename))
+              (mkdir-or-die *root-dir* debug)))
 
 	;; Set parameters that come from the environement
 	(init-params-from-environment)