From 548309e165d7bed5f499ac4180cd527fed57c17b Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 6 Mar 2021 20:25:19 +0100 Subject: [PATCH] cmdline options: also set ext::*default-external-format* when --encoding is given --- src/lsp/cmdline.lsp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/lsp/cmdline.lsp b/src/lsp/cmdline.lsp index 403fc6e1a..406c521c3 100644 --- a/src/lsp/cmdline.lsp +++ b/src/lsp/cmdline.lsp @@ -82,9 +82,11 @@ appeared after a '--'.") ("--c-stack" 1 (ext:set-limit 'ext:c-stack (read-from-string 1))) ("--trap-fpe" 0 (si::trap-fpe t t)) ("--no-trap-fpe" 0 (si::trap-fpe t nil)) - ("--encoding" 1 (dolist (i (list *standard-input* *standard-output* - *error-output* *trace-output*)) - (setf (stream-external-format i) (read-from-string 1)))) + ("--encoding" 1 (let ((enc (read-from-string 1))) + (setf ext::*default-external-format* enc) + (dolist (i (list *standard-input* *standard-output* + *error-output* *trace-output*)) + (setf (stream-external-format i) enc)))) ("--input-encoding" 1 (setf (stream-external-format *standard-input*) (read-from-string 1))) ("--output-encoding" 1