Commit cd83552e authored by Elias Pipping's avatar Elias Pipping

Add process-info-*put getters

parent bf0c738b
......@@ -14,6 +14,7 @@
;;; run-program
#:slurp-input-stream #:vomit-output-stream
#:close-streams #:run-program
#:process-info-error-output #:process-info-input #:process-info-output
#:subprocess-error
#:subprocess-error-code #:subprocess-error-command #:subprocess-error-process
))
......@@ -596,6 +597,15 @@ It returns a process-info object."
(prop 'process (first process*)))))
process-info)))
(defun process-info-error-output (process-info)
(slot-value process-info 'error-output-stream))
(defun process-info-input (process-info)
(or (slot-value process-info 'bidir-stream)
(slot-value process-info 'input-stream)))
(defun process-info-output (process-info)
(or (slot-value process-info 'bidir-stream)
(slot-value process-info 'output-stream)))
(defun %process-info-pid (process-info)
(let ((process (slot-value process-info 'process)))
(declare (ignorable 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