From 3da53b617e192c6d1b3ceb76136522b20289963c Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Fri, 29 Sep 2017 18:36:14 +0200 Subject: [PATCH] cosmetic: don't use accessors for just-set slots --- src/lsp/process.lsp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp index ca2213b55..d1bc2e5a6 100644 --- a/src/lsp/process.lsp +++ b/src/lsp/process.lsp @@ -197,8 +197,7 @@ (external-process-output process) stream-read (external-process-error-stream process) stream-error) - (values (make-two-way-stream (external-process-output process) - (external-process-input process)) + (values (make-two-way-stream stream-read stream-write) (if wait (nth-value 1 (si:external-process-wait process t)) (ext:set-finalizer process #'finalize-external-process))