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...