From b13abe0cd755bb8f5e5a042d724bc639a29bd5cc Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Fri, 29 Sep 2017 12:13:10 +0200 Subject: [PATCH] cosmetic: run-program: use plusp predicate instead of (< 0 arg) --- src/lsp/process.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp index edd1fa941..91ee58095 100644 --- a/src/lsp/process.lsp +++ b/src/lsp/process.lsp @@ -164,13 +164,13 @@ (si:spawn-subprocess progname args environ process-input process-output process-error)) (let ((stream-write - (when (< 0 parent-write) + (when (plusp parent-write) (make-output-stream-from-fd progname parent-write external-format))) (stream-read - (when (< 0 parent-read) + (when (plusp parent-read) (make-input-stream-from-fd progname parent-read external-format))) (stream-error - (when (< 0 parent-error) + (when (plusp parent-error) (make-input-stream-from-fd progname parent-error external-format)))) (setf (external-process-pid process) pid