Skip to content
Snippets Groups Projects
Commit dc08271c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Actually handle errors kind of correctly.

parent acb9f8bb
No related branches found
No related tags found
No related merge requests found
...@@ -68,11 +68,11 @@ ...@@ -68,11 +68,11 @@
(labels ((process-time () (labels ((process-time ()
(if time (time (process-command)) (process-command))) (if time (time (process-command)) (process-command)))
(process-command () (process-command ()
(or (handler-case
(run-process-spec (run-process-spec
cmd cmd
:ignore-error-status t :output output :host host) :ignore-error-status nil :output output :host host)
(error-behaviour on-error)))) (t () (error-behaviour on-error)))))
(when show (when show
(format *trace-output* "; ~A~%" (print-process-spec cmd))) (format *trace-output* "; ~A~%" (print-process-spec cmd)))
(process-time))) (process-time)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment