Skip to content
Snippets Groups Projects
Commit 9198e77f authored by Elias Pipping's avatar Elias Pipping
Browse files

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
No related branches found
No related tags found
No related merge requests found
...@@ -582,9 +582,9 @@ It returns a process-info object." ...@@ -582,9 +582,9 @@ It returns a process-info object."
(defun %wait-process-result (process-info) (defun %wait-process-result (process-info)
(or (slot-value process-info 'exit-code) (or (slot-value process-info 'exit-code)
(let ((process (slot-value process-info 'process))) (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 (when process
#-(or allegro clasp clozure cmucl ecl lispworks mkcl sbcl scl)
(error "~S not implemented" '%wait-process)
;; 1- wait ;; 1- wait
#+clozure (ccl::external-process-wait process) #+clozure (ccl::external-process-wait process)
#+(or cmucl scl) (ext:process-wait process) #+(or cmucl scl) (ext:process-wait process)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment