|
From: Teemu L. <tli...@ik...> - 2010-04-28 16:48:20
|
* 2010-04-26 09:11 (+0200), Leslie P. Polzer wrote: > Here's a quick working sketch: > (without-package-locks > (defun sb-impl::flush-standard-output-streams () > (ignore-errors > (dolist (name '(*debug-io* > *error-output* > *query-io* > *standard-output* > *trace-output* > *terminal-io*)) > ;; FINISH-OUTPUT may block more easily than FORCE-OUTPUT > (force-output (symbol-value name))) > (values)))) > > > (format t "one~%two~%three~%") Redefining an internal function seems ugly. I do appreciate your help and efforts, though. So really, thank you. Unfortunately I don't understand the problem fully myself and most likely that's the reason I couldn't get your "quick working sketch" working. With the above code (at script's top level) and my original test script I still get the same "broken pipe" error when the output is piped to "head -n1". |