Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl
Commits:
-
e2bb63ec
by Jon Boone at 2023-06-03T22:22:59-04:00
1 changed file:
Changes:
| ... | ... | @@ -832,10 +832,14 @@ |
| 832 | 832 | |
| 833 | 833 | (define-test issue.154
|
| 834 | 834 | (:tag :issues)
|
| 835 | - (let ((locale "en_US.UTF-8@piglatin")
|
|
| 835 | + (let ((old-locale intl::*locale*)
|
|
| 836 | + (locale "en_US.UTF-8@piglatin")
|
|
| 836 | 837 | (piglatin_text "Ethay izesay ofway away eamstray inway-ufferbay."))
|
| 837 | - (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin"))
|
|
| 838 | - (assert-equal piglatin_text (intl:dgettext "cmucl" "The size of a stream in-buffer."))))
|
|
| 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))))
|
|
| 839 | 843 | |
| 840 | 844 | (define-test issue.158
|
| 841 | 845 | (:tag :issues)
|