Raymond Toy pushed to branch issue-150-add-aliases-cp949-euckr at cmucl / cmucl
Commits: cf5111ea by Raymond Toy at 2022-11-01T17:26:19-07:00 Fix #150: Add aliases for cp949 and euckr
Add alias for cp949 which is the same as euc-kr, which we already support. As a convenience make euckr be an alias of euc-kr too.
Add a simple test for this tha just verifies that the `stream::find-external-format` doesn't fail for these formats.
- - - - -
2 changed files:
- src/pcl/simple-streams/external-formats/aliases - tests/issues.lisp
Changes:
===================================== src/pcl/simple-streams/external-formats/aliases ===================================== @@ -223,6 +223,8 @@ windows-cp1252 cp1252 windows-latin1 cp1252 ms-ansi cp1252
+euckr euc-kr +cp949 euc-kr ;; These are not yet implemented ;;iso-2022-jp iso2022-jp ;;iso2022jp iso2022-jp
===================================== tests/issues.lisp ===================================== @@ -745,3 +745,10 @@ (assert-equal (map 'list #'char-name string) (map 'list #'char-name (read-line s))))))
+ +(define-test issue.150 + (:tag :issues) + (let ((ext:*gc-verbose* nil) + (*compile-print* nil)) + (assert-true (stream::find-external-format :euckr)) + (assert-true (stream::find-external-format :cp949))))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cf5111ea89421f8be2bd35a2...