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

external-process-wait: be exact with case

Browse source 
Sanity check.
This commit is contained in:
Daniel Kochmański 2017-02-20 13:03:01 +01:00
parent 03bd29426b
commit 772262f1c6
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lsp/process.lsp
View file

@ -61,7 +61,7 @@
(let ((pid (external-process-pid process)))
(when pid
(multiple-value-bind (status code pid) (si:waitpid pid wait)
(case status
(ecase status
((:exited :signaled :abort :error)
(with-active-processes-lock
(setf *active-processes* (delete process *active-processes*)
@ -70,7 +70,8 @@
(external-process-%code process) code)))
((:stopped :running)
(setf (external-process-%status process) status
(external-process-%code process) code))))))
(external-process-%code process) code))
((nil) #| wait was nil and process didn't change |#)))))
(values (external-process-%status process)
(external-process-%code process)))