diff --git a/inferior-shell.asd b/inferior-shell.asd index 09b5348160609c087288377984f63b7d29dd4079..3f89615d82ea0ba8e306304641b85819ce7ee01d 100644 --- a/inferior-shell.asd +++ b/inferior-shell.asd @@ -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" diff --git a/run.lisp b/run.lisp index 3019666654d9805a3f50b9ca83eee1daa29ba476..019b06248b208d4ad15ebea22f91d5a6b65b4d09 100644 --- a/run.lisp +++ b/run.lisp @@ -55,7 +55,7 @@ &key time show host (on-error t) &allow-other-keys) "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 ()