From aa49e8eec21639e176207647e8a735ec5e3955ca Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Wed, 15 Jan 2014 22:48:45 +0100
Subject: [PATCH] Fix the log-filename when operating from the command line.

---
 src/main.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/main.lisp b/src/main.lisp
index aa007ba..6553dbd 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -137,7 +137,7 @@
 	;; Now process the arguments
 	(when arguments
 	  ;; Start the logs system
-	  (let ((*logfile*        (log-file-name logfile))
+	  (let ((*log-filename* (log-file-name logfile))
 		(*log-min-messages*
 		 (log-threshold log-min-messages
 				:quiet quiet :verbose verbose :debug debug))
@@ -147,7 +147,7 @@
 
             (with-monitor ()
               ;; tell the user where to look for interesting things
-              (log-message :log "Main logs in '~a'" *logfile*)
+              (log-message :log "Main logs in '~a'" *log-filename*)
               (log-message :log "Data errors in '~a'~%" *root-dir*)
 
               ;; process the files