STREAM-EXTERNAL-FORMAT is SETFable: (SETF (STREAM-EXTERNAL-FORMAT stream [direction]) encoding), direction can be :INPUT, :OUTPUT, or NIL. If no direction is given, the operation is nonrecursive.

This will not work on *TERMINAL-IO* et al, use CUSTOM:*TERMINAL-ENCODING* instead.