[Git][cmucl/cmucl][issue-139-set-terminal-to-utf8] After finding the external format, get the format name

[Raymond Toy (@rtoy)]

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/5036c2a40b3c613df367cc5d3ca53eb56049155d

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/5036c2a40b3c613df367cc5d3ca53eb56049155d
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20221204/9e736f85/attachment-0001.html>