From: Nikodemus S. <de...@us...> - 2009-06-15 11:06:53
|
Update of /cvsroot/sbcl/sbcl/src/code In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv14114/src/code Modified Files: run-program.lisp Log Message: 1.0.29.8: :PTY and stream arguments in RUN-PROGRAM * Reported by Elliot Slaughter, patch by Stas Boukarev. Index: run-program.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/run-program.lisp,v retrieving revision 1.79 retrieving revision 1.80 diff -u -d -r1.79 -r1.80 --- run-program.lisp 27 Apr 2009 20:26:11 -0000 1.79 +++ run-program.lisp 15 Jun 2009 11:05:41 -0000 1.80 @@ -440,7 +440,7 @@ (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 @@ (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 |