mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic: run-program: use plusp predicate instead of (< 0 arg)

Browse source
This commit is contained in:
Daniel Kochmanski 2017-09-29 12:13:10 +02:00
parent abdd5f3b5d
commit b13abe0cd7
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/process.lsp
View file

@ -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