Fix the log-filename when operating from the command line.

This commit is contained in:
Dimitri Fontaine 2014-01-15 22:48:45 +01:00
parent 6ccb1871f5
commit aa49e8eec2

View File

@ -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