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:

 	   (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))