Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
(defsystem "inferior-shell" (defsystem "inferior-shell"
:description "spawn local or remote processes and shell pipes" :description "spawn local or remote processes and shell pipes"
:version "2.0.2" :version "2.0.3"
:defsystem-depends-on (:asdf #-asdf3 "uiop") :defsystem-depends-on (:asdf #-asdf3 "uiop")
:depends-on ((:version #+asdf3 "asdf" #-asdf3 "uiop" "3.0.3") ; input and error-output redirection :depends-on ((:version #+asdf3 "asdf" #-asdf3 "uiop" "3.0.3") ; input and error-output redirection
#+sbcl "sb-posix" #+sbcl "sb-posix"
......
...@@ -55,7 +55,7 @@ ...@@ -55,7 +55,7 @@
&key time show host (on-error t) &key time show host (on-error t)
&allow-other-keys) &allow-other-keys)
"run command CMD" "run command CMD"
(when (eq on-error t) (setf on-error 'signal)) (when (eq on-error t) (setf on-error 'error))
(when show (when show
(format *trace-output* "; ~A~%" (print-process-spec cmd))) (format *trace-output* "; ~A~%" (print-process-spec cmd)))
(flet ((run-it () (flet ((run-it ()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment