Raymond Toy pushed to branch issue-139-set-terminal-to-utf8 at cmucl / cmucl Commits: 5036c2a4 by Raymond Toy at 2022-12-04T07:59:54-08:00 After finding the external format, get the format name Fix minor issue in previous commit; `stream::find-external-format` returns an `stream::external-format` object, but we want the name of the format instead when we set the alias. - - - - - 1 changed file: - src/code/save.lisp Changes: ===================================== src/code/save.lisp ===================================== @@ -151,7 +151,8 @@ (setq external-format *default-external-format*)) (t (let ((name (intern codeset "KEYWORD"))) - (setq external-format (stream::find-external-format name nil))))) + (setq external-format + (stream::ef-name (stream::find-external-format name nil)))))) (cond (external-format (setf (gethash :locale stream::*external-format-aliases*) external-format)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/5036c2a40b3c613df367cc5d... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/5036c2a40b3c613df367cc5d... You're receiving this email because of your account on gitlab.common-lisp.net.