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

Signal an error on unsupported platforms

parent e9e8db50
......@@ -584,7 +584,9 @@ It returns a process-info plist with possible keys:
(if-let ((f (find-symbol* :pid-exit-status :system nil)))
(funcall f process :wait t)))
#+mkcl (mkcl:join-process process)
#+sbcl (sb-ext:process-exit-code process)))))
#+sbcl (sb-ext:process-exit-code process)
#-(or allegro clasp clozure cmu ecl lispworks mkcl sbcl scl)
(error "~S not implemented" '%wait-process-result)))))
(defun %check-result (exit-code &key command process ignore-error-status)
(unless ignore-error-status
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