Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

• 88f6852f
  by Raymond Toy at 2022-11-01T12:04:55-07:00

  Change :iso-8859-1 to :iso8859-1 in find-encoding
  
  While there's an alias for `:iso-8859-1`, it's safer to use
  `:iso8859-1` which is builtin.  Using `:iso-8859-1` requires the alias
  database to be loaded, which isn't (currently) guaranteed when
  `find-encoding` is called.  Thus use the builtin name instead.
  Besides, `:iso8859-1` is used in other places in "intl.lisp".
  
  (This is hard to test, but I noticed it when running
  ```
  LANG=ko_KR.utf8 lisp
  ```
  on the branch `issue-139-add-alias-local-external-format`.)
  

1 changed file:

• src/code/intl.lisp

Changes:

 (defun find-encoding (domain)

   (when (null (domain-entry-encoding domain))

-    (setf (domain-entry-encoding domain) :iso-8859-1)

+    (setf (domain-entry-encoding domain) :iso8859-1)

     ;; Domain lookup can call the compiler, so set the locale to "C"

     ;; so things work.

     (let* ((*locale* "C")