Commit 37344362 authored by Elias Pipping's avatar Elias Pipping
Browse files

%process-status: Bug fix for MKCL

parent 4e8a7286
......@@ -292,11 +292,15 @@ argument to pass to the internal RUN-PROGRAM"
#-lispworks7+ :pid-exit-status
process :wait nil)
(%code-to-status exit-code signal-code))
#+mkcl (let ((status (mk-ext:process-status process))
(code (mk-ext:process-exit-code process)))
(if (stringp code)
(values :signaled (%mkcl-signal-to-number code))
(values status code)))
#+mkcl (let ((status (mk-ext:process-status process)))
(if (eq status :exited)
;; Only call mk-ext:process-exit-code when
;; necessary since it leads to another waitpid()
(let ((code (mk-ext:process-exit-code process)))
(if (stringp code)
(values :signaled (%mkcl-signal-to-number code))
(values :exited code)))
#+sbcl (let ((status (sb-ext:process-status process)))
(if (eq status :running)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment