Use character-based io stream

[gpiero]

This way I can use (uiop:run-program '("...") :output t) from inside a function invoked via scriptl