X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=1a4b7e7c2116885c768c49cae47d5fdf2b054ef3;hb=f17e3d27d7ff599f9443d011d17017a2a858c81a;hp=4d364eda885ae326ad4263707915163da0508bd1;hpb=edd4f6337f9955c34716ff87a50e4cb20e8a8521;p=sbcl.git

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)