From: Nikodemus Siivola <nikodemus@sb-studio.net>
Date: Fri, 17 Jun 2011 18:41:31 +0000 (+0300)
Subject: RUN-PROGRAM: apply the external-format to the PTY stream as well
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5896b1fd29648a6cc4beef194ab3c3d075983c66;p=sbcl.git

RUN-PROGRAM: apply the external-format to the PTY stream as well
---

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)