[Ecls-list] Latest fixes

[Goffioul Michael]

> > - EXT:RUN-PROCESS can now duplicate the *STANDARD-OUTPUT* and 
> > *ERROR-OUTPUT*
> >   even if they are not the files set at the beginning of the process
> >    > (let ((*standard-output* (open "foo.txt" :direction :output
> >                      :if-does-not-exist :create :if-exists 
> :supersede)))
> >          (ext:run-program "echo" '("hola!") :output t))
> >    #<two-way stream 0868a708>
> >    > (si::system "cat foo.txt")
> >    hola!
> >    0
> 
> BTW, Michael, can you complete the associated MSVC code? I 
> was not very 
> sure about how to get and duplicate the handles, so the fix 
> is only made 
> for Unix.

This patch should do the trick (at least your example works as expected).

Michael.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ecl-run-prog.diff.gz
Type: application/x-gzip
Size: 640 bytes
Desc: ecl-run-prog.diff.gz
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20050518/d1e99cec/attachment.bin>