Skip to content
Snippets Groups Projects
Commit 88f6852f authored by Raymond Toy's avatar Raymond Toy
Browse files

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`.)
parent 649a4f1e
No related branches found
No related tags found
No related merge requests found
...@@ -105,7 +105,7 @@ ...@@ -105,7 +105,7 @@
(defun find-encoding (domain) (defun find-encoding (domain)
(when (null (domain-entry-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" ;; Domain lookup can call the compiler, so set the locale to "C"
;; so things work. ;; so things work.
(let* ((*locale* "C") (let* ((*locale* "C")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment