From eac535ba1abf3246461009136b3cc0ddcd6c959d Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:20 -0500 Subject: [PATCH] Redirecting error stream to output. --- git-repl.cl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/git-repl.cl b/git-repl.cl index 9cb1650..65e8d20 100644 --- a/git-repl.cl +++ b/git-repl.cl @@ -42,7 +42,7 @@ (format nil "\"~a\"" text)) (defun run-command (command &key (list-output nil)) - (let ((output (uiop:run-program command :ignore-error-status t :force-shell t :input nil :output :string))) + (let ((output (uiop:run-program command :ignore-error-status t :force-shell t :input nil :output :string :error-output :output))) (if list-output (remove-if #'str:emptyp (mapcar #'str:trim (str:lines output :omit-nulls t))) output))) -- 2.20.1