mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

external-process-status: take into account other states

Browse source
This commit is contained in:
Daniel Kochmański 2017-03-23 14:06:16 +01:00
parent 2991c8f27e
commit 3cbede6606
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/process.lsp
View file

@ -47,7 +47,7 @@
(defun external-process-status (external-process)
(let ((status (external-process-%status external-process)))
(if (eq status :running)
(if (member status (:stopped :resumed :running))
(ext:external-process-wait external-process nil)
(values status (external-process-%code external-process)))))