From a41f8ea6d3044c3785f9667778e88ff50f77f854 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Fri, 29 Aug 2014 23:19:01 +0200 Subject: [PATCH] Create root-dir when it does not exists, fix #35. --- src/main.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/main.lisp b/src/main.lisp index ca9b46a..a15bf2c 100644 --- 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)