From 7fd97549d66f3fdeefa0ce304ce925af2e1e0bd6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sat, 25 May 2019 17:15:28 +0200
Subject: [PATCH] run-program: unwrap synonym-streams when processing the
 stream

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

diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp
index 7dea1e7a3..de75358e2 100644
--- a/src/lsp/process.lsp
+++ b/src/lsp/process.lsp
@@ -124,6 +124,8 @@
   (when (eql error t) (setf error *error-output*))
 
   (labels ((process-stream (which &rest args)
+             (si:while (typep which 'synonym-stream)
+               (setf which (symbol-value (synonym-stream-symbol which))))
              (cond ((null which)
                     (null-stream (getf args :direction)))
                    ((or (stringp which)