diff --git a/asdf.lisp b/asdf.lisp index 876823cd5e955d138f79725498319864121efbab..1e0ff5071e73200cbc5cb0e4728a9afeed31dfb9 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 37c63eb8684e2ebaaf865cdbac11f5ae2126ab2a..b2d0a8fd4a0fe58905941f67d6e16ba0db03db02 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