From 3319b1f00ddbbbf4aa73719196e8a76858d3bb8f Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Fri, 18 May 2012 14:31:10 -0400
Subject: [PATCH] In run, only catch subprocess errors (as exported from recent
 xcvb-driver).

---
 run.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/run.lisp b/run.lisp
index 81b35c7..b828006 100644
--- a/run.lisp
+++ b/run.lisp
@@ -5,7 +5,7 @@
 (defvar *backend* :auto)
 
 ;;; TODO: instead support a magic :interactive directly in driver.lisp's run-program/
-;;; and/or add support for arbitrary input to said run-program/
+;;; and/or add support for arbitrary input (and error output?) to said run-program/
 (defun run-program/interactively (command &key ignore-error-status)
   #-(or clozure sbcl) (NIY 'run-program/interactively command ignore-error-status)
   #+(or clozure sbcl)
@@ -72,7 +72,7 @@
                  (run-process-spec
                   cmd
                   :ignore-error-status nil :output output :host host)
-               (t () (error-behaviour on-error)))))
+               (subprocess-error () (error-behaviour on-error)))))
     (when show
       (format *trace-output* "; ~A~%" (print-process-spec cmd)))
     (process-time)))
-- 
GitLab