From 76a3b04f1cd436804f101e5404dcf5a82c3639b0 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 16 May 2021 15:57:48 -0700 Subject: require debug level 4 for output for every RUN & MRUN Signed-off-by: Sean Whitton --- src/connection.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index 81d39d5..508f775 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -334,7 +334,7 @@ case return only the exit code." (%process-run-args (with-remote-temporary-file (stdout) (setq cmd (format nil "( ~A ) >~A" cmd stdout)) - (informat 3 "~&RUN ~A" cmd) + (informat 4 "~&RUN ~A" cmd) (multiple-value-bind (err exit) (connection-run *connection* cmd input) (let ((out (readfile stdout))) @@ -357,7 +357,7 @@ Some :POSIX properties which want to run a lot of commands and don't need to separate the streams might want to use this too, but usually it is best to start with RUN." (%process-run-args - (informat 3 "~&MRUN ~A" cmd) + (informat 4 "~&MRUN ~A" cmd) (multiple-value-bind (out exit) (connection-run *connection* cmd input) (when inform (informat 1 "~& % ~A~%~{ ~A~%~}" cmd (lines out))) -- cgit v1.2.3