From 2b2ef967ef222e451a907c706271aee333c17296 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 17 Feb 2017 18:31:36 +0100
Subject: [PATCH] run-program: don't modify command

---
 src/lsp/process.lsp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp
index cfaaba3ae..83a0583b2 100644
--- a/src/lsp/process.lsp
+++ b/src/lsp/process.lsp
@@ -104,9 +104,8 @@
                                     :direction :output
                                     :if-exists if-error-exists)))
 
-    (let* ((args (prepare-args (cons command argv)))
-           (progname (car args)))
-      (si:run-program-internal progname args
+    (let* ((args (prepare-args (cons command argv))))
+      (si:run-program-internal command args
                                input output error
                                wait environ external-format))))