Commit d2460719 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

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.
parent 6dffb55c
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment