CLISP always outputs a newline when it exits



CLISP always outputs a newline when it exits. This is extremely wrong
if I'm using it in a pipeline and need precise control over what gets
output.

I can hack up a fix by doing:

(push (lambda () (setf *terminal-io* (make-broadcast-stream)))
*fini-hooks*)

But that seems a bit nasty. Is there a better method I've overlooked?

.