Commit 9198e77f authored by Elias Pipping's avatar Elias Pipping

Bug fix: Have %wait-process-result fail on CLISP

On platforms where %wait-process-result is not supported,
an error is supposed to be raised. Since the error is only
raised when the process-info field 'process' is non-nil, on
CLISP (where 'process' is always NIL), the function instead
behaves like a dummy.
parent 242b5506
......@@ -582,9 +582,9 @@ It returns a process-info object."
(defun %wait-process-result (process-info)
(or (slot-value process-info 'exit-code)
(let ((process (slot-value process-info 'process)))
#-(or allegro clasp clozure cmucl ecl lispworks mkcl sbcl scl)
(error "~S not implemented" '%wait-process)
(when process
#-(or allegro clasp clozure cmucl ecl lispworks mkcl sbcl scl)
(error "~S not implemented" '%wait-process)
;; 1- wait
#+clozure (ccl::external-process-wait process)
#+(or cmucl scl) (ext:process-wait process)
......
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