From 21f670894a14dd000229cc8fed4c0bc10ce7d37d Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Mon, 9 Oct 2017 10:15:21 +0200 Subject: [PATCH] run-program: fix typo --- src/lsp/process.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp index 7e2d4063b..dc7d8a473 100644 --- a/src/lsp/process.lsp +++ b/src/lsp/process.lsp @@ -109,9 +109,9 @@ (external-format :default) #+windows (escape-arguments t)) - (when (eql input t) (setf input *standard-input*)) - (when (eql output t) (setf input *standard-output*)) - (when (eql error t) (setf input *error-output*)) + (when (eql input t) (setf input *standard-input*)) + (when (eql output t) (setf output *standard-output*)) + (when (eql error t) (setf error *error-output*)) (labels ((process-stream (which &rest args) (cond ((null which)