Raymond Toy pushed to branch issue-141-locale at cmucl / cmucl
Commits: ca4a91c4 by Raymond Toy at 2022-11-05T08:33:57-07:00 Restore missing line
Somehow, I deleted the line that said the `locale` arg to `intl::setlocale` took precedence over the system locale. Restore the line. This now makes more sense.
- - - - -
1 changed file:
- src/code/intl.lisp
Changes:
===================================== src/code/intl.lisp ===================================== @@ -519,7 +519,8 @@ (if (equal val "") nil val)))
(defun setlocale (&optional locale) - (setf *locale* (or (unix::unix-getlocale) + (setf *locale* (or locale + (unix::unix-getlocale) *locale*)))
(defmacro textdomain (domain)
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ca4a91c47aabca48c15a3af9...