[slime-devel] Re: Handling ^M and ^H characters output from ext:run-program?

[Jeff Cunningham]

On Sun Jul 17, 2005 at 11:22:27AM +1000, Mark Triggs wrote:
> 
> My version of cdrdao seems to write its output to stderr, not stdout, so
> the above output is probably coming from your ":error t" argument.  I'm
> not completely sure what you want to do, but this sort of approach seems
> to work for me:
> 
>   (with-open-stream (rip (ext:process-error
>                           (ext:run-program "cdrdao"
>                                            '("read-test" "-v" "1" "test-toc.toc")
>                                            :output nil
>                                            :wait nil
>                                            :error :stream)))
>     (loop as line = (read-line rip nil)
>        while line do
>        (dolist (output-line (split (string #\Return) line))
>          (when (cl-ppcre:scan "^Read \\d+ of \\d+ MB." output-line)
>            (write-line output-line)))))
> 

Hi Mark,

That works on my machine as well. I was looking at the wrong stream :[

Thanks!


--Jeff