From 5896b1fd29648a6cc4beef194ab3c3d075983c66 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 17 Jun 2011 21:41:31 +0300 Subject: [PATCH] RUN-PROGRAM: apply the external-format to the PTY stream as well --- src/code/run-program.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp index 4d364ed..1a4b7e7 100644 --- a/src/code/run-program.lisp +++ b/src/code/run-program.lisp @@ -455,6 +455,7 @@ status slot." (copy-descriptor-to-stream new-fd pty cookie external-format))) (values name (sb-sys:make-fd-stream master :input t :output t + :external-format external-format :element-type :default :dual-channel-p t))))) @@ -734,7 +735,7 @@ Users Manual for details about the PROCESS structure."#-win32" #+win32 `(declare (ignore ,pty ,cookie)) #+win32 `(let (,pty-name ,pty-stream) ,@body) #-win32 `(multiple-value-bind (,pty-name ,pty-stream) - (open-pty ,pty ,cookie) + (open-pty ,pty ,cookie :external-format external-format) ,@body)) (with-args-vec ((vec args) &body body) `(with-c-strvec (,vec ,args) -- 1.7.10.4