From a26791e9fb75f0d8185f5e8565aba4a3272ecfff Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 17 Feb 2017 18:59:39 +0100
Subject: [PATCH] run-program: on windows argv is a string (no car)

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

diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp
index 1692038d2..4cc006262 100644
--- a/src/lsp/process.lsp
+++ b/src/lsp/process.lsp
@@ -102,8 +102,9 @@
                                     :direction :output
                                     :if-exists if-error-exists)))
 
-    (let ((args (prepare-args (cons command argv))))
-      (si:run-program-internal (car args) args
+    (let ((progname (si:copy-to-simple-base-string command))
+          (args (prepare-args (cons command argv))))
+      (si:run-program-internal progname args
                                input output error
                                wait environ external-format))))