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

2.0.3: use error, not signal, to re-signal errors from run-program.

parent 7f006053
......@@ -2,7 +2,7 @@
(defsystem "inferior-shell"
:description "spawn local or remote processes and shell pipes"
:version "2.0.2"
:version "2.0.3"
:defsystem-depends-on (:asdf #-asdf3 "uiop")
:depends-on ((:version #+asdf3 "asdf" #-asdf3 "uiop" "3.0.3") ; input and error-output redirection
#+sbcl "sb-posix"
......@@ -55,7 +55,7 @@
&key time show host (on-error t)
"run command CMD"
(when (eq on-error t) (setf on-error 'signal))
(when (eq on-error t) (setf on-error 'error))
(when show
(format *trace-output* "; ~A~%" (print-process-spec cmd)))
(flet ((run-it ()
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