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