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
-
be648edc
by Jon Boone at 2023-06-05T15:00:51-04:00
-
8f48ebc1
by Jon Boone at 2023-06-05T15:00:52-04:00
-
d6801a41
by Jon Boone at 2023-06-05T15:00:53-04:00
3 changed files:
Changes:
| ... | ... | @@ -51,6 +51,7 @@ |
| 51 | 51 | Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this.")
|
| 52 | 52 | (defvar *loaded-domains* (make-hash-table :test 'equal))
|
| 53 | 53 | (defvar *locale-aliases* (make-hash-table :test 'equal))
|
| 54 | +(setf (gethash "en_US.UTF-8@piglatin" *locale-aliases*) "en@piglatin")
|
|
| 54 | 55 | |
| 55 | 56 | (defstruct domain-entry
|
| 56 | 57 | (domain "" :type simple-base-string)
|
| ... | ... | @@ -9083,7 +9083,8 @@ msgstr "" |
| 9083 | 9083 | #: src/code/extfmts.lisp
|
| 9084 | 9084 | msgid ""
|
| 9085 | 9085 | "The default external format to use if no other external format is\n"
|
| 9086 | -" specified"
|
|
| 9086 | +" specified. This is unaffected by any locale settings or by\n"
|
|
| 9087 | +" SET-SYSTEM-EXTERNAL-FORMAT."
|
|
| 9087 | 9088 | msgstr ""
|
| 9088 | 9089 | |
| 9089 | 9090 | #: src/code/extfmts.lisp
|
| ... | ... | @@ -830,7 +830,16 @@ |
| 830 | 830 | (assert-true (stream::find-external-format :euckr))
|
| 831 | 831 | (assert-true (stream::find-external-format :cp949))))
|
| 832 | 832 | |
| 833 | - |
|
| 833 | +(define-test issue.154
|
|
| 834 | + (:tag :issues)
|
|
| 835 | + (let ((old-locale intl::*locale*)
|
|
| 836 | + (locale "en_US.UTF-8@piglatin")
|
|
| 837 | + (piglatin-text "Ethay izesay ofway away eamstray inway-ufferbay."))
|
|
| 838 | + (unwind-protect
|
|
| 839 | + (progn
|
|
| 840 | + (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin"))
|
|
| 841 | + (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer.")))
|
|
| 842 | + (intl:setlocale old-locale))))
|
|
| 834 | 843 | |
| 835 | 844 | (define-test issue.158
|
| 836 | 845 | (:tag :issues)
|