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