From c4820152483353f3c38ff51eea8dab4500ea2a76 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sat, 23 Nov 2013 21:36:22 +0100 Subject: [PATCH] Arrange to error out when given non-existing file names in the command line. --- src/main.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/main.lisp b/src/main.lisp index d6b4567..aaa10e4 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -168,7 +168,8 @@ (log-message :fatal "We have a situation here.") (print-backtrace condition debug *standard-output*)))) - (run-commands filename :start-logger nil) + (run-commands (fad:canonical-pathname filename) + :start-logger nil) (format t "~&")) (condition (c)