>From 4842f93d9c09a4b5b31d55db0289ba96fad352ee Mon Sep 17 00:00:00 2001
From: Robert P. Goldman <rpgoldman@real-time.com>
Date: Fri, 21 Oct 2011 14:54:48 -0500
Subject: [PATCH] Modify to reflect the fact that ECL cannot capture STDERR.

---
 test/run-shell-command-test.script |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/run-shell-command-test.script b/test/run-shell-command-test.script
index c1c1d19..a485e62 100644
--- a/test/run-shell-command-test.script
+++ b/test/run-shell-command-test.script
@@ -12,7 +12,7 @@
    (unless (zerop (asdf:run-shell-command "./good-shell-command"))
      (error "Failed to capture exit status indicating shell command failure."))
    ;; make sure we capture stderr from ASDF:RUN-SHELL-COMMAND to *VERBOSE-OUT*
-   #-clisp
+   #-(or clisp ecl)
    (let ((string
           (with-output-to-string (str)
             (let ((asdf:*verbose-out* str))
@@ -27,7 +27,7 @@
              (error "Failed to capture output to standard error using *VERBOSE-OUT*"))))
    ;; make sure we /don't/ capture stderr from ASDF:RUN-SHELL-COMMAND when
    ;; *VERBOSE-OUT* is NIL
-   #-clisp
+   #-(or clisp ecl)
    (let ((string
           (with-output-to-string (str)
             (let ((*error-output* str))
-- 
1.7.3.5

