From 74f4300aa055d550dd78dba7d8c693db2e0ccee8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Thu, 23 Mar 2017 18:07:57 +0100 Subject: [PATCH] run-program: arg-prep: add informative comment --- src/lsp/process.lsp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp index 46d787b84..04f23b502 100644 --- a/src/lsp/process.lsp +++ b/src/lsp/process.lsp @@ -107,7 +107,13 @@ (apply #'open which :external-format external-format args)) ((eql which nil) (null-stream (getf args :direction))) - ((or (eql which :stream) (streamp which)) + #+(and (or) clos-streams threads) + ((and (streamp which) + (null (typep which 'ext:ansi-stream))) + #| Here we may want to return `:stream' and spawn + thread to handle data at runtime to fd. |#) + ((or (eql which :stream) + (streamp which)) which) ;; signal error as early as possible (T (error "Invalid ~S argument to EXT:RUN-PROGRAM" which))))