[Git][cmucl/cmucl][issue-141-locale] Restore missing line

[Raymond Toy (@rtoy)]

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/ca4a91c47aabca48c15a3af95bb8dcbf1693ee89

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ca4a91c47aabca48c15a3af95bb8dcbf1693ee89
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/20221105/45e52f76/attachment.html>