Jon Boone pushed to branch resolve-mr-for-issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl Commits: 961adce2 by Jon Boone at 2023-06-05T15:00:50-04:00 add en_US.UTF-8@piglatin as locale-alias - - - - - be648edc by Jon Boone at 2023-06-05T15:00:51-04:00 adding test for issue 154 fix - - - - - 8f48ebc1 by Jon Boone at 2023-06-05T15:00:52-04:00 corrects test definition to restore locale afterward - - - - - d6801a41 by Jon Boone at 2023-06-05T15:00:53-04:00 modified issue.154 test to have lispier symbols - - - - - 3 changed files: - src/code/intl.lisp - src/i18n/locale/cmucl.pot - tests/issues.lisp Changes: ===================================== src/code/intl.lisp ===================================== @@ -51,6 +51,7 @@ Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this.") (defvar *loaded-domains* (make-hash-table :test 'equal)) (defvar *locale-aliases* (make-hash-table :test 'equal)) +(setf (gethash "en_US.UTF-8@piglatin" *locale-aliases*) "en@piglatin") (defstruct domain-entry (domain "" :type simple-base-string) ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -9083,7 +9083,8 @@ msgstr "" #: src/code/extfmts.lisp msgid "" "The default external format to use if no other external format is\n" -" specified" +" specified. This is unaffected by any locale settings or by\n" +" SET-SYSTEM-EXTERNAL-FORMAT." msgstr "" #: src/code/extfmts.lisp ===================================== tests/issues.lisp ===================================== @@ -830,7 +830,16 @@ (assert-true (stream::find-external-format :euckr)) (assert-true (stream::find-external-format :cp949)))) - +(define-test issue.154 + (:tag :issues) + (let ((old-locale intl::*locale*) + (locale "en_US.UTF-8@piglatin") + (piglatin-text "Ethay izesay ofway away eamstray inway-ufferbay.")) + (unwind-protect + (progn + (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) + (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer."))) + (intl:setlocale old-locale)))) (define-test issue.158 (:tag :issues) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a2fa2dae5851e0687f525fe... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a2fa2dae5851e0687f525fe... You're receiving this email because of your account on gitlab.common-lisp.net.