Arrange to error out when given non-existing file names in the command line.

This commit is contained in:
Dimitri Fontaine 2013-11-23 21:36:22 +01:00
parent 4bc4cc53a7
commit c482015248

View File

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