From dc08271c3e110e93fbf0702baab5bb9b5b320a8f Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Wed, 16 May 2012 19:41:36 -0400 Subject: [PATCH] Actually handle errors kind of correctly. --- run.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/run.lisp b/run.lisp index b4400db..81b35c7 100644 --- a/run.lisp +++ b/run.lisp @@ -68,11 +68,11 @@ (labels ((process-time () (if time (time (process-command)) (process-command))) (process-command () - (or - (run-process-spec - cmd - :ignore-error-status t :output output :host host) - (error-behaviour on-error)))) + (handler-case + (run-process-spec + cmd + :ignore-error-status nil :output output :host host) + (t () (error-behaviour on-error))))) (when show (format *trace-output* "; ~A~%" (print-process-spec cmd))) (process-time))) -- GitLab