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

Fixed typo in ext:external-process-status

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-01-25 21:26:19 +01:00
parent 183cdb1d94
commit 6ef5f702da
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

@ -23,6 +23,6 @@
(defun external-process-status (external-process)
(let ((status (external-process-%status external-process)))
(when (eq status :running)
(ext:external-process-wait external-process nil)
(values status (external-process-%code external-process)))))
(if (eq status :running)
(ext:external-process-wait external-process nil)
(values status (external-process-%code external-process)))))