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