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...