Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl
Commits:
-
7f512626
by Jon Boone at 2023-06-05T20:21:55-04:00
1 changed file:
Changes:
| ... | ... | @@ -837,7 +837,8 @@ |
| 837 | 837 | (piglatin-text "Ethay izesay ofway away eamstray inway-ufferbay."))
|
| 838 | 838 | (unwind-protect
|
| 839 | 839 | (progn
|
| 840 | - ;; (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin"))
|
|
| 840 | + (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin"))
|
|
| 841 | + (print (intl::find-domain "cmucl" intl::*locale*))
|
|
| 841 | 842 | (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer."))
|
| 842 | 843 | )
|
| 843 | 844 | (intl:setlocale old-locale))))
|