Commit 504e4fd0 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix interactive launch-program on ECL

Just as with %use-system, we need to restore the original *stdin*, etc.,
around calls to run-program for :interactive to work properly
and not behave in a funky way in e.g. SLIME.
parent 304183e4
...@@ -505,6 +505,9 @@ LAUNCH-PROGRAM returns a PROCESS-INFO object." ...@@ -505,6 +505,9 @@ LAUNCH-PROGRAM returns a PROCESS-INFO object."
(%handle-if-does-not-exist input if-input-does-not-exist) (%handle-if-does-not-exist input if-input-does-not-exist)
(%handle-if-exists output if-output-exists) (%handle-if-exists output if-output-exists)
(%handle-if-exists error-output if-error-output-exists)) (%handle-if-exists error-output if-error-output-exists))
#+ecl (let ((*standard-input* *stdin*)
(*standard-output* *stdout*)
(*error-output* *stderr*)))
(let ((process-info (make-instance 'process-info)) (let ((process-info (make-instance 'process-info))
(input (%normalize-io-specifier input :input)) (input (%normalize-io-specifier input :input))
(output (%normalize-io-specifier output :output)) (output (%normalize-io-specifier output :output))
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