From d24607193745155e108c424e20a289c1a907f6bf Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sat, 27 Feb 2010 22:07:10 -0500
Subject: [PATCH] Fix two bugs for Lispworks. One is Debian Bug#457919 found
 and fixed by Chun TIAN (binghe). The other is a bug in the test code found by
 David McClain.

---
 asdf.lisp                | 2 ++
 test/script-support.lisp | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/asdf.lisp b/asdf.lisp
index 876823cd5..1e0ff5071 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -2003,6 +2003,8 @@ output to `*verbose-out*`.  Returns the shell's exit code."
     (system:call-system-showing-output
      command
      :shell-type "/bin/sh"
+     :show-cmd nil
+     :prefix ""
      :output-stream *verbose-out*)
 
     #+clisp                     ;XXX not exactly *verbose-out*, I know
diff --git a/test/script-support.lisp b/test/script-support.lisp
index 37c63eb86..b2d0a8fd4 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -23,7 +23,7 @@
   #+gcl
   (lisp:quit code)
   #+lispworks
-  (lispworks:quit :status code :confirm nil :return nil :ignore-errors-p t)
+  (lispworks:quit :status return :confirm nil :return nil :ignore-errors-p t)
   #+(or openmcl mcl)
   (ccl::quit return)
   #+sbcl
-- 
GitLab