X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=1b9b310dff7ed770e7f57cb3c9d9fe8ddd55da90;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=dbb16ccf94fd19288207dca55c0492243f16e84d;hpb=4f82cd4c218dbaa287dd42a0833b05e7a8dd94d0;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index dbb16cc..1b9b310 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -440,7 +440,7 @@ status slot."
             (error "could not find a pty"))))))
 
 #-win32
-(defun open-pty (pty cookie)
+(defun open-pty (pty cookie &key (external-format :default))
   (when pty
     (multiple-value-bind
           (master slave name)
@@ -452,7 +452,7 @@ status slot."
           (unless new-fd
             (error "couldn't SB-UNIX:UNIX-DUP ~W: ~A" master (strerror errno)))
           (push new-fd *close-on-error*)
-          (copy-descriptor-to-stream new-fd pty cookie)))
+          (copy-descriptor-to-stream new-fd pty cookie external-format)))
       (values name
               (sb-sys:make-fd-stream master :input t :output t
                                      :element-type :default